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

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.

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 =