Word VBA 太字を含む段落をリストアップする

質問

複数あるファイルの太字で強調してある部分をリストアップして
その部分を比較して順番や表記の統一性をチェックする作業をしています

現在は検索で探して作業しているのですが十数ファイルあるため比較するために
ウィンドウをいちいち変更せねばならずなかなか面倒です

エクセルの方で多少マクロの知識があるのでマクロの記録からいじって
文字列がヒットした段落から数段落をファイルごとに列挙して並べるようなマクロを作れないかと考えたのですが
いざ記録してみると
Selection.Find.Font.Bold を True にしているのが記録されるだけで
検索にヒットした文字列をどうすれば取得できるのかがわかりません

わかる方いらっしゃいませんでしょうか

回答No.1

enunokokoro · ベストアンサー

マクロについてはWordに限らず得意ではないので、難しい
処理をするなら、他の回答者をお待ちください。

単純に太字のある段落を新規文書にテキストとして書き出す
だけなら以下のマクロでできます。

Sub 太字のある段落をテキストで書き出し()

Dim actdoc As Document
Dim doc As Document
Dim para As Paragraph

Set actdoc = ActiveDocument
Set doc = Documents.Add

For Each para In actdoc.Paragraphs
　If para.Range.Bold Then
　　doc.Range.InsertAfter para.Range.Text
　End If
Next

End Sub

難しいことはしていませんので、意味は分かるかと。

上記マクロでは、元文書の太字のある段落を新規文書へと
書き出しているだけのものなので、複数のファイルの場合
なら、それぞれをアクティブになるようにして、新規文書
などに書きだすことで対応できるかと。

補足されても、追加回答できるほどのスキルはありません
から、質問者自身でアレンジするなり、他の回答を待ち、
希望するようなアドバイスが書かれるような情報などを、
私の回答に補足情報を載せるなりしてもよいかも。
私自身は追加回答は多分しないと思います。

お礼

お返事遅くなって申し訳ありません

別ファイルで書き出したところ作業がしやすかったので必要十分なマクロでした
ただ、いまのところ同じ作業は発生しておらず、この時は手作業で何とかしてしまったのでまだ本番では使えていません
それまでいただいたものを参考にいろいろといじってみようと思います