Olá, fico graato pela atenção, mas preciso de um código que insira as informações em campos pré-determinados. E dessa forma não funciona. Por exemplo.. Tenho no Template um campo: #TEMA# Tenho que substituir por: Análises Gráficas Entendido!? Mais ou menos assim... Set WordApp = CreateObject("Word.Application") WordApp.Application.Visible = false Set WordDoc = WordApp.Documents.Add("C:\nome do template.doc") SubstituiVariavel "#TEMA#", "QUALQUER TEXTO" Private Sub SubstituiVariavel(Achar, Substituir) With WordApp.Selection.Find .Text = ACHAR .Replacement.Text = SUBSTITUIR .Forward = True .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False While .Execute = True WordApp.Selection.Select() System.windows.Forms.Clipboard.SetDataObject(Substituir) WordApp.Selection.Paste() Wend End With End Sub WordDoc.SaveAs server.mapPath("NOME DO NOVO DOCUMENTO.DOC") WordDoc.Close : WordApp.Quit WordApp.Quit