Note: The other languages of the website are Google-translated. Back to English

Cum să găsiți și să înlocuiți text în documentul Word din Excel?

În documentul Word, putem aplica funcția Găsiți și înlocuiți pentru a găsi și înlocui rapid un text. Dar, dacă trebuie găsite și înlocuite mai multe texte, introduceți textul unul câte unul în funcția Găsiți și înlocuiți va consuma mult timp. În acest caz, puteți introduce textele de căutare și înlocuire în lista de celule și, cu ajutorul codului VBA din Excel, puteți realiza acest lucru cu ușurință. În acest articol, voi introduce, de asemenea, o funcție utilă pentru a găsi și înlocui textele în mai multe documente Word.

Găsiți și înlocuiți mai multe texte într-un singur document Word din Excel cu cod VBA

Găsiți și înlocuiți mai multe texte în mai multe documente Word din Excel cu cod VBA

Găsiți și înlocuiți mai multe texte în mai multe documente Word cu o funcție puternică


Găsiți și înlocuiți mai multe texte într-un singur document Word din Excel cu cod VBA

Dacă doriți să găsiți și să înlocuiți unele texte într-un singur fișier Word, următorul cod VBA vă poate face o favoare.

1. În foaia de lucru Excel, creați o coloană care să conțină textele pe care doriți să le găsiți și să le înlocuiți și o altă coloană cu texte de înlocuit, așa cum se arată mai jos. Și apoi apăsați Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module, copiați și inserați codul VBA de mai jos în fereastră.

Cod VBA: Găsiți și înlocuiți mai multe texte într-un singur fișier Word

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. După lipirea codului, încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe unelte > Referinte, vezi captura de ecran:

4. În pop-out Referințe - VBAProject caseta de dialog, selectați Biblioteca de obiecte Microsoft Word 16.0 din caseta cu listă, vezi captura de ecran:

5. Clic OK butonul pentru a închide caseta de dialog, iar acum, apăsați F5 tasta pentru a rula acest cod, în fereastra pop-up Răsfoire, selectați fișierul Word pe care doriți să înlocuiți textele, vedeți captura de ecran:

6. Apoi apasa OK, în următoarea casetă de dialog, apăsați Ctrl pentru a selecta separat textul original și noile celule de text pe care doriți să le utilizați, vedeți captura de ecran:

7. Apoi, faceți clic OK butonul, acum, textele sunt găsite și înlocuite cu textele noi din documentul specificat și fișierul se deschide, de asemenea, ar trebui să îl salvați pentru a păstra modificările.


Găsiți și înlocuiți mai multe texte în mai multe documente Word din Excel cu cod VBA

Aici, de asemenea, creez un cod VBA pentru găsirea și înlocuirea mai multor texte în mai multe documente Word, vă rugăm să procedați astfel:

1. Deschideți fișierul Excel care conține două coloane de valori pe care să le înlocuiți și să înlocuiți cu așa cum se arată în captura de ecran de mai jos, apoi apăsați Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module, copiați și inserați codul VBA de mai jos în fereastră.

Cod VBA: Găsiți și înlocuiți mai multe texte în mai multe fișiere Word

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe unelte > Referinte, În Referințe - VBAProject caseta de dialog, selectați Biblioteca de obiecte Microsoft Word 16.0 și Runtime Microsoft Scripting opțiuni din caseta de listă, vezi captura de ecran:

4. După ce ați verificat cele două opțiuni, și faceți clic OK pentru a închide caseta de dialog și apoi apăsați în continuare F5 tasta pentru a executa acest cod, în deschidere Naviga fereastră, alegeți un folder care conține documentele Word pe care doriți să le căutați și să le înlocuiți, vedeți captura de ecran:

5. Clic OK butonul, în caseta de dialog pop-out, apăsați Ctrl pentru a selecta separat textul original și coloanele de text noi pe care doriți să le utilizați, vedeți captura de ecran:

6. În cele din urmă, faceți clic pe OK, iar textele originale sunt înlocuite cu cele noi în aceste fișiere, după finalizare, va apărea o casetă de dialog după cum se arată mai jos:

7. Clic OK pentru a închide dialogul. Și puteți merge la fișiere pentru a verifica rezultatele convertite.


Găsiți și înlocuiți mai multe texte în mai multe documente Word cu o funcție puternică

În această secțiune, voi vorbi despre cum să găsiți și să înlocuiți texte în mai multe documente Word din Word în loc de Excel. Cu un instrument puternic -Kutools pentru Cuvânt, puteți găsi și înlocui rapid textele specifice și le puteți înlocui cu texte noi în fișierul principal, antet, subsol, comentarii etc. și evidențiați rezultatele după cum aveți nevoie.

1. Deschideți un fișier Word, apoi faceți clic Kutools Plus > Găsiți și înlocuiți în lot, vezi captura de ecran:

2. În deschise Găsiți și înlocuiți în lot caseta de dialog, vă rugăm să efectuați următoarele operații:

  • Clic Adăuga butonul pentru a adăuga fișierele Word unde doriți să găsiți și să înlocuiți texte;
  • În panoul din stânga, faceți clic pe Adăugați un rând din panglica de sus;
  • În câmpul inserat, introduceți textul original și textul nou în Găsi și Înlocui coloane separat pe care doriți să le găsiți și să le înlocuiți. De asemenea, puteți specifica o culoare pentru evidențierea textelor înlocuite după cum aveți nevoie.

3. După crearea criteriilor de căutare, faceți clic Înlocui buton pentru a merge la Previzualizați rezultatul pentru a vedea rezultatele de căutare și înlocuire. Vedeți captura de ecran:

4. Apoi apasa Închide butonul și apare o casetă promptă pentru a vă reaminti dacă doriți să salvați acest scenariu, faceți clic Da pentru a-l salva și faceți clic pe Nu pentru a o ignora, vezi captura de ecran:

sfaturi: Această caracteristică poate ajuta și la realizarea următoarelor operațiuni:
  • Găsiți și înlocuiți caractere speciale în mai multe documente Word;
  • Găsiți și înlocuiți mai multe șiruri de caractere cu formatare specifică în mai multe documente Word;
  • Găsiți și înlocuiți mai multe șiruri în mai multe fișiere txt/htm/html.

Faceți clic pentru a afla informații mai detaliate despre această caracteristică...


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (4)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salutari,
primul cod:
Cod VBA: Găsiți și înlocuiți mai multe texte într-un singur fișier Word

eroare: eroare de compilare tip definit de utilizator nu este definit
https://i.imgur.com/FZPBy4I.png
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Erik
Codul funcționează bine.
Poate nu ai verificat Biblioteca de obiecte Microsoft Word 16.0 de la Referințe - VBAProject căsuță de dialog.
Înseamnă că este posibil să ratați Pasul 3 și Pasul 4 din acest articol.
Vă rugăm să încercați din nou, dacă mai aveți orice altă problemă, vă rugăm să comentați aici.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu merge.

Eroare de compilare: tipul definit de utilizator nu este definit
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Param
Codul funcționează bine.
Poate nu ai verificat Biblioteca de obiecte Microsoft Word 16.0 de la Referințe - VBAProject căsuță de dialog.
Înseamnă că este posibil să ratați Pasul 3 și Pasul 4 din acest articol.
Vă rugăm să încercați din nou, dacă mai aveți orice altă problemă, vă rugăm să comentați aici.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL