この記事では、Excel VBAを使用してWord文書内の特定のキーワードの書体を一括で変更する方法について詳しく解説します。具体的なコード例、その詳細な解説、さらには応用例を踏まえて、この技術の魅力と可能性をお伝えします。
目次
基本的なコードの説明
Word文書内のキーワードを特定し、その書体を一括で変更するための基本的なVBAコードは以下のとおりです。
Sub ChangeFontStyleInWord()
Dim WordApp As Object
Dim WordDoc As Object
Dim WordRange As Object
Dim SearchKeyword As String
' Wordアプリケーションのインスタンスを生成
Set WordApp = CreateObject("Word.Application")
' Word文書を開く
Set WordDoc = WordApp.Documents.Open("C:\path\to\your\document.docx")
' 検索キーワードを設定
SearchKeyword = "YOUR_KEYWORD"
' キーワードを検索し、書体を変更
For Each WordRange In WordDoc.Content.Find.Execute(FindText:=SearchKeyword, Forward:=True, Format:=False, Wrap:=1).Found
WordRange.Font.Name = "Arial"
WordRange.Font.Size = 14
Next WordRange
' Word文書を保存して閉じる
WordDoc.Close SaveChanges:=True
Set WordDoc = Nothing
' Wordアプリケーションを終了
WordApp.Quit
Set WordApp = Nothing
End Sub
コードの詳細解説
このコードは、指定されたWord文書内で特定のキーワードを検索し、そのキーワードの書体を変更する機能を持っています。
1. Wordアプリケーションのインスタンスを生成します。
2. 指定のパスでWord文書を開きます。
3. キーワードを設定します。このキーワードがWord文書内で検索され、書体が変更される対象となります。
4. キーワードを検索し、その書体をArial、サイズ14に変更します。
5. 最後に、変更を保存してWord文書を閉じ、Wordアプリケーションを終了します。
応用例
1. 複数のキーワードの書体を一括で変更
特定のキーワードだけでなく、複数のキーワードの書体を一括で変更したい場合のコード例とその解説を以下に示します。
Sub ChangeMultipleKeywordsFontStyle()
'...前述のコードの続き...
' 複数のキーワードを設定
Dim Keywords As Variant
Keywords = Array("KEYWORD1", "KEYWORD2", "KEYWORD3")
Dim keyword As Variant
For Each keyword In Keywords
For Each WordRange In WordDoc.Content.Find.Execute(FindText:=keyword, Forward:=True, Format:=False, Wrap:=1).Found
WordRange.Font.Name = "Arial"
WordRange.Font.Size = 14
Next WordRange
Next keyword
'...後続のコード...
End Sub
2. 特定のキーワードのみ太字にする
Sub BoldSpecificKeyword()
'...前述のコードの続き...
' キーワードを検索し、太字に設定
For Each WordRange In WordDoc.Content.Find.Execute(FindText:=SearchKeyword, Forward:=True, Format:=False, Wrap:=1).Found
WordRange.Font.Bold = True
Next WordRange
'...後続のコード...
End Sub
3. キーワードの前後に文字を追加
Sub AddTextBeforeAfterKeyword()
'...前述のコードの続き...
' キーワードの前後に文字を追加
For Each WordRange In WordDoc.Content.Find.Execute(FindText:=SearchKeyword, Forward:=True, Format:=False, Wrap:=1).Found
WordRange.InsertBefore "【"
WordRange.InsertAfter "】"
Next WordRange
'...後続のコード...
End Sub
まとめ
Excel VBAを使用することで、Word文書内の特定のキーワードの書体を一括で変更することが可能です。基本的な方法から応用例まで、さまざまなケースでの対応方法を学びました。これを機に、VBAを利用して日常の作業をより効率的に進める方法を探求してみてください。
コメント