回答編集履歴
1
コード追記
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
|
+
```
|