Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com cercar i reemplaçar en diversos fitxers a la paraula?

Si teniu diverses dotzenes d'arxius de paraules que contenen el mateix contingut (com ara encapçalament, peu de pàgina, algunes paraules o números especials), heu de substituir el mateix contingut per aquests documents en Word. Com us resultaria més fàcil fer-ho ràpidament? Certament, podeu obrir aquests fitxers un per un per reemplaçar el mateix contingut, però tindrà molt de temps i molèsties. Aquest tutorial us mostrarà una manera complicada de reemplaçar el mateix contingut en diversos documents de Word alhora.

Cerqueu i reemplacieu els textos en diversos documents de paraules al mateix temps amb el codi VBA


Combine / combine diversos documents fàcilment:

El Fusiona documents utilitat de Kutools per a la paraula us pot ajudar a combinar diversos documents de manera ràpida. Només heu de:

  • Seleccioneu els documents que combinarà en un;
  • Especifiqueu el salt entre cada document combinat;
  • Comença a combinar. Mostra la captura de pantalla:

Kutools per a la paraula: amb més complements Word complementosos de 100, gratuïts per provar sense limitacions en 30 dies. Baixada i prova gratuïta Ara!

Kutools per a la paraula: Afegiu 100 noves funcions avançades a Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Pestanya d'Office: Habilita Edició i navegació amb pestanyes a l'oficina, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú clàssic per a l'oficina: Porta l'aspecte antic de l'oficina 2003 Back a Office 2007, 2010, 2013, 2016 i 2019.

Cerqueu i reemplacieu els textos en diversos documents de paraules al mateix temps amb el codi VBA

1. Premeu Alt + F11 per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls, copieu el codi VBA següent a la finestra Mòdul.

Codi VBA: cerca i reemplaça el mateix contingut per diversos documents alhora

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. Premeu el botó F5 clau per executar el codi.

4. A l'obertura explorar finestra, cerqueu i seleccioneu els documents que trobareu i reemplaçar text a l'interior i, a continuació, feu clic a la icona OK botó Mostra la captura de pantalla:

5. En el primer Kutools per a la paraula quadre de diàleg, introduïu el text que trobareu a través dels documents Trobeu què box i, a continuació, feu clic a la icona OK botó.

6. En el segon Kutools per a la paraula quadre de diàleg, introduïu el text amb el qual reemplacareu i feu clic al botó OK botó.

8. Feu clic al OK botó a la propera Microsoft Word quadre de diàleg per finalitzar la cerca i reemplaçar.

En aquest cas, totes les paraules "Word" dels documents seleccionats es reemplacen per "Excel" al mateix temps.


Pestanya d'Office - Navegació amb pestanyes, edició i gestió de diversos documents a Word:

La pestanya Office mostra la interfície de pestanyes que es veu en els navegadors web com ara Google Chrome, versions noves d'Internet Explorer i Firefox a Microsoft Word. Ho voluntat ser una eina que estalviï temps i sigui irreemplaçable en el vostre treball. Vegeu a continuació demo:

Feu clic per obtenir una prova gratuïta de la pestanya d'Office.




Kutools per a la paraula

Més de 100 Advanced Functions per Word 2003, 2007, 2010, 2013, 2016 i 2019

shot-kutools-700-225-kte

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

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.
    Tiago · 1 days ago
    Is it possible to replace in the headers of the word doc?
  • To post as a guest, your comment is unpublished.
    dsadasd · 1 days ago
    Is that possible to replace in the header of the word doc?
  • To post as a guest, your comment is unpublished.
    martinadam · 2 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    nathalie · 4 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 · 11 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. :(