Problema em preencher um documento word

Question

Pessoal, estou fazendo um programinha para uso proprio que pega informações de um form e preenche um documento word de template.

Até que consegui progredir um pouco pesquisando pela internet, mas estou com um problema, o meu código só preenche o documento na primeira ocorrencia, se eu tiver várias variaveis @nome por exemplo, ele só preenche na primeira vez que ela aparece... 

Alguém tem alguma dica de como fazer isso recursivamente? 

    Private Sub subDados(header As String, data As String)

        With objWord.Selection.Find
            .ClearFormatting()
            .Text = header
            .Execute()
            .Forward = True
        End With

        Clipboard.Clear()
        Clipboard.SetText(data)
        objWord.Selection.Paste()
        Clipboard.Clear()
    
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      

        objWord = New Microsoft.Office.Interop.Word.Application
       
            objDoc = objWord.Documents.Open("c:\temp\PRO_PS.doc")


            Call subDados("@CLIENTENOME", txtCLIENTENOME.Text)
            Call subDados("@CONTATONOME", txtCONTATONOME.Text)
            Call subDados("@CONTATOEMAIL", txtCONTATOEMAIL.Text)
            Call subDados("@CONTATOTEL", txtCONTATOTEL.Text)

            objWord.ActiveDocument.SaveAs2("c:\temp\PRO_PS2.doc")
            objWord.Quit()
            MsgBox("Arquivo gerado com sucesso!")
        End If

 objWord = Nothing


    End Sub

Basicamente é isso... qualquer ajuda é bem vinda!! 

Answer 1

Tente fazer como abaixo, pois esta limpando o clipboard quando o mesmo contem dados e sempre vai vazio o paste:

Private Sub subDados(header As String, data As String)

        With objWord.Selection.Find
            .ClearFormatting()
            .Text = header
            .Execute()
            .Forward = True
        End With

        Clipboard.SetText(data)
        objWord.Selection.Paste()
        Clipboard.Clear()
    
    End Sub

Answer 2

Não adiantou não... pelo oq entendi aquele clipboard.clear antes é para previnir que nao tenha nada colado no clipboard... 

Answer 3

Me informe uma coisa, ele so grava o ultimo item que você passa correto?

Answer 4

Coloque isso ai e testa:

Private Sub subDados(header As String, data As String)

        With objWord.Selection.Find
            .ClearFormatting()
            .Text = header
            .Execute()
            .Forward = True
        End With

        Clipboard.Clear()
        Clipboard.SetText(data+"\n")
        objWord.Selection.Paste()
        Clipboard.Clear()
    
    End Sub

Ao meu ver a cada chamada que você faz de SubDados() ele sobrepõe o valor anterior ficando sempre o ultimo valor inserido

Answer 5

Então... a cada chamada do método subDados ele substitui corretamente, porém se o meu documento do word tem a variável em mais de um ponto, ele só substitui na primeira ocorrência. 

Answer 6

Você não entendeu ele sobrepõe os dados anteriores, testou o código que coloquei?

Answer 7

Antes de mais nada, obrigado por me estar ajudando.

Mas não deu certo não... foi o mesmo efeito. Eu ainda acho q ele não esta sobrepondo e sim que ele não esta varrendo todo o documento. 

e não entendi o pq do "\n" seria pra dar um enter? pq no vb acho q não rola assim

Answer 8

Eu refiz seu projeto aqui e entendi de fato o problema, no caso se você precisar acrescentar informações no arquivo pressionando uma segunda vez ocorre o problema no objDoc não é isso?

Veja essa Thread

Answer 9

é mais ou menos por ai... 

imagina que meu arquivo do Word PRO_PS.doc é desta meneira:

@CLIENTENOME.
At.: @CONTATONOME
E-mail: @CONTATOEMAIL
Tel.: @CONTATOTEL



@CLIENTENOME.
At.: @CONTATONOME
E-mail: @CONTATOEMAIL
Tel.: @CONTATOTEL


@CLIENTENOME.
At.: @CONTATONOME
E-mail: @CONTATOEMAIL
Tel.: @CONTATOTEL

Ai com o programa ele ta trocando somente a primeira ocorrência, ficando assim:

empresa.
At.: contato
E-mail: email
Tel.: [phone]



@CLIENTENOME.
At.: @CONTATONOME
E-mail: @CONTATOEMAIL
Tel.: @CONTATOTEL



@CLIENTENOME.
At.: @CONTATONOME
E-mail: @CONTATOEMAIL
Tel.: @CONTATOTEL

Se eu clicar no botão novamente ai vai dar erro pq o arquivo continua aberto... eu queria é clicar apenas uma vez e ele varresse o documento todo... não sei se falta um do while ate o fim do doc etc

Answer 10

Mais a depender de onde você carrega os dados pode fazer um foreach ou while, veja minha Thread na postagem anterior para tentar eliminar o erro

Answer 11

Aqui fiz de um outro jeito aqui e acho que deu certo... parece que tem um método pra isso... o wdReplaceAll

    Private Sub subDados(header As String, data As String)

        With objWord.Selection.Find
            .ClearFormatting()
            .Text = header
            .Replacement.ClearFormatting()
            .Replacement.Text = data
            .Execute(Replace:=Word.WdReplace.wdReplaceAll)

        End With
     

    End Sub