Guest Celio Juaçaba Postado Junho 16, 2008 Denunciar Share Postado Junho 16, 2008 A função abaixo funciona para o office2003, mas não funciona para o office2007.Tenho um arquivo .doc com vários campos, a aplicação VB lê a base de dados e e a função transfere dados para o documento. Private Sub Substitui_Var(Header As String, Data As String)With objword.Selection.Find .ClearFormatting .Text = Header .Execute Forward:=TrueEnd WithClipboard.ClearClipboard.SetText (Data)objword.Selection.PasteClipboard.ClearEnd Sub Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Celio Juaçaba
A função abaixo funciona para o office2003, mas não funciona para o office2007.
Tenho um arquivo .doc com vários campos, a aplicação VB lê a base de dados e e a função transfere dados para o documento.
Private Sub Substitui_Var(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
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.