我有一个 VBScript(虽然我可以将它与 VBA 联系起来),它具有:
Set selection = application.Selection
With document.Fields.Add(selection.Range, 35, "Default" , True)
.Result.Paste
...
注意:文档变量之前已声明,如果字段类型引用,则为 35。
问题 在以前的 Word 版本中,粘贴将在字段本身中完成,因此用新文本替换“默认”文本,但在 Word 2013 中,这将导致删除“默认”文本并将字段前面的数据作为纯文本粘贴。所以你最终会得到纯文本和空字段。