Skip to main content

Conas téacs a aimsiú agus a athsholáthar i ndoiciméad Word ó Excel?

I gcáipéis Word, is féidir linn an fheidhm Faigh agus Ionadaigh a chur i bhfeidhm chun téacs amháin a aimsiú agus a athsholáthar go tapa. Ach, má tá gá le téacsanna iolracha a aimsiú agus a chur ina n-ionad, cuir an téacs ceann ar cheann isteach sa ghné Faigh agus Ionadaigh am-íditheach. Sa chás seo, is féidir leat na téacsanna a aimsiú agus a athsholáthar isteach sa liosta cealla, agus le cabhair ó chód VBA in Excel chun an post seo a dhéanamh gan stró. San Airteagal seo, tabharfaidh mé isteach gné úsáideach freisin chun téacsanna i ndoiciméid Word iolracha a aimsiú agus a athsholáthar.

Aimsigh agus cuir téacsanna iolracha in aon doiciméad Word amháin ó Excel le cód VBA

Aimsigh agus cuir in ionad téacsanna iolracha i ndoiciméid Word iolracha ó Excel le cód VBA

Aimsigh agus ionadaigh téacsanna iolracha i ndoiciméid iolracha Word le gné chumhachtach


Aimsigh agus cuir téacsanna iolracha in aon doiciméad Word amháin ó Excel le cód VBA

Más mian leat roinnt téacsanna a aimsiú agus a athsholáthar i gcomhad Word amháin, is féidir leis an gcód VBA seo a leanas bhfabhar a dhéanamh duit.

1. I mbileog oibre Excel, cruthaigh colún ina bhfuil na téacsanna is mian leat a aimsiú agus a athsholáthar, agus colún eile le téacsanna le cur in ionad mar a thaispeántar an scáileán thíos. Agus ansin brúigh Alt + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód VBA thíos isteach sa fhuinneog.

Cód VBA: Faigh agus cuir téacsanna iolracha in ionad i gcomhad Word amháin

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. Tar éis an cód a ghreamú, fós sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil uirlisí > tagairtí, féach ar an scáileán:

4. Sa popped-amach Tagairtí - VBAProject bosca dialóige, roghnaigh an Leabharlann Réada Microsoft Word 16.0 ón mbosca liosta, féach an scáileán:

5. Cliceáil OK cnaipe chun an bosca dialóige a dhúnadh, agus anois, brúigh F5 eochair chun an cód seo a rith, sa fhuinneog aníos Brabhsáil, roghnaigh an Comhad Word a theastaíonn uait a chur in ionad na dtéacsanna, féach an seat scáileáin:

6. Ansin, cliceáil OK, sa bhosca dialóige seo a leanas, brúigh Ctrl eochair chun an buntéacs agus na cealla téacs nua a roghnú ina n-aonar is mian leat a úsáid, féach screenshot:

7. Agus ansin, cliceáil OK cnaipe, anois, aimsítear na téacsanna agus cuirtear na téacsanna nua i do dhoiciméad sonraithe ina n-ionad, agus tá an comhad á oscailt freisin, ba cheart duit é a shábháil chun na hathruithe a choinneáil.


Aimsigh agus cuir in ionad téacsanna iolracha i ndoiciméid Word iolracha ó Excel le cód VBA

Anseo, cruthaím cód VBA freisin chun téacsanna iolracha i ndoiciméid Word iolracha a aimsiú agus a athsholáthar, déan mar seo le do thoil:

1. Oscail an comhad Excel ina bhfuil dhá cholún de luachanna le hathsholáthar agus cuir ina ionad mar a thaispeántar an scáileán thíos, agus ansin brúigh Alt + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód VBA thíos isteach sa fhuinneog.

Cód VBA: Faigh agus cuir téacsanna iolracha ina n-ionad i gcomhaid Word iolracha

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. Fós sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil uirlisí > tagairtí, I Tagairtí - VBAProject bosca dialóige, roghnaigh an Leabharlann Réada Microsoft Word 16.0 agus Microsoft Scripting Runtime roghanna ón mbosca liosta, féach screenshot:

4. Tar éis an dá rogha a sheiceáil, agus cliceáil OK a dhúnadh an bosca dialóige, agus ansin, dul ar an cnaipe an F5 eochair chun an cód seo a fhorghníomhú, san oscailt Brabhsáil fuinneog, roghnaigh fillteán ina bhfuil na doiciméid Word a theastaíonn uait a aimsiú agus a athsholáthar, féach an scáileán:

5. Cliceáil OK cnaipe, sa bhosca dialóige popped-out, brúigh Ctrl eochair chun an buntéacs agus na colúin téacs nua a roghnú ina n-aonar is mian leat a úsáid, féach screenshot:

6. Ar deireadh, cliceáil OK, agus cuirtear na téacsanna nua in ionad na mbuntéacs trasna na gcomhad tráchtais, tar éis iad a chríochnú, beidh bosca dialóige aníos mar a thaispeántar an scáileán thíos:

7. Cliceáil OK chun an dialóg a dhúnadh. Agus is féidir leat dul go dtí na comhaid a sheiceáil ar na torthaí a chomhshó.


Aimsigh agus ionadaigh téacsanna iolracha i ndoiciméid iolracha Word le gné chumhachtach

An chuid seo, beidh mé ag caint faoi conas a aimsiú agus a chur in ionad téacsanna i ndoiciméid Word iolracha ó Word in ionad Excel. Le huirlis chumhachtach-Kutools le haghaidh Word, is féidir leat na téacsanna sonracha a aimsiú agus a athsholáthar go tapa agus téacsanna nua a chur ina n-ionad sa phríomhchomhad, ceanntásc, buntásc, tuairimí, etc. agus béim a chur ar na torthaí de réir mar is gá duit.

1. Oscail comhad Word amháin, agus ansin cliceáil Kutools Plus > Faigh Baisc agus Ionadaigh, féach ar an scáileán:

2. San oscailt Faigh Baisc agus Ionadaigh bosca dialóige, déan na hoibríochtaí seo a leanas le do thoil:

  • cliceáil Cuir cnaipe chun na comhaid Word a chur leis nuair is mian leat téacsanna a aimsiú agus a athsholáthar;
  • Sa phána chlé, cliceáil Cuir as a chéile as an ribín barr;
  • Sa réimse ionsáite, cuir an buntéacs agus an téacs nua isteach sa Aimsigh agus Ionadaigh colúin ar leithligh ar mhaith leat a aimsiú agus a athsholáthar. Chomh maith leis sin, is féidir leat dath a shonrú chun aird a tharraingt ar na téacsanna athsholáthair de réir mar is gá duit.

3. Tar éis na critéir chuardaigh a chruthú, cliceáil Ionadaigh cnaipe chun dul go dtí an Toradh Réamhamhairc cluaisín chun na torthaí a aimsiú agus a athsholáthar. Féach ar an scáileán:

4. Ansin, cliceáil Dún cnaipe, agus tá bosca leid popped amach chun a mheabhrú duit más mian leat an cás seo a shábháil, cliceáil Is ea chun é a shábháil, agus cliceáil Uimh chun neamhaird a dhéanamh air, féach ar an scáileán:

Leideanna: Is féidir leis an ngné seo cabhrú freisin leis na hoibríochtaí seo a leanas a bhaint amach:
  • Carachtair speisialta a aimsiú agus a athsholáthar i gcáipéisí iolracha Word;
  • Faigh agus cuir teaghráin iolracha ina n-ionad le formáidiú sonrach i gcáipéisí iolracha Word;
  • Aimsigh agus cuir teaghráin iolracha in ionad comhaid txt/htm/html iolracha.

Cliceáil chun eolas níos mionsonraithe a fháil faoin ngné seo…

Uirlisí Táirgiúlachta Oifige is Fearr

Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

cluaisín kte 201905


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This works great, thank you! Is there a way to make the replacement text carry hyperlinks over? ie - if you have a hyperlinked replacement in the excel sheet, it is still hyperlinked in the Word doc?

Thanks!
This comment was minimized by the moderator on the site
Is there a way too modify this too find text and create hyperlink on the text from another column where i have the links already created? It worked correctly as a find and replace for me. Thanks
This comment was minimized by the moderator on the site
Hi,

I am wondering how this can be modified to also find and replace text in footnotes?

Thanks!
This comment was minimized by the moderator on the site
Hello, Nate,
If you want to find and replace the text in footnotes at the same time, maybe the Kutools for Word's Batch Find and Replace feature can help you.
You just need to check Main document and Footnotes from the Find in section, see below image:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word.png
This comment was minimized by the moderator on the site
It doesn't work.

Compile error: User-defined type not defined
This comment was minimized by the moderator on the site
Hello, Param
The code works well.
Maybe, you didn't check Microsoft Word 16.0 Object Library from the References – VBAProject dialog box.
It means that you may miss the Step 3 and Step 4 of this article.
Please try again, if you still have any other problem, please comment here.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
This comment was minimized by the moderator on the site
Sorry for the overdue reply. I have replied before, but my reply dissapeared somehow. You're right, the code does work well. But it replaced nothing when I tried it on a file with more than 80,000 lines.
This comment was minimized by the moderator on the site
Hello, Param
I have tested the code, it works well in my Word docuent which contains 140,000 lines.
Do you mind to upload your attachment here for testing?
Or you can apply our Kutools for Word's Batch Find and Replace feature, it can help you with ease.
Thank you!
This comment was minimized by the moderator on the site
Greetings,
the first code :
VBA code: Find and replace multiple texts in one Word file

thows error : compile error user defined type not defined
https://i.imgur.com/FZPBy4I.png
This comment was minimized by the moderator on the site
Hello, Erik
The code works well.
Maybe, you didn't check Microsoft Word 16.0 Object Library from the References – VBAProject dialog box.
It means that you may miss the Step 3 and Step 4 of this article.
Please try again, if you still have any other problem, please comment here.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations