Checkbox 使用vbs查找和替换符号

我正在处理一个1XXX Word文档，我想使用vbs更快地更改复选框的状态，但我找不到任何工作解决方案，之后，我想知道查找和替换是否可以解决我的问题，因此我为此编写了一些代码

Const wdReplaceAll  = 2

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

Set objDoc = objWord.Documents.Open("C:\checkbox.doc")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

objSelection.Find.Text = "@1"
objSelection.Find.Forward = TRUE
objSelection.Find.MatchWholeWord = TRUE

objSelection.Find.Replacement.Text = objSelection.InsertSymbol 253, "Wingdings"
objSelection.Find.Execute ,,,,,,,,,,wdReplaceAll

---

但是，它不能工作，并且总是在objSelection.InsertSymbol 253上显示错误…

您不能在这样的作业中使用

InsertSymbol

。将搜索文本替换为格式为“Wingdings”的适当字符：

或者只需

查找

搜索文本，然后对所选内容使用

插入符号

：

objSelection.Find.Text = "@1"
objSelection.Find.Execute

objSelection.InsertSymbol 253, "Wingdings"

---

“更改复选框的状态”是什么意思？您是否尝试过循环查看

复选框对象

？如何使用vbs使用复选框对象？你能给我一些建议吗？复选框对象（Word）：顺便说一句，当你执行时，我是否需要将wdreplaceall变量更改为1？如果你这样做了，常数的名称将有误导性。最好创建一个新常量

constwdreplaceone=1

，并使用它。好的，它可以工作。但是，在使用vbs时，如何修改复选框的状态（勾选或取消勾选）？因为我不确定我们的老板是否会接受这个解决方案。这和你的问题有什么关系？

objSelection.Find.Text = "@1"
objSelection.Find.Execute

objSelection.InsertSymbol 253, "Wingdings"