Classe TextInput - campo de formulário de texto. (Word VBA)

A classe TextInput representa um único campo de formulário de texto. Para usar uma variável de classe TextInput, ela primeiro precisa ser instanciada por exemplo

Dim tit as TextInput
Set tit = ActiveDocument.FormFields(1).TextInput

Clear

Exclui o texto do campo de formulário de texto especificado.

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True 
If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then 
 ActiveDocument.FormFields(1).TextInput.Clear 
End If

Default

Retorna ou define o texto que representa o conteúdo de caixa de texto padrão. Cadeia de caracteres de leitura/gravação. O comprimento da cadeia de caracteres está limitado a 255 caracteres.

ActiveDocument.FormFields(1).TextInput.Default =

EditType

Define opções para o campo de formulário texto especificado.

EditType (Type, Default, Format, Enabled)

With ActiveDocument.FormFields.Add _ 
 (Range:=ActiveDocument.Range(0, 0), _ 
 Type:=wdFieldFormTextInput) 
 .Name = "Today" 
 .TextInput.EditType Type:=wdCurrentDateText, _ 
 Format:="M/d/yy", Enabled:=False 
End With

Arguments

O seguinte argumento é necessário

Type (WdTextFormFieldType) - O tipo da caixa de texto.

Os valores possíveis são

Optional arguments

Os seguintes argumentos são opcionais

Default (String) - O texto padrão que aparece na caixa de texto.

Format (String) - A sequência de formatação usada para formatar o texto, número ou data (por exemplo, "0,00", "primeira letra de cada palavra em maiúscula" ou "d/m/aa"). Para obter mais exemplos de formatos, consulte a lista de formatos do tipo de campo de formulário texto especificado na caixa de diálogo Opções do campo de formulário texto.

Enabled (Boolean) - True para habilitar o campo de formulário para entrada de texto.

Format

Retorna o texto de formatação para a caixa de texto especificado. Cadeia de caracteressomente leitura.

If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then 
 MsgBox ActiveDocument.FormFields(1).TextInput.Format 
Else 
 MsgBox "First field is not a text form field" 
End If

Type

Retorna o tipo de campo de formulário de texto. Somente leitura WdTextFormFieldType. Os valores de retorno possíveis são wdCalculationText - Campo do texto de cálculo, wdCurrentDateText - Campo do texto de data atual, wdCurrentTimeText - Campo do texto de hora atual, wdDateText - Campo do texto da data, wdNumberText - Campo do texto do número, wdRegularText - Campo do texto regular.

Dim wtfType As WdTextFormFieldType
wtfType = ActiveDocument.FormFields(1).TextInput.Type

Valid

True se o objeto de campo de formulário especificado for um campo de formulário caixa de seleção válido. Somente leitura booleano.

If ActiveDocument.FormFields(1).TextInput.Valid = True Then 
 ActiveDocument.FormFields(1).Result = "Hello" 
End If

Width

Retorna ou define a largura, em pontos, do campo de entrada de texto especificado. Long de leitura/gravação.

ActiveDocument.FormFields(1).TextInput.Width =