没有用过合并域,但会用VBA操作文本框。VBA调用文本框的名称和调用文本框的内容如下代码:
'调用文本框的名称代码
Sub getTextboxName()
For i = 1 To ThisDocument.Shapes.Count
If ThisDocument.Shapes(i).Type = msoTextBox Then MsgBox ThisDocument.Shapes(i).Name
Next
End Sub
'以下调用文本框内容代码
Sub getTextboxContent()
For i = 1 To ThisDocument.Shapes.Count
If ThisDocument.Shapes(i).Type = msoTextBox Then MsgBox ThisDocument.Shapes(i).TextFrame.TextRange.Text
Next
End Sub
含域的文本框内容如果有调用,即可通过Val(ThisDocument.Shapes(i).TextFrame.TextRange.Text)函数来转换数值判断单双。
你有写出来东西嘛?你只要能说清楚你要干啥?我就可以帮你实现。