回答編集履歴
1
test
CHANGED
|
@@ -13,8 +13,8 @@
|
|
|
13
13
|
p = .Information(wdActiveEndPageNumber)
|
|
14
14
|
l = .Information(wdFirstCharacterLineNumber)
|
|
15
15
|
```
|
|
16
|
-
**②文字列ごとにカーソルを文頭に移動させる**
|
|
16
|
+
**②検索文字列が変わるごとにカーソルを文頭に移動させる**
|
|
17
|
-
もともとのコードですと次の文字列に
|
|
17
|
+
もともとのコードですと次の検索文字列に移った際に文章の途中から検索を開始して、結果が重複して出力される状態でした。そのため、次の文字列に移った場合は文頭から検索されるよう、カーソルを文頭に移動させるようにしました。
|
|
18
18
|
↓のコードを追加
|
|
19
19
|
```vba
|
|
20
20
|
.Move Unit:=wdStory, Count:=-1 '文章の先頭にカーソルを移動
|