[Resolvido]MASCARA P/ WORD CPF/CNPJ

Ola pessoal, tenho um campo onde estou pretendendo que aceite cpf ou cnpj, acontece que o mesmo e utlizado para transferir as informaçoes para um documento word, só que esta transferido sem as pontuaçoes.

Ex. cpf no campo = 00.000.000-00 já no word = 0000000000


Este é codigo que estou usando para mascara no campo:
Private Sub CpfCnpj_AfterUpdate() (tambem no atual)

Select Case Len([CpfCnpj])
Case 14 ' É CNPJ.
Me![CpfCnpj].InputMask = "00\.000\.000\/0000\-00;0;_"

Case 11 ' É CPF.
Me![CpfCnpj].InputMask = "000\.000\.000\-00;0;_"
Case Else
' O valor do campo não é CNPJ nem CPF.
Me![CpfCnpj].InputMask = ""
End Select

Me.Recalc

End Sub

Aqui onde transfere para word
.Documents.Open FileName:=strCaminhoNomeDoc

.Selection.GoTo wdGoToBookmark, Name:="CPFP"
.Selection.TypeText CpfCnpj

grato..

teste assim:

.Documents.Open FileName:=strCaminhoNomeDoc

.Selection.GoTo wdGoToBookmark, Name:="CPFP"
.Selection.TypeText Text:= & CpfCnpj

JPaulo Grato pela atençao,

Deu erro sitaxe

.Selection.GoTo wdGoToBookmark, Name:="CPFP"
.Selection.TypeText Text:= & CpfCnpj

Obs. Percebi que no meu campo CpfCnpj quando redigito o valor acaba por dar certo transferindo corretamente para o word ???

Grato.

Gostaria de visualizar o codigo completo, pois não sei se você está a abrir recordset ou não.

Como é que vai buscar a informação do CpfCnpj ?


Sendo texto terá de estar entre aspas simpes:

.Selection.GoTo wdGoToBookmark, Name:="CPFP"
.Selection.TypeText Text:="'" & CpfCnpj & "'"

Caro JPaulo,segue abaixo o codigo que tenho aqui, mas acredito talvez que o problema nao seja nele, pois mesmo funciona perfeitamente quando coloco por exemplo No campo CpfCnpj a Mascara de Entrada 000"."000"."000" -"00;0;_ , agora quando a Mascara e feita via código ja nao fixa os pontos para transferir para o word, (apesar que aparentemente os pontos aparecerem no campo), sendo que ao redigitar o valor no campo, ai sim o valor e transferido com as devidas pontuaçoes. Por isso acredito que o problema talvez esteja na atualizaçao deste campo, ja tentei requery, acCmdRefresh, Recalc mas nao deu certo.

Private Sub GerarContratoLocação_Click()
On Error GoTo Err_GerarContrato_Click

If Me.CotratoLocação = True Then
Call imprimeDoc(Me.caminhoArquivo)
Else
DoCmd.CancelEvent
End If

Exit Sub
Exit_GerarContrato_Click:
Exit Sub

Err_GerarContrato_Click:
MsgBox " Defina o tipo de locação antes de gerar o contrato!"
Resume Exit_GerarContrato_Click
End Sub
----------------------------------------------------------

Private Sub localizar_Click()
Dim strFiltro As String
Dim strTitulo As String
strFiltro = "Word Documento (*.doc)" & Chr(0) & "*.doc" & Chr(0)
strTitulo = "Selecione o caminho do Arquivo: ''meus documentos\IMOBILIARIA\CONTRATO RESIDENCIAL.doc''"
'Pega o caminho do arquivo
Me.caminhoArquivo = Localizar("C:", strTitulo, strFiltro)

End Sub
----------------------------------------------------

Sub imprimeDoc(strCaminhoNomeDoc As String)
'Cortesia: Carlos Moura = www.espaco_access.kit.net
'Fazer referencia a biblioteca Microsoft Word OLB
On Error GoTo MergeButton_Err
Dim ObjectWord As New Word.Application

With ObjectWord
'.Documents.Add strCaminhoNomeDoc
.Documents.Open FileName:=strCaminhoNomeDoc

.Selection.GoTo wdGoToBookmark, Name:="NACIONALIDADEP"
.Selection.TypeText Me.Nacionalidade_propritario_
.Selection.GoTo wdGoToBookmark, Name:="ESTADOCIVILP"
.Selection.TypeText Me.Estado_Civil_proprietario_
.Selection.GoTo wdGoToBookmark, Name:="PROFISSAOP"
.Selection.TypeText Me.Profissao_proprietario_
.Selection.GoTo wdGoToBookmark, Name:="RGP"
.Selection.TypeText Me.RG__proprietario_
.Selection.GoTo wdGoToBookmark, Name:="CPFP"
.Selection.TypeText Me.CpfCnpj
.Visible = True

End With

Exit Sub
MergeButton_Err:
' campo em branco
If Err.Number = 94 Then
ObjectWord.Selection.Text = ""
Resume Next
Else
MsgBox "Tipo de Locação não Definida - Escolha o Tipo de Contrato e Tente Novamente !", , "Atenção"
End If
Exit Sub
End Sub

Amigo Luiz, se a mascara está a ser feita via código, então o campo da tabela que o recebe deve estar como Texto.

Certo ?

O resultado desse campo CpfCnpj depois de gravado na tabela, como é que fica ?

Sim JPaulo o campo na tabela esta como texto, e fica gravado sem os pontos, exceto quando eu redigito o valor no campo assim ele assume o valor com os pontos.

Então Luiz, o problema é esse mesmo, na tabela tem de ficar com os pontos.

Veja a solução aqui mesmo;
http://maximoaccess.forumeiros.com/formularios-f11/cpf-e-cnpj-no-mesmo-campo-access-2003-t785.htm