Macro word reemplaza texto encabezado varios words a la vez

Tengo macro en word que reemplaza texto en varios words a la vez... Pero busca texto, y reemplaza texto, dentro del documento. No lo hace en el encabezado.
Tengo muchos words con texto "version 01", y quiero cambiar a "version 02". La macro va muy bien. Pero si el texto que quiero reemplazar (version 01) está en el encabezado, no lo reemplaza.
Adjunto macro. Si la pegas en un word nuevo, y la pruebas, verás que reemplaza texto de varios words a la vez, pero texto que está en el documento, no en el encabezado.
Si eres exeperto en visual basic y macros word, puedes revisar este macro y modificar lo que haga falta (comando, función, procedimiento, no se) para que busque y reemplace texto en varios words a la vez, pero texto de encabezado, no de dentro el propio documento.
Muchas gracias

Public Sub SustituirTextoTodosDocumentos()
Dim por As Boolean, ruta As String, archivos As String, _
myDoc As Document, rango As Word.Range, buscar As String
Dim reemplazo
With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
archivos = .Directory
Else: MsgBox "Cancelado"
Exit Sub: End If
End With
por = 1
If Left(archivos, 1) = """" Then _
archivos = Mid(archivos, 2, Len(archivos) - 2)
ruta = Dir$(archivos & "*.doc")
While ruta <> ""
If por Then
buscar = InputBox("texto a buscar", "Buscando...")
If buscar = "" Then MsgBox "Cancelado": Exit Sub
reemplazo = InputBox("texto de reemplazo", "reemplazando...")
If reemplazo = "" Then MsgBox "exit...": Exit Sub
End If
por = 0
Set myDoc = Documents.Open(archivos & ruta)
'If myDoc.ProtectionType <> wdNoProtection Then _
' myDoc.Unprotect
With myDoc.Range.Find
.Text = buscar
.Replacement.Text = reemplazo
.Execute Replace:=wdReplaceAll
End With
'myDoc.Protect (wdAllowOnlyFormFields)
myDoc.Close Savechanges:=wdSaveChanges
ruta = Dir$()
Wend
End Sub

2 respuestas

Respuesta
1

Disculpame pero no me he metido a Visual Basic For Aplication solo programo en Visual Basic 6 y 2010. Siento no poder ayudarte.

Respuesta

Te dejo tu codigo modificado para que funcione en encabezados. Saludos.

Public Sub SustituirTextoTodosDocumentos()
Dim por As Boolean, ruta As String, archivos As String, _
myDoc As Document, rango As Word.Range, buscar As String
Dim reemplazo
With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
archivos = .Directory
Else: MsgBox "Cancelado"
Exit Sub: End If
End With
por = 1
If Left(archivos, 1) = """" Then _
archivos = Mid(archivos, 2, Len(archivos) - 2)
ruta = Dir$(archivos & "*.docx")
While ruta <> ""
If por Then
buscar = InputBox("texto a buscar", "Buscando...")
If buscar = "" Then MsgBox "Cancelado": Exit Sub
reemplazo = InputBox("texto de reemplazo", "reemplazando...")
If reemplazo = "" Then MsgBox "exit...": Exit Sub
End If
por = 0
Set myDoc = Documents.Open(archivos & ruta)
'If myDoc.ProtectionType <> wdNoProtection Then _
' myDoc.Unprotect
With myDoc.Range.Find
.Text = buscar
.Replacement.Text = reemplazo
.Execute Replace:=wdReplaceAll
End With
'myDoc.Protect (wdAllowOnlyFormFields)
myDoc.Close Savechanges:=wdSaveChanges
ruta = Dir$()
Wend
End Sub
Public Sub SustituirTextoTodosDocumentos2()
Dim por As Boolean, ruta As String, archivos As String, _
myDoc As Document, rango As Word.Range, buscar As String
Dim reemplazo
With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
archivos = .Directory
Else: MsgBox "Cancelado"
Exit Sub: End If
End With
por = 1
If Left(archivos, 1) = """" Then _
archivos = Mid(archivos, 2, Len(archivos) - 2)
ruta = Dir$(archivos & "*.docx")
While ruta <> ""
If por Then
buscar = InputBox("texto a buscar", "Buscando...")
If buscar = "" Then MsgBox "Cancelado": Exit Sub
reemplazo = InputBox("texto de reemplazo", "reemplazando...")
If reemplazo = "" Then MsgBox "exit...": Exit Sub
End If
por = 0
Set myDoc = Documents.Open(archivos & ruta)
'If myDoc.ProtectionType <> wdNoProtection Then _
' myDoc.Unprotect
'With myDoc.Range.Find
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = buscar
.Replacement.Text = reemplazo
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
End With
'myDoc.Protect (wdAllowOnlyFormFields)
myDoc.Close Savechanges:=wdSaveChanges
ruta = Dir$()
Wend
End SubPublic Sub SustituirTextoTodosDocumentos()
Dim por As Boolean, ruta As String, archivos As String, _
myDoc As Document, rango As Word.Range, buscar As String
Dim reemplazo
With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
archivos = .Directory
Else: MsgBox "Cancelado"
Exit Sub: End If
End With
por = 1
If Left(archivos, 1) = """" Then _
archivos = Mid(archivos, 2, Len(archivos) - 2)
ruta = Dir$(archivos & "*.docx")
While ruta <> ""
If por Then
buscar = InputBox("texto a buscar", "Buscando...")
If buscar = "" Then MsgBox "Cancelado": Exit Sub
reemplazo = InputBox("texto de reemplazo", "reemplazando...")
If reemplazo = "" Then MsgBox "exit...": Exit Sub
End If
por = 0
Set myDoc = Documents.Open(archivos & ruta)
'If myDoc.ProtectionType <> wdNoProtection Then _
' myDoc.Unprotect
With myDoc.Range.Find
.Text = buscar
.Replacement.Text = reemplazo
.Execute Replace:=wdReplaceAll
End With
'myDoc.Protect (wdAllowOnlyFormFields)
myDoc.Close Savechanges:=wdSaveChanges
ruta = Dir$()
Wend
End Sub
Public Sub SustituirTextoTodosDocumentos2()
Dim por As Boolean, ruta As String, archivos As String, _
myDoc As Document, rango As Word.Range, buscar As String
Dim reemplazo
With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
archivos = .Directory
Else: MsgBox "Cancelado"
Exit Sub: End If
End With
por = 1
If Left(archivos, 1) = """" Then _
archivos = Mid(archivos, 2, Len(archivos) - 2)
ruta = Dir$(archivos & "*.docx")
While ruta <> ""
If por Then
buscar = InputBox("texto a buscar", "Buscando...")
If buscar = "" Then MsgBox "Cancelado": Exit Sub
reemplazo = InputBox("texto de reemplazo", "reemplazando...")
If reemplazo = "" Then MsgBox "exit...": Exit Sub
End If
por = 0
Set myDoc = Documents.Open(archivos & ruta)
'If myDoc.ProtectionType <> wdNoProtection Then _
' myDoc.Unprotect
'With myDoc.Range.Find
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = buscar
.Replacement.Text = reemplazo
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
End With
'myDoc.Protect (wdAllowOnlyFormFields)
myDoc.Close Savechanges:=wdSaveChanges
ruta = Dir$()
Wend
End Sub

lo pegue dos veces...  tomalo hasta el primer end sub.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Sustituir texto en encabezado y pie de pagina

Hopa Carimon, tengo una macro que me sustituye un texto por otro en todos los ficheros word de un directorio, pero no consigo que me lo haga en los encabezados y pie de pagina. ¿Podrías ayudarme a conseguir que me busque el texto en los encabezados y...
2 respuestas

Macro para usar la función de buscar en todo el libro

He intentado crear una macro para usar la opción de la ficha Inicio/Buscar y Seleccionar, pero la grabación automática de macros no me la reconoce, intento que me salga el cuadro Buscar y Seleccionar para pedirle argumentos de búsqueda en todo el...
1 respuesta

Exportar consultas de Access a Excel eligiendo la ruta

Estoy armando una aplicación en access con consultas especificas. Un formulario con casillas de verificación permiten elegir la consulta que quiero exportar. El código que se me ocurrió emplear es el siguiente: Private Sub Aceptar_Click() mensaje =...
1 respuesta

Macro búsqueda en todo el libro, varias hojas

Quisiera de favor que me ayudaran, necesito una macro que al hacer click en commandbutton1 que se encuentra en la hoja1, haga una búsqueda del valor de un textbox1 que también está en hoja1, que haga la búsqueda en todo el libro es decir hoja por...
1 respuesta

¿Cómo exportar informe de access estableciendo el nombre y preguntando la ruta?

Estoy intentando exportar un informe de access a pdf, el problema es que quiero que cada archivo pdf que genere se llame distinto, y que la ruta donde se guarde te la pregunte cada vez. No consigo hacer las dos cosas a la vez es decir, o establezco...
1 respuesta

Exportar de Excel a un archivo de texto

Necesito exportar un rango de datos de Excel de longitud variable a un archivo de txt en una ruta fija 'el rango lo selecciono Range("E1").Select Range(Selection, Selection.End(xlDown)).Select en las celdas de la hoja hay otros datos que no necesito...
1 respuesta

Problema con inputbox vb6.0

Tengo el siguiente código se trata de una interfaz en VB6 con la cual puedo visualizar buscar borrar y editar registros almacenados en una tabla access 2003 funciona bien el problema es que como podrá ver tengo un inputbox que funciona perfecto...
1 respuesta

Ventana de dialogo de windows y msgbox borra registro guardado en campo al dar cancelar

Por favor, necesito de su apoyo. Tengo una formulario donde tengo un campo RutaArchivo y otro Archivo (obtengo solo el nombre del archivo), y 3 botones (cmdArchvo, Abrir y EliminarArchivo), ya logré insertar la ruta del archivo y obtener el nombre...
1 respuesta

¿Alguien me sabe sobre una macro que no cancela exportar a PDF?

Les comento que tengo varias Macros que realizan Guardar como" en PDF y otra que pregunta sobre imprimir y con que impresora, el problema radica en que al llegar a la pantalla en donde se finaliza la exportación a PDF o la impresión, si yo quiero...
1 respuesta

Abrir la ruta del textbox con programa asociado

Tengo una base de datos (access) y guardo la ruta de un archivo en ella, utilizo un flexgrid y los cuadros te texto al momento de dar click sobre el flexgrid los cuadros de textos se llenan con la información que tengo almacenada en la base de datos,...
1 respuesta