質問編集履歴

1

誤字修正・追記

2018/09/26 00:27

投稿

hood
hood

スコア351

test CHANGED
File without changes
test CHANGED
@@ -7,6 +7,10 @@
7
7
 
8
8
 
9
9
  しかし、最近そのマクロにある機能を追加する必要が出てきました。それは「ループ処理終了後、検索を始めた部分までカーソルを移動する」という機能です。
10
+
11
+
12
+
13
+
10
14
 
11
15
  文書の最初なら、`ActiveDocument.Range(0, 0).Select`とすればいいとは調べて分かったのですが、検索を始めた部分まではわかりませんでした。
12
16
 
@@ -75,3 +79,53 @@
75
79
  End Sub
76
80
 
77
81
  ```
82
+
83
+ ---
84
+
85
+ 追記
86
+
87
+
88
+
89
+ 「ループ処理終了後、検索を始めた部分までカーソルを移動する」について以下に例を示します。
90
+
91
+
92
+
93
+ 処理前のword文書
94
+
95
+ (カーソルよりしたの数字に+1するマクロを使う)
96
+
97
+ ```lang-text
98
+
99
+ 1
100
+
101
+ 2
102
+
103
+ (ここにカーソルがあるとする)
104
+
105
+ 3
106
+
107
+ 4
108
+
109
+ 5
110
+
111
+ ```
112
+
113
+ 処理後のword文書
114
+
115
+ ```lang-text
116
+
117
+ 1
118
+
119
+ 2
120
+
121
+ (本来なら一番下にカーソルがいったままだが、ここにカーソルを戻したい。)
122
+
123
+ 4(ループ処理で+1されている)
124
+
125
+ 5(ループ処理で+1されている)
126
+
127
+ 6(ループ処理で+1されている)
128
+
129
+ ```
130
+
131
+ ---