マクロレコーダーを超えたWordマクロ：Office 2016、365 / 2019マクロのチュートリアルと便利な例

適用性：Word 365、2019、2016; WindowsおよびMACOSXオペレーティングシステム。

読者からの質問は次のとおりです。

私は教師ですが、通常はWord2019を使用してドキュメントを作成します。ドキュメントの段落のフォントとサイズを変更する必要があることがよくあります。マクロでの作業を自動化して、ワンクリックでドキュメントの段落を変更できるようにする方法はありますか？これにより、週に2、3時間節約できると確信しています。これは、他のタスクに喜んで投資します。

ご質問ありがとうございます。マクロの主な利点は、MicrosoftOfficeアプリケーションでのタスクを自動化できることです。マクロは、記録することも、Visual Basic for Applications（VBA）を使用して手動でコーディングすることもできます。Wordには、コーディングなしで自動化スクリプトを開発できるマクロレコーダーが付属しています。自動化を始めたばかりの場合は、これで十分な解決策になる可能性があります。とはいえ、VBAの知識が少しあれば、効率的で強力なマクロを作成できます。

Wordで開発者タブを有効にする

Microsoft Wordリボンに[開発者]タブが表示されない場合は、マクロ開発環境をセットアップする必要があります。

• 新しいWord文書を開きます。既存のファイルで作業する場合は、変更を加える前に、バックアップ用のコピーがあることを確認してください。
• 次に、開発者メニューをリボンに表示します。

Wordマクロの記録–実用的な例

• 次に、新しく追加された[開発者]タブをクリックします。
• [コード]ボタングループに移動します。

• [マクロの記録]ボタンを押して、マクロレコーダー機能を呼び出します。

• マクロに意味のある名前を定義します。注：指定した名前は自動作成されたVBAコードで使用されるため、マクロ名にスペースが含まれていないことを確認してください。

•  注： マクロをボタンに割り当てることは可能ですが、簡単にするために 、[表示]タブまたは[開発者]タブからマクロを手動で実行します。

• 記録したい一連のステップを実行します。この場合、次の手順を記録します。
  • ドキュメント内の特定の段落を選択します。
  • [ホーム]タブに移動します。
  • フォントをTimesNewRomanに設定します。
  • フォントサイズを16に設定します。
  • Ctrl + Eを押して、テキストを中央に配置します。
• 完了したら、[開発者]タブに戻り、[記録の停止]をクリックします。
• 次に、自動生成されたVBAコードを見てみましょう。[マクロ]をクリックし、[オートフォーマットマクロ]を強調表示して、[編集]をクリックします。

• VBAエディターを閉じます。

作業内容をWordマクロ対応のテンプレートに保存します

• [ファイル]、 [名前を付けて保存]の順にクリックします。
• [名前を付けて保存]ダイアログの右側で、保存場所を決定し、ワークブックに意味のある名前を付けます。

• ドキュメントタイプとして[Wordマクロ対応ドキュメント]を選択します。注：Word文書は.docmサフィックスで保存されます。
• 保存ボタンを押します。

マクロを実行する

• Word文書を開きます。
• 自動的にフォーマットする段落を選択します。例として、これが私が選んだ段落です：

• [表示]タブに移動します。
• マクロボタンを押します。
• オートフォーマットマクロを選択します
• 実行を押す–これにより、選択した段落にマクロが適用されます。
• Voi'la、いい結果です！

  

マクロをボタンまたはキーボードショートカットに割り当てる

注：これはオプションの手順であり、上記のマクロ記録チュートリアルを実行した後に試行する必要があります。

OK、これまでのところ、マクロの基本が機能しています。次に、Wordドキュメントのマクロの使いやすさを少し改善します。マクロをより簡単に起動できるように、マクロをクイックアクセスボタンに関連付ける方法を紹介します。

• リボンを右クリックして、[クイックアクセスツールバーのカスタマイズ]を選択します。
• [ Wordのオプション]ダイアログが表示されます。
• [コマンドの選択]ドロップダウンで、[マクロ]を選択します。
• マクロを強調表示し、[追加] >>ボタンを押して、マクロへのショートカットをクイックアクセスツールバーに追加します。

• [変更... ]ボタンをクリックして、マクロに適したアイコンを定義します。
• ボタンの表示名を定義します。
• OKを押します。
• これで、リボンのすぐ上にあるクイックアクセスツールバーからマクロを起動できます。

注：Wordマクロは、クイックアクセスボタンだけでなく、ドキュメントに埋め込まれているコマンドボタンや特定のカスタムキーボードショートカットにも関連付けることができます。

VBAを使用したWordマクロの作成

いくつかの単純なVisualBasic for Applicationsのコーディングスキルを使用して、マクロを編集し、VBAを使用してさまざまな種類の作業を自動化するプログラムを作成できます。

