Заполнение поля подавляет или закрывает подсказку при добавлении

Боюсь, то, что вы хотите, невозможно, пока вы используете поле «Заполнить», потому что по умолчанию оно определено для запуска окна сообщения (как вы сказали «окно подсказки»), которое должно быть введено пользователем. Вы можете установить значение по умолчанию только для ввода в VBA или в пользовательском интерфейсе, параметр "\d" используется в текстовом аргументе, но нет настройки, чтобы не отображать это окно сообщения.

fieldName = "\d """ '"" is what the default string value you want

Поскольку это окно сообщения открыто как эксклюзивная форма ( модальная ), выполнение кода VBA будет прервано. Если вы хотите выполнить что-то еще в VBA, возможно, вы можете попытаться создать UserForm и установить событие Timer и включить его в фоновом режиме, прежде чем выполнять метод .Add, UserForm, а затем запустить SendKeys в указанном месте. время. И насколько я знаю, многопоточность нельзя реализовать только на VBA

Вы можете обратиться к этой статье:

Коды полей: Заполняемое поле

Список кодов полей в Word

AIUI вы пытаетесь вставить поле FILLIN, фактически не выполняя его, чтобы вы могли выполнить его позже. НО, если это не так, возможно, вы могли бы уточнить.

Если это так, одним из способов было бы вставить его как «Пустой тип поля», а затем изменить его код поля следующим образом.

Dim f as Word.Field
Set f = Selection.Fields.Add(wdFieldEmpty,"")
f.Code.Text = " FILLIN My_FieldName " ' or whatever code you actually need
Set f = Nothing

Затем, когда поле действительно выполняется (как бы это ни было сделано), оно будет вести себя как обычный FILLIN.

Если вы хотите, чтобы поле было вставлено так, чтобы оно имело результат независимо от того, выполняется заполнение или нет, вам нужно сделать немного больше, потому что, например

Dim f as Word.Field
Set f = Selection.Fields.Add(wdFieldEmpty,"")
f.Code.Text = " FILLIN My_FieldName " ' or whatever code you actually need
f.Result.Text = "the text I want in the result"
Set f = Nothing

фактически вставит текст "после" результата поля. Но в этом случае все, что вам действительно нужно сделать, это вставить поле, которое имеет результат, и изменить его код, например.

Dim f as Word.Field
Set f = Selection.Fields.Add(wdFieldQuote,"the text I want in the result")
f.Code.Text = " FILLIN My_FieldName " ' or whatever code you actually need
Set f = Nothing

@OscarSun поднял вопрос о том, что свойство .Type объекта Word Field доступно только для чтения, поэтому вы не можете

Dim f as Word.Field
Set f = Selection.Fields.Add(wdFieldQuote,"the text I want in the result")
f.Type = wdFieldFillin

поскольку компилятор отметит попытку присвоения свойству только для чтения. И это правильно. ИМО, это наблюдение заслуживает небольшого пояснения.

Если вы используете следующий код, все может стать яснее:

    Sub insertfillin()
    Dim f As Word.Field
    Debug.Print "wdFieldQuote = " & CStr(WdFieldType.wdFieldQuote)
    Debug.Print "wdFieldFillin = " & CStr(WdFieldType.wdFieldFillin)
    Set f = Selection.Fields.Add(Selection.Range, WdFieldType.wdFieldQuote, "temp result")
    ' This should be the same as WdFieldType.wdFieldQuote
    Debug.Print "New field's type = " & CStr(f.Type)
    f.Code.Text = "FILLIN MyFieldName"
    ' This should be the same as WdFieldType.wdFieldFillin
    Debug.Print "Field type is now " & CStr(f.Type)
    Set f = Nothing
    End Sub

то есть мы на самом деле не пытались присвоить f.Type, поэтому компилятор не будет жаловаться. Возможно, с точки зрения программирования лучше всего видно, что изменение типа поля является побочным эффектом изменения его кода и, по-видимому, было бы запрещено, если бы, например, мы использовали функциональный язык программирования.