word vba 插入域代码

以下是在Word VBA中插入域代码的示例代码：

Sub InsertFieldCode() '定义变量 Dim rng As Range Dim fld As Field

'选择插入点
Set rng = Selection.Range

'插入域代码
Set fld = rng.Fields.Add(rng, wdFieldEmpty, "MERGEFIELD FieldName")
fld.Code.Text = "MERGEFIELD FieldName"
fld.Update

End Sub

在上面的代码中，将"FieldName"替换为实际的域名称。此代码将在文档中选择的位置插入一个域代码，并将其设置为"MERGEFIELD"类型的域，用于合并文档中的数据。