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 Instrumente > 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 Instrumente > 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:
- 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 de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!