单词VBA将表单字段更改为数字

Question

我正在使用Word VBA创建表单字段，然后在该字段中插入一个值。

问题是我需要更改我创建的字段的数据类型。

代码：

  ActiveDocument.Bookmarks("Loan_Amount").Select
  ActiveDocument.FormFields.Add FFHere, wdFieldFormTextInput
  ActiveDocument.FormFields("Text1").Result = Value

周围有一次打猎，却找不到关于这个主题的任何内容。更改字段书签的名称也很不错（默认情况下自称为“Text1”）。

Answer 1

  

更改字段书签的名称也很不错（默认情况下自称为“Text1”）。

喜欢这个吗？

Sub Sample()
    Dim ff As FormField

    ActiveDocument.Bookmarks("Loan_Amount").Select

    Set ff = ActiveDocument.FormFields.Add(FFHere, wdFieldFormTextInput)
    ff.Name = "BlahBlah"
End Sub

这是一个插入文本字段但将其更改为日期字段

的示例

Sub Sample()
    Dim ff As FormField
    Set ff = ActiveDocument.FormFields.Add(FFHere, wdFieldFormTextInput)
    ff.Select
    With Selection.FormFields(1)
        '~~> Change Name Here
        .Name = "BlahBlah"
        '~~> Change Type here
        With .TextInput
            .EditType Type:=wdCurrentDateText, Default:="", Format:=""
            .Width = 0
        End With
    End With
End Sub

您可以将其更改为的其他类型

1. wdCurrentDateText
2. wdCalculationText
3. wdCurrentTimeText
4. wdDateText
5. wdNumberText（这是您的问题所要求的）

注意：我假设FFHere是有效范围