WordのVBAでできること（操作）

【ファイル】タブを選択します。

【オプション】タブを選択します。

「Word のオプション」ダイアログボックスが表示されました。

①【リボンのユーザー設定】タブを選択し、②「開発」に【チェックマーク】を入れ、③【OK】ボタンを押します。

リボンに開発タブが表示されました。

①【開発】タブ、②【Visual Basic】の順に選択します。

「Microsoft Visual Basic Applications」が起動しました。

①【表示】タブ、②【プロジェクト エクスプローラー】の順に選択します。

画面左にプロジェクトが表示されました。

Wordファイル（.docx）を【ダブルクリック】で開きます。

【ファイル】タブを選択します。

①【名前を付けて保存】タブ、②【このPC】の順に選択します。

「名前を付けて保存」ダイアログボックスが表示されました。

①【お好きなフォルダー（例：デスクトップ）】を選択し、②『ファイル名（例：table.docm）』を入力します。

③プルダウンから【Word マクロ有効文書（*.docm）】を選択し、④【保存】ボタンを押します。

マクロ有効文書を作成することができました。

①【開発】タブ、②【マクロ】の順に選択します。

「マクロ」ダイアログボックスが表示されました。

ここでは、①【マクロ名（例：newline）】を選択し、②【実行】ボタンを押します。

マクロが実行されました。

ページ内の改行がすべて削除されました。

docxファイル（table.docx）とdocmファイル（table.docm/マクロ有効文書）を両方用意します。

docxファイル（例：table.docx）を開きます。

①【開発】タブ、②【Visual Basic】の順に選択します。

「Microsoft Visual Basic for Applications」が起動しました。

①【ThisDocument】を選択します。

②以下のコードを入力します。

Sub OpenFile()
Documents.Open FileName:="table.docm"
End Sub

③【マクロの実行】を選択します。

【×】ボタンを押して「Microsoft Visual Basic for Applications」ダイアログボックスを閉じます。

table.docmのマクロ有効文書が開いていることがわかりました。

マクロ有効文書（例：table.docm）を【ダブルクリック】で開きます。

今回は、「ZZZZZZZZZ」の文字を検索してみましょう。

「ZZZZZZZZZ」より前の位置に【カーソル】を入れます。

①【開発】タブ、②【Visual Basic】の順に選択します。

①【ThisDocument】を選択します。

②以下のコードを入力します。

Sub search()
With Selection.Find
.Text = "ZZZZZZZZZ"
.MatchByte = True
.MatchCase = True
.Execute
End With
End Sub

③【マクロの実行】を選択します。

【×】ボタンを押して「Microsoft Visual Basic for Applications」ダイアログボックスを閉じます。

「ZZZZZZZZZ」の文字が検索され、選択されました。

マクロ有効文書（例：老人と海.docm）を【ダブルクリック】で開きます。

すでに改行が文章中に入っていることを確認します。

①【開発】タブ、②【Visual Basic】の順に選択します。

「Microsoft Visual Basic for Applications」ダイアログボックスが表示されました。

①【ThisDocument】を選択します。

②以下のコードを入力します。

Sub newline()
With ActiveDocument.Content
.Text = Replace(.Text, vbCr, "")
End With
End Sub

③【マクロの実行】を選択します。

【×】ボタンを押して「Microsoft Visual Basic for Applications」ダイアログボックスを閉じます。

ページ全体の改行が削除されました。