Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come cercare e sostituire su più file in una parola?

Se si dispone di una dozzina di file word contenenti lo stesso contenuto (come intestazione, piè di pagina, alcune parole o numeri speciali), è necessario sostituire lo stesso contenuto in tali documenti in Word. Come sarebbe più facile per te farlo in fretta? Certamente, è possibile aprire quei file uno per uno per sostituire lo stesso contenuto, ma richiedere molto tempo e problemi. Questo tutorial ti mostrerà un modo complicato per sostituire lo stesso contenuto in più documenti in Word contemporaneamente.

Trova e sostituisci testi su più documenti word contemporaneamente con il codice VBA


Combina / unisci più documenti in uno facilmente:

L' Unisci documenti utilità di Kutools for Word può aiutarti a combinare più documenti in uno rapidamente. Hai solo bisogno di:

  • Seleziona i documenti che combinerai in uno;
  • Specificare la pausa tra ogni documento combinato;
  • Iniziare la fusione. Vedi screenshot:

Kutools for Word: con più di 100 utili componenti aggiuntivi di Word, liberi di provare senza limiti nei giorni 30. Scarica e prova gratis ora!

Kutools for Word: Aggiungi 100 Nuove funzionalità avanzate a Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Abilitare Modifica a schede e navigazione in ufficio, Proprio come Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Porta il vecchio aspetto di Office 2003 Back a Office 2007, 2010, 2013, 2016 e 2019.

Trova e sostituisci testi su più documenti word contemporaneamente con il codice VBA

1. Stampa altro + F11 per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo, quindi copia il seguente codice VBA nella finestra del modulo.

Codice VBA: ricerca e sostituzione dello stesso contenuto su più documenti contemporaneamente

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. premi il F5 chiave per eseguire il codice.

4. In apertura Navigare finestra, cerca e seleziona i documenti che troverai e sostituisci il testo all'interno, quindi fai clic su OK pulsante. Vedi screenshot:

5. Nel primo Kutools for Word finestra di dialogo, inserisci il testo che troverai tra i documenti nel Trova quello che casella, quindi fare clic su OK pulsante.

6. Nel secondo Kutools for Word finestra di dialogo, inserire il testo con cui si sostituirà e fare clic su OK pulsante.

8. Fare clic sul OK pulsante nel prossimo Microsoft Word finestra di dialogo per completare la ricerca e la sostituzione.

In questo caso, tutte le parole "Word" nei documenti selezionati vengono sostituite con "Excel" allo stesso tempo.


Office Tab - Navigazione a schede, modifica e gestione di più documenti in Word:

Office Tab porta l'interfaccia a schede come si vede nei browser Web come Google Chrome, le nuove versioni di Internet Explorer e Firefox in Microsoft Word. esso volere essere uno strumento che fa risparmiare tempo e che è irrealizzabile nel tuo lavoro. Vedi sotto demo:

Clicca per la prova gratuita di Office Tab!




Kutools for Word

Più di 100 Funzioni avanzate per Word 2003, 2007, 2010, 2013, 2016 e 2019

tiro-kutools-700-225-kte

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

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.
    Kath · 1 years 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 !
  • To post as a guest, your comment is unpublished.
    Rouzbeh · 1 years ago
    hi, i want to replace a number but i guess the problem that it's not working is that the number is not written in english it's in Persian. I would be so thankfull if someone can help me with it.
    • To post as a guest, your comment is unpublished.
      Rouzbeh · 1 years ago
      sorry, i was wrong. the problem is that the number is in the header and it seems that the trick is not working in header. if i open one of the files and activate the header then run the module it works but just in that specific file ,even if i select all the files. thanks again.
  • To post as a guest, your comment is unpublished.
    Rav · 1 years ago
    Hi, I new to VBA. I am able to get the data updated for only single file. How to select multiple files when the VBA script opens up ? The question might be simple to few, but it will help. Since i need to update a string in 175+ plus word files. Appreciate your quick response. Thanks ...
    • To post as a guest, your comment is unpublished.
      Asi · 1 years ago
      Put your files in one folder and select them all with a shift key. Hope this works.
  • To post as a guest, your comment is unpublished.
    darshan Jain · 1 years ago
    Hi
    this code is only editing 7 documents at a time... why?
  • To post as a guest, your comment is unpublished.
    Bryce · 1 years ago
    I really appreciated this post. Thank you. It allowed me to spend 10 minutes implementing something that saved several hours of work.