ancafa

Membros
  • Content Count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutro

About ancafa

  1. Pessoal, criei um formulário no Excel e estou com dificuldade de completar um dos módulos integrados com o Word. Gostaria que alguém me ajudasse a completar os códigos faltantes na rotina abaixo. No documento gerado é necessário localizar algumas partes do texto e, caso localizadas, selecioná-las e substituí-las por "inserir texto do arquivo". Porém, não estou conseguindo definir o código aplicável para condicionar que somente sejam substituídos e inseridos os textos dos arquivos cujos textos forem efetivamente localizados e, caso não existentes no documento, seguir com a rotina para a parte seguinte que precisa ser substituída. A rotina é a seguinte: 'abrir o documento - localizar e selecionar cada um dos textos que serão substituídos - se não localizado, ir para o próximo - se localizado, selecionar e substituir por "inserir texto do arquivo" - ir para o próximo aplicando a rotina até o último - salvar o documento para revisão - finalizar a rotina. Grato pelo retorno. Sub GERAR_MINUTA() ' ' GERAR_MINUTA Macro ' GERAR DOCUMENTO PARA REVISÃO TEXTO ' Dim WORD As WORD.Application Dim DOC As WORD.Document Set DOC = ActiveDocument '(DOCUMENTO-1.DOCM) With DOC .Application.Selection.Find.Text = "TEXTO1 TEXTO1 TEXTO1" .Application.Selection.Find.Execute .Application.Selection.InsertFile FileName:="C:\TEXTO1 PARA INSERIR.docx", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False .Application.Selection.Find.Text = "TEXTO2 TEXTO2 TEXTO2" .Application.Selection.Find.Execute .Application.Selection.InsertFile FileName:="C:\TEXTO2 PARA INSERIR.docx", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False .Application.Selection.Find.Text = "TEXTO3 TEXTO3 TEXTO3" .Application.Selection.Find.Execute .Application.Selection.InsertFile FileName:="C:\TEXTO3 PARA INSERIR.docx", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False .Application.Selection.Find.Text = "TEXTO4 TEXTO4 TEXTO4" .Application.Selection.Find.Execute .Application.Selection.InsertFile FileName:="C:\TEXTO4 PARA INSERIR.docx", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False With DOC .SaveAs2 ("DOCUMENTO-2.DOCX") End With Set DOC = Nothing Set WORD = Nothing End With End Sub