回答編集履歴
1
変数宣言を追加
answer
CHANGED
|
@@ -4,6 +4,8 @@
|
|
|
4
4
|
```
|
|
5
5
|
Sub ChangeBlankToA()
|
|
6
6
|
Dim oSelection As Object
|
|
7
|
+
Dim oSearch As Object
|
|
8
|
+
Dim oFound As Object
|
|
7
9
|
oSelection=ThisComponent.CurrentSelection
|
|
8
10
|
oSearch =oSelection.createSearchDescriptor
|
|
9
11
|
oSearch.SearchString = ""
|