WD2000: Como criar datas ordinal (legal) em campos de formulário

ID do artigo: 212689 - Exibir os produtos aos quais esse artigo se aplica.
Tradução automáticaExibir Aviso de Isenção de Tradução Automática
Expandir tudo | Recolher tudo

Nesta página

Sumário

Este artigo fornece um método que você pode usar para automaticamente exibir datas no formulário arábicos ordinal (às vezes referido como ofício como formulário) usando campos de formulário do Word.

A seguir estão exemplos de datas no formulário ordinal (ordinal números indicam a ordem em uma seqüência ordenada): 
   23rd day of February, 1999

   March 21st, 1999

   Tuesday the 15th, 1999
Voltar para o início | Submeter comentários

Mais Informações

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades. A macro a seguir recupera a data válida resultado digitado em um campo de formulário, extrai o dia a partir da data e determina o ordinal com base no dia. A macro termina retornando a nova data formatação ao campo de formulário usando o Visual Basic for Applications Formatar função. 
Sub GetOrdinalDates()
   Dim fDate As FormField
   ' If no documents are open or if no form fields
   ' exist in the active document, or for other
   ' errors, exit this routine.
   On Error GoTo errhandler
   ' Replace the word Date with the name of your
   ' form field with your formfield bookmark name.
   Set fDate = ActiveDocument.FormFields("Date")
   ' Is the result of the form field a valid date?
   If Not IsDate(fDate.Result) Then Exit Sub
   ' Determine date format.
   Select Case Day(fDate.Result)
      Case 1, 21, 31
         daysuffix$ = Day(fDate.Result) & "st"
      Case 2, 22
         daysuffix$ = Day(fDate.Result) & "nd"
      Case 3, 23
         daysuffix$ = Day(fDate.Result) & "rd"
      Case Else
         daysuffix$ = Day(fDate.Result) & "th"
   End Select
   ' Use ONE of the following formats.
   ' Remove the remark(apostrophe) from the
   ' command lines that produce the desired format.
   ' -----------------------------------------------
   ' - Format example: 24th day of February, 1999
'   fDate.Result = daysuffix$ & " day of " _
'      & Format$(fDate.Result, "mmmm, yyyy")

    ' - Format example: February 24th, 1999
'   fDate.Result = Format$(fDate.Result, "mmmm") & " " & _
'       daysuffix$ & Format$(fDate.Result, ", yyyy")

    ' - Format example: Tuesday the 24th, 1999
'   fDate.Result = Format$(fDate.Result, "dddd") & " the " & _
'      daysuffix$ & Format$(fDate.Result, ", yyyy")
errhandler:
End Sub
para obter mais informações sobre como usar o código de exemplo neste artigo, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
212536
(http://support.microsoft.com/kb/212536/EN-US/ )
OFF2000: Como executar o código de exemplo de artigos da Knowledge Base

Criar o formulário

Observação : deve ser dois campos de formulário na forma para que este exemplo funcione.
  1. No menu Exibir , aponte para barras de ferramentas e, em seguida, clique em formulários .
  2. Na barra de ferramentas formulários , selecione o Campo de formulário texto e clique em Opções .
  3. Na lista tipo , selecione o texto .
  4. Em Configurações do campo , substitua Texto1 a palavra Data .
  5. Na caixa de lista Sair , em "macro de executar em" , selecione a macro "GetOrdinalDates" .
  6. Clique em OK .
  7. Repita a etapa 2 para inserir um segundo campo de formulário.
  8. No menu Ferramentas , clique em Proteger documento .
  9. Selecione a opção de formulários e, em seguida, clique em OK . Word move o ponto de inserção para o primeiro campo de formulário.
  10. No campo de formulário que designou como a data, digite o valor numérico de data. Por exemplo, digite 10/12/99 .
  11. Pressione TAB para mover para o próximo campo do formulário.
Voltar para o início | Submeter comentários

Referências

Para obter mais informações sobre como obter ajuda com o Visual Basic para aplicativos, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
226118
(http://support.microsoft.com/kb/226118/EN-US/ )
OFF2000: Programação recursos para o Visual Basic for Applications
Voltar para o início | Submeter comentários

Propriedades

ID do artigo: 212689 - Última revisão: quarta-feira, 11 de outubro de 2006 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft Word 2000 Standard Edition
Palavras-chave: 
kbmt kbdtacode kbhowto kbprogramming KB212689 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 212689
(http://support.microsoft.com/kb/212689/en-us/ )
Voltar para o início | Submeter comentários

Submeter comentários

 
Voltar para o inícioVoltar para o início