ドキュメントを作成するとき、編集ノートに特定の段落スタイルを使用することは珍しいことではありません。たとえば、メモは、メモスタイルを使用して段落に保存できます。ある時点で、Notesスタイルを使用するすべての段落を取得して、ドキュメント内の実際のコメントに変換したい場合があります。ドキュメントを調べて手動で変換することはできますが、これはすぐに面倒になる可能性があります。代わりに、変換を行うマクロを使用してください:

Sub ConvertNotesToComments()

Dim CommentText As String     Dim MyRange As Range     Dim iPCount As Integer     Dim J As Integer

Application.ScreenUpdating = False     iPCount = ActiveDocument.Paragraphs.Count

For J = iPCount To 1 Step -1         If ActiveDocument.Paragraphs(J).Style = _           ActiveDocument.Styles("Notes") Then             Set MyRange = ActiveDocument.Paragraphs(J).Range             CommentText = MyRange.Text

'Get rid of trailing end-of-paragraph mark             CommentText = Left(CommentText, Len(CommentText) - 1)



'Move selection to end of previous paragraph             MyRange.Collapse (wdCollapseStart)

MyRange.Move Unit:=wdCharacter, Count:=-1

'The original paragraph is no longer necessary             ActiveDocument.Paragraphs(J).Range.Delete

'Create the comment at the range location             ActiveDocument.Comments.Add Range:=MyRange, _               Text:=CommentText         End If     Next J     Application.ScreenUpdating = True End Sub

マクロは、各段落のスタイルを確認しながら、ドキュメントを逆方向に進みます。 Notesスタイルを使用するものが見つかった場合は、段落のテキストをCommentText変数に移動してから、段落を削除します。コメントは、削除が行われる前の段落の最後に追加されます。

注:

このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(5404)は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス(Word 2007)用のこのヒントのバージョンを見つけることができます。以降)ここ: