Home » ワードマクロ・Word VBAの使い方 » ブックマーク » Word VBAで文書の末尾に文字を追加する

Word VBAで文書の末尾に文字を追加する

動作検証バージョン:64bit Windows 10 Pro + 32bit Word(バージョン2205 ビルド15225.20204 Microsoft Store)

「word vba 文書の末尾に文字」
という検索キーワードでアクセスがありました。

VBAを使ってWord文書の末尾・最後に文字を追加するには、どのようなコードを書けばいいのかを探していらしたのでしょうか。

アクティブ文書の末尾に文字を追加するサンプルマクロ

以下のWordマクロを実行すると、アクティブ文書の末尾・最後に文字「★」が追加されます。

Sub アクティブ文書の末尾に文字を挿入する()
 ActiveDocument.Bookmarks("\EndOfDoc").Range.InsertAfter Text:="★"
End Sub

拙著『Excel VBAユーザーのためのWord VBA入門(1)』の、「chapter 8. ページを扱うには」でBookmarkオブジェクトを使った処理を解説しています。

上記のWordマクロでは、定義済みブックマークの1つ「\EndOfDoc」を使って文書末尾のブックマークを表すBookmarkオブジェクトを取得し、

ActiveDocument.Bookmarks("\EndOfDoc")

文書末尾の文字列範囲を表すRangeオブジェクトをBookmark.Rangeプロパティで取得し、

ActiveDocument.Bookmarks("\EndOfDoc").Range

Range.InderAfterメソッドで文字「★」を挿入しています。

ActiveDocument.Bookmarks("\EndOfDoc").Range.InsertAfter Text:="★"

開いている全文書の末尾に文字を追加するサンプルマクロ

開いている全Word文書の末尾に文字を追加するならば、以下のWordマクロを参考にしてください。

Sub 開いている文書の末尾に文字を挿入する()
 Dim doc As Document
 For Each doc In Documents
  doc.Bookmarks("\EndOfDoc").Range.InsertAfter Text:="☆"
 Next
End Sub
[スポンサードリンク]

Home » ワードマクロ・Word VBAの使い方 » ブックマーク » Word VBAで文書の末尾に文字を追加する

Home » ワードマクロ・Word VBAの使い方 » ブックマーク » Word VBAで文書の末尾に文字を追加する

「ブックマーク」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.