这段代码的意思是要在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 |
加好友 
发短信
Post By：2018/8/26 16:51:00 [只看该作者]
