[Resolvido]Formatar campo CPF no WORD como feito no ACCESS

Tenho este código abaixo mas o CPF e outros campos que exigem formatação própria, não aparecem com a formatação do Access:
Por exemplo, o CPF aparece assim no Word: 12345678900 e não aparece os pontos e o traço.

Private Sub VisualizarContrato_Click()
Dim AppWord As Object, strFinalDoc As String
strFinalDoc = CurrentProject.Path & "\ContratoModelo.rtf"

Set AppWord = CreateObject("Word.Application")
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add(strFinalDoc)

With DocWord.Content.Find
.Execute findtext:="{DATA}", replacewith:=Data, Format:=True, Replace:=2
.Execute findtext:="{NRCONTRATO}", replacewith:=Me.NrContrato, Format:=True, Replace:=2
.Execute findtext:="{EMPREENDIMENTO}", replacewith:=Me.Empreendimento, Format:=True, Replace:=2

.Execute findtext:="{VENDEDORA}", replacewith:=Nz(Me.Vend1), Format:=True, Replace:=2
.Execute findtext:="{CNPJ}", replacewith:=Nz(Me.Vend1CNPJ), Format:=True, Replace:=2
.Execute findtext:="{ENDEREÇO}", replacewith:=Nz(Me.Vend1End), Format:=True, Replace:=2
.Execute findtext:="{CIDADE}", replacewith:=Nz(Me.Vend1Cidade), Format:=True, Replace:=2
.Execute findtext:="{ESTADO}", replacewith:=Nz(Me.Vend1Estado), Format:=True, Replace:=2

.Execute findtext:="{VENDEDORA2}", replacewith:=Nz(Me.Vend2), Format:=True, Replace:=2
.Execute findtext:="{CNPJVEND2}", replacewith:=Nz(Me.Vend2CNPJ), Format:=True, Replace:=2
.Execute findtext:="{ENDVEND2}", replacewith:=Nz(Me.Vend2End), Format:=True, Replace:=2
.Execute findtext:="{CIDADEVEND2}", replacewith:=Nz(Me.Vend2Cidade), Format:=True, Replace:=2
.Execute findtext:="{ESTADOVEND2}", replacewith:=Nz(Me.Vend2Estado), Format:=True, Replace:=2

.Execute findtext:="{TITULAR1}", replacewith:=Nz(Me.Vend1TitNome), Format:=True, Replace:=2
.Execute findtext:="{CPF1}", replacewith:=Nz(Me.Vend1TitCPF), Format:=True, Replace:=2
.Execute findtext:="{IDENTIDADE1}", replacewith:=Nz(Me.Vend1TitIdentidade), Format:=True, Replace:=2
.Execute findtext:="{ORGAOESTADO1}", replacewith:=Nz(Me.Vend1TitOrgaoEstado), Format:=True, Replace:=2
.Execute findtext:="{ENDEREÇO1}", replacewith:=Nz(Me.Vend1TitEndereço), Format:=True, Replace:=2
.Execute findtext:="{CIDADE1}", replacewith:=Nz(Me.Vend1TitCidade), Format:=True, Replace:=2
.Execute findtext:="{ESTADO1}", replacewith:=Nz(Me.Vend1TitEstado), Format:=True, Replace:=2
.Execute findtext:="{NAC1}", replacewith:=Nz(Me.Vend1TitNac), Format:=True, Replace:=2
.Execute findtext:="{ESTCIVIL1}", replacewith:=Nz(Me.Vend1TitEstCivil), Format:=True, Replace:=2
.Execute findtext:="{PROF1}", replacewith:=Nz(Me.Vend1TitProf), Format:=True, Replace:=2

.Execute findtext:="{TITULAR2}", replacewith:=Me.Vend2TitNome, Format:=True, Replace:=2
.Execute findtext:="{CPF2}", replacewith:=Me.Vend2TitCPF, Format:=True, Replace:=2
.Execute findtext:="{IDENTIDADE2}", replacewith:=Me.Vend2TitIdentidade, Format:=True, Replace:=2
.Execute findtext:="{ORGAOESTADO2}", replacewith:=Me.Vend2TitOrgaoEstado, Format:=True, Replace:=2
.Execute findtext:="{ENDEREÇO2}", replacewith:=Me.Vend2TitEndereço, Format:=True, Replace:=2
.Execute findtext:="{CIDADE2}", replacewith:=Me.Vend2TitCidade, Format:=True, Replace:=2
.Execute findtext:="{ESTADO2}", replacewith:=Me.Vend2TitEstado, Format:=True, Replace:=2
.Execute findtext:="{NAC2}", replacewith:=Me.Vend2TitNac, Format:=True, Replace:=2
.Execute findtext:="{ESTCIVIL2}", replacewith:=Me.Vend2TitEstCivil, Format:=True, Replace:=2
.Execute findtext:="{PROF2}", replacewith:=Me.Vend2TitProf, Format:=True, Replace:=2

.Execute findtext:="{NOMEC1}", replacewith:=Me.C1Nome, Format:=True, Replace:=2
.Execute findtext:="{NACC1}", replacewith:=Me.C1Nac, Format:=True, Replace:=2
.Execute findtext:="{ESTCIVILC1}", replacewith:=Me.C1EstCivil, Format:=True, Replace:=2
.Execute findtext:="{PROFC1}", replacewith:=Me.C1Prof, Format:=True, Replace:=2
.Execute findtext:="{IDENTC1}", replacewith:=Me.C1Ident, Format:=True, Replace:=2
.Execute findtext:="{ORGAOESTADOC1}", replacewith:=Me.C1OrgaoEstado, Format:=True, Replace:=2
.Execute findtext:="{CPFC1}", replacewith:=Me.C1Cpf, Format:=True, Replace:=2
.Execute findtext:="{ENDC1}", replacewith:=Me.C1End, Format:=True, Replace:=2
.Execute findtext:="{CIDADEC1}", replacewith:=Me.C1Cidade, Format:=True, Replace:=2
.Execute findtext:="{ESTADOC1}", replacewith:=Me.C1Estado, Format:=True, Replace:=2
.Execute findtext:="{CEPC1}", replacewith:=Me.C1Cep, Format:=True, Replace:=2
.Execute findtext:="{TELFIXOC1}", replacewith:=Nz(Me.C1Tel1), Format:=True, Replace:=2
.Execute findtext:="{TELCELC1}", replacewith:=Nz(Me.C1Tel2), Format:=True, Replace:=2
.Execute findtext:="{EMAILC1}", replacewith:=Nz(Me.C1Email), Format:=True, Replace:=2

.Execute findtext:="{NOMEC2}", replacewith:=Nz(Me.C2Nome), Format:=True, Replace:=2
.Execute findtext:="{NACC2}", replacewith:=Nz(Me.C2Nac), Format:=True, Replace:=2
.Execute findtext:="{ESTCIVILC2}", replacewith:=Nz(Me.C2EstCivil), Format:=True, Replace:=2
.Execute findtext:="{PROFC2}", replacewith:=Nz(Me.C2Prof), Format:=True, Replace:=2
.Execute findtext:="{IDENTC2}", replacewith:=Nz(Me.C2Ident), Format:=True, Replace:=2
.Execute findtext:="{ORGAOESTADOC2}", replacewith:=Nz(Me.C2OrgaoEstado), Format:=True, Replace:=2
.Execute findtext:="{CPFC2}", replacewith:=Nz(Me.C2Cpf), Format:=True, Replace:=2
.Execute findtext:="{ENDC2}", replacewith:=Nz(Me.C2End), Format:=True, Replace:=2
.Execute findtext:="{CIDADEC2}", replacewith:=Nz(Me.C2Cidade), Format:=True, Replace:=2
.Execute findtext:="{ESTADOC2}", replacewith:=Nz(Me.C2Estado), Format:=True, Replace:=2
.Execute findtext:="{CEPC2}", replacewith:=Nz(Me.C2Cep), Format:=True, Replace:=2
.Execute findtext:="{TELFIXOC2}", replacewith:=Nz(Me.C2Tel1), Format:=True, Replace:=2
.Execute findtext:="{TELCELC2}", replacewith:=Nz(Me.C2Tel2), Format:=True, Replace:=2
.Execute findtext:="{EMAILC2}", replacewith:=Nz(Me.C2Email), Format:=True, Replace:=2

