Pesquisar na Comunidade

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

favor excluir tópico

Bom Dia. Estou precisando de um script para o Outlook que salve os anexos de um determinado remetente em uma pasta no drive C: e que substitua o mesmo anexo já existente na pasta. sempre recebo de um remetente informações atualizadas em um anexo e preciso que esse anexo seja salvo automaticamente em uma pasta, mas que sempre seja o anexo mais recente, o Outlook deve ao salvar substituir o anexo velho, preciso muito disso, por favor ajudem. ressalto que não conheço muito de VBA, só o basico. obrigado!

Olá Senhores, tudo bem com vocês ?Bom ,sou leigo em SQL e estou com um problema que é o seguinte:Estou usando o PostGreSQLTennho uma tabela chamada OfMessageArchive , contendo a coluna FROMJIDNessa tabela tenho diversos registros que estão como joao@hotmail.com , maria@bol.com.br , marcos@gmail.com e por aí vai.Acredito que uns 15 dominios de e-mails diferentes. Não sei quais são todos eles.Tendo essas informações preciso alterar por exemplo tudo que esteja como @hotmail.com para @empresa.com.br , tudo o que esteja como @bol.com.br , para @empresa.com.br e por aí vai , deixando tudo como joao@empresa.com.br , maria@empresa.com.br , marcos@empresa.com.br e por aí vai.Preciso então de 2 comandos , e essas são as minhas dúvidas:1 - Qual comando eu comando eu consigo listar todos os registros nessa coluna que estão com @ alguma coisa , sem ter que repeti-los ( estamos falando de quase 45.000 registros) ? Exemplo:Após executar o comando ele mostra que na coluna FROMJID tem os dominios:@bol.com.br @hotmail.com@gmail.com ??????????2 - Eu sabendo quais são os dominios de e-mail que estão cadastrados na coluna FROMJID da tabela OfMessageArchive , qual o comando eu uso para substiruir todos esses dominios @bol.com.br , @gmail.com e por aí vai , por @empresa.com.br , deixando por exemplo joao@bol.com.br para joao@empresa.com.br ?Muito obrigado galera

Olá pessoal ! Preciso do seguinte: A minha variável $_SERVER["PHP_SELF"]; está com o seguinte valor abaixo: /rmslpz/Internet_Explorer_9/A_Escola/pagina1.php preciso retirar a primeira barra da string, resultando como abaixo: rmslpz/Internet_Explorer_9/A_Escola/pagina1.php depois preciso substituir a string "Internet_Explorer_9" para "Google_Chrome", ficando assim: rmslpz/Google_Chrome/A_Escola/pagina1.php ...alguém poderia me dar um help ? No aguardo