注：参考までに–PowerpointやOutlookなどの一部のMicrosoftOfficeアプリケーションには、マクロレコーダーが組み込まれていません。したがって、 Powerpointマクロの作成とOutlookの自動化には、VBAの作成が必須です。

• マクロを編集するには、[ 開発者 ]タブをクリックし、コードオプションで[マクロ]を選択します。
• マクロをクリックして、[ 編集]を選択します。
• Visual Basic forApplicationsエディタが開きます。
• 前の手順で記録したマクロを手動で編集して、Wordが段落のサイズ、フォント、配置だけでなく色も設定できるようにするとします。
• セクションの色の設定は、次のVBAコマンドを使用して実行されます。

[コード] Selection.Font.Color [/ code]

• この場合、ランダムな青に設定するため、Recordedマクロに次のスニペットを追加します。

[コード] Selection.Font.Color = 16737792 [/ code]

• VBAコードは次のようになります。

• VBAエディターで、[ファイル] 、 [保存]の順にクリックします。
• ドキュメントに戻り、段落に対してマクロを実行し、フォントの色の変化を観察します。

• ヴォイラ！

あなたが書くことができる便利なWordマクロの例

このチュートリアルを公開して以来、多くの読者がWordマクロのより詳細な例を求めてきました。このリストは、WordでVisualBasicを使用して自動化できる最も一般的なタスクをカバーしています。どうぞ：

新しいドキュメントを作成して保存する

Sub CreateNewDoc()
'This small snippet first creates a new document, then it checks whether a document with the same name already exists before saving.
Dim myDoc As New Document
Dim filePath As String

'Modify your file path as needed
filePath = "C:\MyNewDoc.docx"

Set myDoc = Documents.Add
With myDoc
If Dir(filePath) = "" Then
.SaveAs2 (filePath)
Else

'You have already an existing document

MsgBox ("Please use a different file name")
End If
End With

myDoc.Close SaveChanges:=wdPromptToSaveChanges

End Sub

注：新しいドキュメントを作成するときに、使用するテンプレート（.dotm / .dotxファイル）を指定できます。テンプレートは通常、C：\ Users \\ AppData \ Roaming \ Microsoft \ Templatesに保存されます。

Documents.Add Template:=<your_template_folder>

VBAでWord文書を開く

Sub OpenDoc()
'This code checks whether your document exists and then opens it
filePath = "C:\MyNewDoc.docx"

If Dir(filePath) = "" Then
MsgBox ("file doesn't exist")
Else
Documents.Open (filePath)
End If

End Sub

1つまたはすべての開いているドキュメントを閉じる

Sub CloseDoc()

'This code closes a specific document
filePath = "C:\MyNewDoc.docx"
Documents(filePath).Close SaveChanges:=wdPromptToSaveChanges
End Sub

Sub CloseAllDocs()
'This code closes all opened documents in your computer
Documents.Close SaveChanges:=wdPromptToSaveChanges

End Sub

WordをPDFとして保存

Word文書のPDFファイルとしての保存を簡単に自動化する方法は次のとおりです。

Sub SaveAsPdf()
'This code saves a word document in a PDF format
FileName = Left(CStr(ActiveDocument.Name), Len(CStr(ActiveDocument.Name)) - 5)
ActiveDocument.SaveAs2 FileName:="c:\" + FileName + ".pdf", FileFormat:=wdFormatPDF

End Sub

ヘッダーとフッターの挿入

このコードは、Word文書の最初のページのヘッダーとフッターを設定します。

Sub InsertHeaderFooterFirstPage()
Dim myDoc As Document
Dim headerText As String
Dim footerText As String

Set myDoc = ActiveDocument
'Replace the header and footer text as needed
headerText = "This document was written by you"
footerText = "All rights reserved to you"

With myDoc.Sections(1)
'We first ensure that we can set different header and footer texts
.PageSetup.DifferentFirstPageHeaderFooter = True
'Setting the header and footer texts
.Headers(wdHeaderFooterFirstPage).Range.Text = headerText
.Footers(wdHeaderFooterFirstPage).Range.Text = footerText

End With

End Sub

追加のWordマクロのアイデア

これは、今後投稿する予定のアイデアです。

1. 検索と置換（メソッドの実行）
2. 段落を挿入します（選択の前後）
3. プログラムでドキュメントを印刷する
4. テーブルの操作

これで、今日のチュートリアルは終わりです。ご覧のとおり、WordマクロレコーダーとWordのVBAマクロでは多くのことを行う必要があります。このチュートリアルの範囲を超えるより具体的なヘルプをお探しの場合は、お問い合わせフォームからお問い合わせください。