回答編集履歴
1
変数宣言を追加
test
CHANGED
|
@@ -9,6 +9,10 @@
|
|
|
9
9
|
Sub ChangeBlankToA()
|
|
10
10
|
|
|
11
11
|
Dim oSelection As Object
|
|
12
|
+
|
|
13
|
+
Dim oSearch As Object
|
|
14
|
+
|
|
15
|
+
Dim oFound As Object
|
|
12
16
|
|
|
13
17
|
oSelection=ThisComponent.CurrentSelection
|
|
14
18
|
|