vba - 在 VBA 中创建交叉引用但在保存时丢失格式

Question

我正在通过 VBA 从头开始​​创建一个 Word 文档作为 OLE 对象，并在其中创建了交叉引用。我实际上使用的是 LotusScript，但应该适用 VBA 的原则。

创建交叉引用后，我会格式化包含它的整个表格单元格（Arial 8 斜体），但是在保存文档时，该字段会更新其格式。我知道我可以通过勾选 Word 前端中的“在更新期间保留格式”选项手动设置字段的属性，但是是否有 VBA 属性呢？

注意，交叉引用是一个标题，我得到的格式似乎与那个标题相同，这不是我想要的。

非常感谢，菲尔

Answer 1

我找到了解决方案:-)

这是 LotusScript，但我相信 VB 用户可以理解它的含义。另外，我调用了一个函数和 3 个子例程，这些都是不言自明的。 rg是一个范围，我刚刚在其中创建了交叉引用。由于应用程序的性质，我知道该字段是该范围内的第一个字段。最后一行是重要的。

Set rg = getTableCell(subTable, 2, 1).Range
Dim fld As Variant
Set fld = rg.Fields(1)

Call SetItalicsOnOff(rg, True)
Call SetFontFace(rg, "Arial")
Call SetFontSize(rg, 8)
fld.Code.Text = fld.Code.Text & " \* MERGEFORMAT"