Localizar em massa e substituir por macro de imagens - Microsoft Word 2013

Question

Eu tenho essa macro que é capaz de encontrar e substituir em massa vários documentos do Word. Eu sou capaz de fazer um find e substituir por imagens (dentro de um cabeçalho), mas quando eu o implementei dentro do meu código de macro, parece apenas ignorá-lo e não encontrar e substituir qualquer imagem. Não tenho certeza de porque é esse o caso, pois não há erros. Quaisquer dicas seriam extremamente apreciadas. Obrigado !!

Sub FindandReplaceTextPic()
Dim Directory As String
Dim FType As String
Dim FName As String

Directory = "C:\Users\pieria\Desktop\TempPics"
FType = "*.docx"

ChDir Directory
FName = Dir(FType)
' for each file you find, run this loop
Do While FName <> ""
    ' open the file
    Documents.Open FileName:=Directory & "\" & FName

    ' search and replace the company name
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "CompanyA"
        .MatchCase = True
        .Replacement.Text = "CompanyB"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'search and replace picture from clipboard
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = "^g"
   .Replacement.Text = "^c"
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
    ' save and close the current document
    ActiveDocument.Close wdSaveChanges

    ' look for next matching file
    FName = Dir
Loop
End Sub

    

Answer 1

Eu percorria cada storyRange (incluindo cabeçalhos) e usava o método .Find do intervalo em vez do objeto de seleção.

    

Answer 2

Como localizar e substituir imagens no MS Word

O MS-Word pode ajudar no cenário dado acima. Existe uma maneira automática de localizar todas as imagens em um documento e, em seguida, substituí-las por uma nova imagem.

Por favor, note que este método irá encontrar todas as imagens e irá substituir todas elas por uma nova. Com este método, não podemos ser seletivos sobre imagens. Aqui estão os passos:

1. Abra o documento do Microsoft Word no qual a substituição deve ser feita.
2. Insira a nova imagem na parte superior do documento.
3. Selecione a imagem recém inserida e pressione Ctrl + C para copiá-la.
4. Agora, exclua a imagem recém-inserida.
5. Pressione Ctrl + H para abrir a caixa “Localizar e substituir”.
6. Coloque ^g na caixa "Localizar" e ^c na caixa "Substituir por"

Método para encontrar todas as imagens e substituí-las por uma nova.

Agora pressione o botão "Substituir tudo" para ver a mágica!

Todas as imagens foram substituídas no MS Word.

Você verá que todas as imagens no documento serão substituídas pela nova imagem. Naturalmente, a operação de substituição também substituirá as imagens que você não deseja substituir. Nesse caso, talvez seja necessário inserir novamente as imagens que não deviam ser substituídas. Esse método é útil em um cenário em que:

1. o documento contém apenas as imagens que serão substituídas
2. o documento contém um grande número de imagens que precisam ser substituídas e um número menor de imagens que não devem ser substituídas

O primeiro cenário é simples. No segundo cenário, você estará fazendo muito menos trabalho manual reinserindo as imagens que foram substituídas como efeito colateral.

O método funciona substituindo todos os gráficos (indicados por ^g ) pelo conteúdo da área de transferência (indicado por ^c ). Portanto, essencialmente, você pode substituir todas as imagens por qualquer coisa que possa copiar para a área de transferência.

Para manter a paginação do seu documento intacta, você deve usar a nova imagem do mesmo tamanho.

Espero que esta dica do MS-Word tenha sido útil para você. Se você tiver alguma dúvida sobre esse assunto, sinta-se à vontade para me fazer comentários. Vou tentar te ajudar. Obrigado por usar o TechWelkin.

Artigos relacionados para mais informações:

1. MS Word: Como localizar e substituir números, dígitos, numerais
2. Localizar e substituir a formatação no MS-Word
3. Múltiplos Encontrar e Substituir no MS Word Usando Macro
4. Substituir linha, parágrafo, quebra de carro no MS Word
5. Digite o símbolo Grau no MS Word, HTML, Unicode
6. MS Word: Como Selecionar Área Retangular Vertical