.Execute findtext:="{LOTE}", replacewith:=Me.Lote, Format:=True, Replace:=2
.Execute findtext:="{QUADRA}", replacewith:=Me.Quadra, Format:=True, Replace:=2
.Execute findtext:="{LOGRADOURO}", replacewith:=Me.Logradouro, Format:=True, Replace:=2
.Execute findtext:="{FRENTE}", replacewith:=Me.Frente, Format:=True, Replace:=2
.Execute findtext:="{FUNDOS}", replacewith:=Me.Fundos, Format:=True, Replace:=2
.Execute findtext:="{LADODIREITO}", replacewith:=Me.LadoDireito, Format:=True, Replace:=2
.Execute findtext:="{LADOESQUERDO}", replacewith:=Me.LadoEsquerdo, Format:=True, Replace:=2
.Execute findtext:="{CHANFRO}", replacewith:=Nz(Me.Chanfro), Format:=True, Replace:=2
.Execute findtext:="{DIVFUNDOS}", replacewith:=Me.DivFundos, Format:=True, Replace:=2
.Execute findtext:="{DIVLD}", replacewith:=Me.DivLD, Format:=True, Replace:=2
.Execute findtext:="{DIVLE}", replacewith:=Me.DivLE, Format:=True, Replace:=2
.Execute findtext:="{METRAGEMTOTAL}", replacewith:=Me.MetragemTotal, Format:=True, Replace:=2
.Execute findtext:="{METRAGEMEXT}", replacewith:=Me.MetragemTotalExt, Format:=True, Replace:=2
.Execute findtext:="{VALORTOTAL}", replacewith:=Me.ValorTotal, Format:=True, Replace:=2
.Execute findtext:="{VALORTOTALEXT}", replacewith:=Me.ValorTotalExt, Format:=True, Replace:=2
.Execute findtext:="{QTDEPARCELA}", replacewith:=Me.QtdeParcelas, Format:=True, Replace:=2
.Execute findtext:="{QTDEPARCELAEXT}", replacewith:=Me.QtdeParcelasExt, Format:=True, Replace:=2
.Execute findtext:="{VALORPARCELA}", replacewith:=Me.ValorParcela, Format:=True, Replace:=2
.Execute findtext:="{VALORPARCELAEXT}", replacewith:=Me.ValorParcExt, Format:=True, Replace:=2
.Execute findtext:="{VENCPARCELA1}", replacewith:=Me.VencParcela1, Format:=True, Replace:=2
.Execute findtext:="{DATACORREÇÃO}", replacewith:=Me.DataCorreção, Format:=True, Replace:=2

EscribeWord (Me.Id)
DoEvents
If MsgBox("Visualizar Contrato " & vbCrLf & Me.NrContrato & "-" & Me.NomeC1, vbExclamation + vbNo, "Confirme") = vbYes Then
AppWord.PrintOut
End If
'DocWord.Open True
Set DocWord = Nothing
End With

AppWord.Quit
Set AppWord = Nothing
End Sub

----------------------------------------------------------------------------------------
Atenciosamente

Ari

Já tentou algo assim?

Código:

...=Nz(Format(Me.Vend1TitCPF, "###.###.###-##"))...

Ou talvez assim:

Código:

=Nz(Left(Me.Vend1TitCPF, 3)) & "." & Nz(Mid(Me.Vend1TitCPF, 4, 3)) & "." & Nz(Mid(Me.Vend1TitCPF, 7, 3)) & "-" & Nz(Right(Me.Vend1TitCPF, 2))

Não funcionaram

Ari

Ari

Esse botão de visualização está no Access?
Ou seja, esses dados que quer visualizar no Word estão numa tabela?
Se sim, verifique como está gravado na tabela esses CPF's, se formatados ou somente números.
Lembre-se que o número do CPF/CGC é string e não numéricos, portanto , na máscara de entrada do CPF/CGC,
você pode escolher gravar na tabela somente os números ou com a mascara (xxx.xxx.xxx-xx).
Uma vez escolhido com a máscara, acredito que os dados serão importados para o Word , formatados.
Caso estejam gravados somente números da na tabela, teste colocando a formatação diretamente em um registro e visualize.

Abraços

Noob

Botão de visualização está num formulário access.
Os dados estão numa tabela com o campo CPF formatado com máscara 000\.000\.000\-00;;_ e os detalhes da máscara(pontos e hífen) não são enviados ao ContratoModelo.rtf.

O problema está na máscara do formulário:
Se coloco a máscara 000\.000\.000\-00;;_ não envia o cpf formatado como 000.000.000-00.
Se tiro a máscara, sou obrigado a digitar os pontos e hífen (texto) - o que eu não quero -

Ari

Ari

O que gostaria de saber é se o CPF está gravado com mascara na tabela (123.456.789.10) se sim,
você pode pegar o cpf da tabela e não do formulário.


Noob

Sim, seria a solução...mas como direcionar para a tabela? O código que postei não fui eu que fiz. Onde modificar-lo para que isto aconteça?

Ari

Ari

Anexe as partes de teu aplicativo, com os objetos em questão,
Assim podemos der uma boa olhada de perto e fazer os testes., ok?


Noob

Eis o arquivo:
http://www.4shared.com/zip/MVyUCRHPce/SGL-8-7_19-11-14.html

Obs: Este mesmo arquivo que está em formato zip, depois de "Escolher arquivo", ao "Enviar" retorna que "o arquivo não é válido". E não é a primeira vez.

Abraços

Ari

Olá Ari

Como pode ver, eu anexei o teu arquivo.zip

Como você compactou esse arquivo?
Estou propenso a acreditar que usou o winrar
criando um arquivo.rar e depois renomeando para .zip, é isso?

Vou ver teu aplicativo.

Noob

Ari

Aqui está teu aplicativo modificado.

Veja que modifiquei somente uma linha no código.
Deixo pra você modificar, onde precisar, tendo por base o código que coloquei

Abraços


Noob

Novo Anexo - 23/11/2004

Caro Noobe,
O problema não foi resolvido.
Faça o seguinte teste:
No formulário preciso digitar o CPF com máscara.
Coloque a máscara de CPF no C2CPF que você tirou e veja se funciona.
Sem a máscara, funciona, mas não é o que eu preciso.
O "X" da questão está aí.

Abraços

Ari

Ari

Se você baixar e verificar no teu exemplo disponibilizado no 4shared ,
irá verificar que eu não mudei NADA na estrutura do formulário e que
a máscara mencionada por você, não existe nesse controle já no
exemplo disponibilizado por você.

Veja que C1Cpf está com máscara e C2Cpf está sem.

E mais outra coisa, quando colocar o código passado por mim em C1Cpf, irá notar que vai
continuar não aceitando a formatação.
Então, entre na tabela e redigite o cpf e irá funcionar.

Ari - Clique aqui para ver a imagem:

Noob

Primeiramente lhe peço desculpas por dizer que você havia retirado a máscara do campo C1CPF, me perdoe, me confundi.

Segundo:
- Coloquei o código que você fez no C2CPF, no campo C1CPF
- Coloquei máscara nos campos C1CPF e C2CPF no Formulário
- Coloquei máscara nos campos C1CPF e C2CPF na tabela
- Alterei o CPF na tabela.
Funcionou...

Ops...Mas se eu atualizar pelo formulário, que é o caminho certo, não funciona.

Abraços

Ari

Ari

Fiz o mesmo procedimento que você.
Coloquei as máscaras  nos campos da tabela e nos dois controles do formulário.
Eu recriei as máscaras. optando para armazenar com os símbolos na tabela , fiz isso tanto na tabela quanto nos controles.
Adicionei uma linha de código no botão visualizar para SALVAR o registro antes de visualizar no word.
Vou susbstituir  o anexo que postei por outro. baixe ele lá,ok?
Há !!,  Enganos faz parte da vida de nós "Umanos", fica frio !!    

Abraços

Noob

Funcionou!!!
Muito obrigado Noob pelo acompanhamento.

Abraços.

Ari.

Ótimo Ari

Valeu o retorno

Boa sorte!

Noob