É possível ter um controle de conteúdo do selecionador de tempo no Word 2010 que mostrará a hora atual quando você clica nele?

Question

Eu quero criar vários campos de tempo que exibirão a hora atual quando você clicar nela, mas não atualizará quando eu atualizar os campos de incremento automático que estou usando no mesmo documento. Eu preciso de algo como o controle de conteúdo do selecionador de data. Eu tinha esperança quando vi que você poderia exibir a data como h:mm am/pm , mas é meio que inútil, porque ela só é exibida como 12:00 AM .

Existe alguma maneira de eu conseguir que o selecionador de data mostre a hora atual quando você clica em "hoje" ou há algo mais que eu possa fazer?

    

Answer 1

Sim, você pode usar os códigos de campo TIME. Atualize cada (F9) para que mostre a hora atual e, em seguida, bloqueie-a (Ctrl + F11) para que o valor não seja alterado quando você atualizar os outros campos no documento.

Se você quiser algum tipo de elemento de interface do usuário, para que isso aconteça com um clique do mouse, coloquei um exemplo extremamente bruto , onde inseri um dos controles de botão de comando do ActiveX herdados (em na guia Developer , clique em Ferramentas herdadas > Botão de comando ), adicionou um espaço depois e inseriu um campo TIME. Em seguida, adicionei este código áspero ao botão (clique com o botão direito e clique em View Code ) para mover o foco para fora do botão, mova os 2 espaços do cursor para a direita (no campo), atualizar e bloquear o campo e, em seguida, mover o foco para fora do campo:

Private Sub CommandButton1_Click()
  Selection.MoveRight Unit:=wdCharacter, Count:=2
  Selection.Fields.Update
  Selection.Fields.Locked = True
  Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

A menos que alguém desbloqueie manualmente o campo (Shift + Ctrl + F11), cada botão pode ser usado apenas uma vez, tornando-o apropriado para um registro de data e hora, que é o que parece que você realmente quer. Não é bonito, mas talvez seja um ponto de partida para você trabalhar em algo mais sofisticado.

Como alternativa, como o tempo não precisa ser atualizado, a guia Inserir inclui um botão Inserir data e hora que pode inserir um registro de data e hora como texto estático. Você pode gravar uma macro clicando no botão e selecionando o formato de hora desejado. Ou, para usar um controle Command Button novamente, você poderia adicionar um código como este, que apenas chama Inserir data e hora para inserir a hora imediatamente após o botão:

Private Sub CommandButton1_Click()
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.InsertDateTime DateTimeFormat:="h:mm:ss am/pm", InsertAsField:=False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, InsertAsFullWidth:=False
End Sub