Formatar Hora e CPF em formulários do Word

Question

Prezados amigos, utilizo o Office 2016, passei 2 dias tentando, pesquisando e não consegui resolver o problema, desenvolvi um formulário em que existem os campos horas e CPF, tentei formatar para que a pessoa ao inserir apenas números, já transforme no aspecto requerido,  achei a opção de horas no Controle de Conteúdo, na opção do calendário, mas não deu resultado, talvez seja algo simples, mas já tentei várias coisas e nada, se alguém puder ajudar, ficarei grato!! 

Answer 1

https://www.youtube.com/watch?v=IweZ2RiLOno

---

Anderson Diniz

Answer 2

Olá Anderson,

Vi o vídeo e tentei usar para horas, conforme abaixo, mas não deu certo ao preencher os 4 números de horas os 2 pontos vão para a esquerda, os 2 primeiros dígitos somem e os 2 últimos passam para a direita dos 2 pontos:
                            

Private Sub TextBox215_Change()

If IsNumeric(TextBox215.Text) Then

If Len(TextBox215.Text) = 4 Then

partel = Left(TextBox215.Text, 2)

parte2 = Right(TextBox215.Text, 2)

TextBox215.Text = parte1 & ":" & parte2
End If

End If

End Sub

Em relação a CPF não faço a mínima ideia de como fazer pode me ajudar também?

Desde já grato.

Answer 3

Private Sub TextBox215_Change()
Dim parte1 As String
Dim parte2 As String
If IsNumeric(TextBox215.Text) Then

If Len(TextBox215.Text) = 4 Then

parte1 = Left(TextBox215.Text, 2)

parte2 = Right(TextBox215.Text, 2)

TextBox215.Text = parte1 & ":" & parte2
End If

End If

End Sub

Já testei e funciona. É só copiar e colar.

---

Anderson Diniz

Answer 4

Private Sub TextBox216_Change()

'205.054.717-06

If IsNumeric(TextBox216.Text) Then

If Len(TextBox216.Text) = 11 Then

parte1 = Left(TextBox216.Text, 3)

parte2 = Left(TextBox216.Text, 6)
parte2b = Right(parte2, 3)
parte3 = Left(TextBox216.Text, 9)
parte3b = Right(parte3, 3)

parte4 = Right(TextBox216.Text, 2)

TextBox216.Text = parte1 & "." & parte2b & "." & parte3b & "-" & parte4
End If

End If

End Sub

Já foi testado e funciona. Se não funcionar aí, é porque houve erro de digitação. Se não der certo, informe o nome da caixa de texto  referente ao CPF para eu alterar o código.

---

Anderson Diniz

Answer 5

Prezado Anderson,

                         Só tenho a lhe agradecer por dividir seu conhecimento com os demais, hoje em dia em nosso país isso é difícil, as fórmulas funcionaram perfeitamente, fico imensamente grato pela sua ajuda!!!

                          Obrigado!!!

Sílvio