こんにちは！今日は、Word VBAを使って文書内の文字列を検索する方法をご紹介します。パソコン操作に不安がある方でも、安心して取り組める内容ですので、ぜひ最後までご覧ください。
Word VBAとは？
Wordのイメージ
Word VBA（Visual Basic for Applications）は、Microsoft Wordに組み込まれているプログラミング言語で、文書の自動化やカスタマイズを行うことができます。例えば、毎回手動で行っている作業をマクロとして記録し、ボタン一つで実行できるようにすることが可能です。
文字列検索の基本Findオブジェクト
Word VBAで文字列を検索する際に使用するのが、Findオブジェクトです。このオブジェクトを使うことで、文書内の特定の文字列を簡単に検索できます。
以下は、Findオブジェクトを使用して「Word」という文字列を検索する基本的なコードです。
vba
Sub SearchWord()
With Selection.Find
.Text = "Word"
.Execute
End With
End Sub
このコードを実行すると、カーソルの位置から「Word」という文字列が検索され、見つかった場所にカーソルが移動します。
検索のオプション設定
Findオブジェクトには、検索の挙動を細かく設定できるプロパティがいくつかあります。例えば
.Forward検索の方向を設定します。`True`にすると前方向、`False`にすると後ろ方向に検索します。
.Wrap検索の終了後の動作を設定します。`wdFindStop`にすると検索が停止し、`wdFindContinue`にすると文書の先頭に戻って検索を続けます。
.MatchCase大文字と小文字を区別するかどうかを設定します。`True`にすると区別し、`False`にすると区別しません。
以下は、これらのオプションを設定したコード例です。
vba
Sub SearchWordWithOptions()
With Selection.Find
.Text = "Word"
.Forward = True
.Wrap = wdFindStop
.MatchCase = False
.Execute
End With
End Sub
このコードを実行すると、文書内で「Word」という文字列を前方向に検索し、大文字と小文字を区別せずに検索します。
複数の文字列を検索する方法
複数の文字列を順番に検索したい場合、以下のようにコードを記述します。
vba
Sub SearchMultipleWords()
Dim words As Variant
words = Array("Word", "VBA", "検索")
Dim i As Integer
For i = LBound(words) To UBound(words)
With Selection.Find
.Text = words(i)
.Execute
End With
Next i
End Sub
このコードを実行すると、「Word」、「VBA」、「検索」の順に文書内を検索します。
検索結果をExcelに出力する方法
検索した結果をExcelに一覧として出力することで、後で確認しやすくなります。以下は、検索結果をExcelに出力する基本的なコードです。
vba
Sub ExportSearchResultsToExcel()
Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False
Dim wordDoc As Object
Set wordDoc = wordApp.Documents.Open("C:pathtoyourdocument.docx")
Dim rng As Object
Set rng = wordDoc.Content
rng.Find.Text = "Word"
rng.Find.Execute
If rng.Find.Found Then
Dim excelApp As Object
Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = True
Dim wb As Object
Set wb = excelApp.Workbooks.Add
Dim ws As Object
Set ws = wb.Sheets(1)
ws.Cells(1, 1).Value = "検索結果"
ws.Cells(2, 1).Value = rng.Text
End If
wordDoc.Close
wordApp.Quit
End Sub
このコードを実行すると、指定したWord文書内で「Word」という文字列を検索し、見つかった場合はその結果をExcelに出力します。
よくある質問
Q1: VBAって難しそうですが、初心者でもできますか？
はい、できます！VBAは初心者でも取り組みやすい言語で、少しずつ学んでいけば、文書の自動化やカスタマイズができるようになります。
Q2: 文字列検索以外にもVBAでできることはありますか？
はい、VBAを使うと、文書の書式設定やページ設定、画像の挿入など、さまざまな操作を自動化できます。
Q3: VBAのコードはどこで実行できますか？
Wordの「開発」タブから「Visual Basic」を開き、VBAエディタでコードを入力して実行できます。
まとめ
今回は、Word VBAを使って文書内の文字列を検索する方法をご紹介しました。最初は難しく感じるかもしれませんが、少しずつ学んでいけば、作業の効率化や自動化が可能になります。ぜひ、今回の内容を参考に、VBAを使ってみてください。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント