如何在Word宏中添加wdFieldFillIn字段时不弹出输入提示

我通过DDE向Word宏发送若干字段名，宏利用这些字段名创建类型为wdFieldFillIn的字段。当前遇到的问题出在document.Fields.Add函数处：每个FillInField都会弹出提示要求用户输入值，但我希望此时仅创建字段，不显示提示。

简化场景示例代码 #

Dim myRange As Range: Set myRange = Selection.Range
Dim FillInField As Field: Set FillInField = doc.Fields.Add( _
            Range:=selectedRange, _
            Type:=wdFieldFillIn, _
            Text:=fieldName)

已尝试方案 #

• 通过SendKeys "{ESCAPE}"发送按键：触发时机过晚，宏会等待提示框响应，无法解决问题。
• 写入纯文本格式：{ FILLIN My_Fieldname \* MERGEFORMAT }：内容未被识别为字段，达不到预期效果。

弹出的提示窗口 #

已采用的解决方案（参考@jonsson的回答） #

Dim FillInField As Field: Set FillInField = Selection.Fields.Add(_
            Range:=insertRange, _
            Type:=wdFieldEmpty, _
            Text:=fieldName)
FillInField.code.Text = "FILLIN " & fieldName & " \* MERGEFORMAT "
FillInField.Result.Text = fieldExampleText
Set FillInField = Nothing

实现效果：添加Fill-in-Field时不会向用户弹出提示。

内容的提问来源于stack exchange，提问作者Baron von Hoot