回答編集履歴

1

コード追記

2022/08/14 12:19

投稿

hatena19
hatena19

スコア33620

test CHANGED
@@ -2,3 +2,29 @@
2
2
  処理終了後に文頭にカーソル位置を移動させておけばどうでしょう。
3
3
 
4
4
  [文書の先頭にカーソルを移動するWordマクロ:ワードマクロ・Word VBAの使い方/ブックマーク](https://www.relief.jp/docs/word-vba-selecting-start-documents.html)
5
+
6
+ 追記
7
+ ---
8
+
9
+ 下記の '追加 の行を挿入したらどうでしょう。
10
+
11
+ ```vba
12
+ Sub LOAD()
13
+
14
+ With Selection.Find
15
+ .ClearFormatting '追加
16
+ .Text = "\<*\>"
17
+ .Wrap = wdFindContinue
18
+ .MatchFuzzy = False
19
+ .MatchWildcards = True
20
+
21
+ Do While .Execute
22
+ Selection.Font.Color = wdColorWhite
23
+ Selection.Range.HighlightColorIndex = wdWhite
24
+ Loop
25
+
26
+ End With
27
+ ActiveDocument.Bookmarks("\StartOfDoc").Select '追加
28
+
29
+ End Sub
30
+ ```