这段代码的意思是要在WORD中的选定区域删除指定的字符:If qwstr <> "" Then '删除表中的指定字符
arr = Split(qwstr, ",")
With _app.Selection
For i = 0 To arr.Length - 1
.Find.Text = arr(i)
.Find.Replacement.Text = ""
.Find.Execute Replace:=wdReplaceAll
output.show(arr(i))
Next
End With
End If
但是执行时有这样的提示:
编译错误:方法参数必须在括号内
.Find.Execute Replace:=wdReplaceAll
这个代码的写法是VBA中的写法,我不清楚这样的情况在Foxtable中该如何写?
下述是VBA官方帮助文件的内容:
Replacement 对象代表查找和替换操作的替换条件。Replacement
对象的属性和方法对应于“查找和替换”对话框中的选项(单击“编辑”菜单中的“查找”或“替换”命令可显示该对话框)。
可通过 Find 对象使用 Replacement
对象。下列示例将所有单词“hi”替换为“hello”。由于 Find 对象是通过 Selection 对象访问的,所以当找到搜索条件时,会更改所选内容。
With Selection.Find
.ClearFormatting
.Text = "hi"
.Replacement.ClearFormatting
.Replacement.Text = "hello"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
Replace Variant
类型,可选。指定执行替换的个数:一个、全部或者不替换。可取下列 WdReplace 常量之一。
WdReplace 可以是下列 WdReplace 常量之一: |
wdReplaceAll |
wdReplaceNone |
wdReplaceOne |