As cookies axúdanos a entregar os nosos servizos. Ao usar os nosos servizos, acepta o noso uso das cookies.
Consello: outros idiomas están traducidos a Google. Podes visitar o English versión desta ligazón.
Iniciar sesión
x
or
x
x
Register
x

or

Como buscar e substituír varios ficheiros en palabras?

Se tes varias ducias de ficheiros de texto que conteñen o mesmo contido (como Cabeceira, pé de páxina, algunhas palabras especiais ou número), debes substituír o mesmo contido por estes documentos en Word. Como sería máis doado para que o fagas rápido? Certamente, pode abrir estes ficheiros un por un para substituír o mesmo contido, pero vai ser lento e problemático. Este tutorial mostraralle un xeito complicado de substituír o mesmo contido en varios documentos en Word ao mesmo tempo.

Atopar e substituír textos en varios documentos de texto ao mesmo tempo co código VBA


Combina / mestura múltiples documentos nunha fácil:

o Fusionar documentos utilidade de Kutools para Word pode axudarche a combinar varios documentos nun só rápido. Só precisa:

  • Seleccione os documentos que combinará nun.
  • Especifique o descanso entre cada documento combinado;
  • Comezar a fusionar. Ver captura de pantalla:

Kutools para Word: con complementos de Word máis útiles que 100, gratuítos para probar sen límite nos días 30. Descarga e proba gratuíta Agora!

Kutools para Word: Engadir novas características avanzadas de 100 a Palabra 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Tabulación de Office: Habilitar Edición e navegación por pestanas en Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú clásico para Office: Trae a vella ollada de Office 2003 de volta a Office 2007, 2010, 2013, 2016 e 2019.

Atopar e substituír textos en varios documentos de texto ao mesmo tempo co código VBA

1. Preme alt + F11 para abrir a Microsoft Visual Basic para aplicacións fiestra.

2. No Microsoft Visual Basic para aplicacións fiestra, prema en Inserir > Módulos, entón copia o seguinte código VBA na xanela do módulo.

Código VBA: Buscar e substituír o mesmo contido en varios documentos ao mesmo tempo

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3. Preme o botón F5 chave para executar o código.

4. Na apertura buscar window, busque e seleccione os documentos que atopará e substitúe o texto dentro e, a continuación, prema no botón OK botón. Ver captura de pantalla:

5. Na primeira Kutools para Word caixa de diálogo, introduza o texto que encontrará nos documentos no Atopa o que caixa e prema no botón OK botón.

6. No segundo Kutools para Word caixa de diálogo, introduza o texto que substituirá e faga clic no OK botón.

8. Prema na OK botón no seguinte Microsoft Word caixa de diálogo para rematar a busca e substituír.

Neste caso, todas as palabras "Word" nos documentos seleccionados substitúense por "Excel" ao mesmo tempo.


Tabulación de Office - Navegación, edición e xestión de varios documentos en Word:

A pestana Office trae a interface tabulada como se pode ver nos navegadores web como Google Chrome, versións novas de Internet Explorer e Firefox a Microsoft Word. El vontade ser unha ferramenta de aforro de tempo e irreemplazable no teu traballo. Vexa a continuación demo:

Fai clic en Proba gratuíta de Office Tab!




Kutools para Word

Máis de Funcións Avanzadas 100 para Word 2003, 2007, 2010, 2013, 2016 e 2019

shot-kutools-700-225-kte

Máis recursos | Descarga gratuíta | Só $ 39.00 por centos de funcións

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    martinadam · 1 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 2 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 3 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
  • To post as a guest, your comment is unpublished.
    blds · 10 months ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(
  • To post as a guest, your comment is unpublished.
    Kath · 11 months ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !