☰

Macro de búsqueda y reemplazo masivo para imágenes - Microsoft Word 2013

tag-icon • tag-icon microsoft-word macros find-and-replace
Macro de búsqueda y reemplazo masivo para imágenes - Microsoft Word 2013

Tengo esta macro que puede realizar búsquedas y reemplazos masivos en varios documentos de Word. Puedo buscar y reemplazar imágenes (dentro de un encabezado), pero cuando lo implementé dentro de mi código de macro, parece simplemente ignorarlo y no buscar ni reemplazar ninguna imagen. No estoy seguro de por qué ocurre esto, ya que no hay errores. Algún consejo sería de gran aprecio. ¡¡Gracias!!

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

Respuesta1

Recorrería cada storyRange (incluidos los encabezados) y usaría el método .Find del rango en lugar del objeto de selección.

Respuesta2

Cómo buscar y reemplazar imágenes en MS Word

MS-Word puede ayudar en el escenario descrito anteriormente. Existe una forma automática de buscar todas las imágenes de un documento y luego reemplazarlas todas con una nueva imagen.

Tenga en cuenta que este método encontrará todas las imágenes y las reemplazará todas por una nueva. Con este método, no podemos ser selectivos con las imágenes. Aquí están los pasos:

  1. Abra el documento de Microsoft Word en el que se realizará el reemplazo.
  2. Inserte la nueva imagen en la parte superior del documento.
  3. Seleccione la imagen recién insertada y presione Ctrl+ Cpara copiarla.
  4. Ahora elimine la imagen recién insertada.
  5. Presione Ctrl+ Hpara abrir el cuadro "Buscar y reemplazar".
  6. Colóquelo ^gen el cuadro "Buscar qué" y ^cen el cuadro "Reemplazar con"

Método para encontrar todas las imágenes y reemplazarlas por una nueva.

¡Ahora presione el botón "Reemplazar todo" para ver la magia!

Todas las imágenes han sido reemplazadas en MS Word.

Verás que todas las imágenes del documento serán reemplazadas por la nueva imagen. Por supuesto, la operación de reemplazo también reemplazará las imágenes que no deseabas reemplazar. En tal caso, es posible que deba volver a insertar las imágenes que no se iban a reemplazar. Este método es útil en un escenario donde:

  1. el documento contiene sólo aquellas imágenes que van a ser reemplazadas
  2. el documento contiene una gran cantidad de imágenes que deben reemplazarse y una cantidad menor de imágenes que no deben reemplazarse

El primer escenario es sencillo. En el segundo escenario, hará mucho menos trabajo manual reinsertando imágenes que fueron reemplazadas como efecto secundario.

El método funciona reemplazando todos los gráficos (indicados por ^g) con el contenido del portapapeles (indicado por ^c). Por lo tanto, básicamente, puedes reemplazar todas las imágenes con cualquier cosa que puedas copiar al portapapeles.

Para mantener intacta la paginación de su documento, debe utilizar una imagen nueva del mismo tamaño.

Espero que este consejo de MS-Word te haya resultado útil. Si tiene alguna pregunta sobre este tema, no dude en preguntarme a través de comentarios. Intentaré ayudarte. Gracias por utilizar TechWelkin.

Artículos relacionados para más información:

  1. MS Word: Cómo buscar y reemplazar números, dígitos y numerales
  2. Buscar y reemplazar formato en MS-Word
  3. Búsqueda y reemplazo múltiples en MS Word usando macro
  4. Reemplazar línea, párrafo y salto de carro en MS Word
  5. Escriba el símbolo de grado ° en MS Word, HTML, Unicode
  6. MS Word: Cómo seleccionar un área rectangular vertical

información relacionada