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

Ինչպե՞ս գտնել և փոխարինել տեքստը Word փաստաթղթում Excel-ից:

Word փաստաթղթում մենք կարող ենք կիրառել Find and Replace ֆունկցիան՝ արագ գտնելու և փոխարինելու մեկ տեքստ: Բայց եթե կան մի քանի տեքստեր, որոնք պետք է գտնել և փոխարինել, տեքստը մեկ առ մեկ մուտքագրեք «Գտնել և փոխարինել» գործառույթը, որը ժամանակատար կլինի: Այս դեպքում կարող եք գտնել և փոխարինել տեքստերը բջիջների ցանկում և Excel-ում VBA կոդի օգնությամբ հեշտությամբ կատարել այս աշխատանքը: Այս հոդվածում ես նաև կներկայացնեմ մի օգտակար հատկություն՝ մի քանի Word փաստաթղթերում տեքստերը խմբաքանակ գտնելու և փոխարինելու համար:

Գտեք և փոխարինեք բազմաթիվ տեքստեր մեկ Word փաստաթղթում Excel-ից VBA կոդով

Գտեք և փոխարինեք բազմաթիվ տեքստեր բազմաթիվ Word փաստաթղթերում Excel-ից VBA կոդով

Գտեք և փոխարինեք բազմաթիվ տեքստեր բազմաթիվ Word փաստաթղթերում հզոր հատկանիշով


Գտեք և փոխարինեք բազմաթիվ տեքստեր մեկ Word փաստաթղթում Excel-ից VBA կոդով

Եթե ​​ցանկանում եք գտնել և փոխարինել որոշ տեքստեր միայն մեկ Word ֆայլում, ապա հետևյալ VBA կոդը կարող է ձեզ լավություն անել:

1. Excel-ի աշխատաթերթում ստեղծեք սյունակ, որը պարունակում է այն տեքստերը, որոնք ցանկանում եք գտնել և փոխարինել, և մեկ այլ սյունակ տեքստերով, որոնք փոխարինելու եք ստորև ներկայացված սքրինշոթով: Եվ հետո սեղմեք Alt + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2, Դրանից հետո կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք ստորև նշված VBA կոդը պատուհանում:

VBA կոդ. Գտեք և փոխարինեք բազմաթիվ տեքստեր մեկ 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. Կոդը կպցնելուց հետո դեռ գտնվում է Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Գործիքներ > Սայլակ, տես նկարի նկարը.

4, Դուրս գալու մեջ Հղումներ - VBAP նախագիծ երկխոսության տուփ, ընտրեք Microsoft Word 16.0 օբյեկտի գրադարան ցանկի վանդակից տես սքրինշոթը՝

5: Սեղմեք OK կոճակը երկխոսության տուփը փակելու համար, իսկ հիմա սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, բացվող Փնտրել պատուհանում ընտրեք Word Ֆայլը, որը ցանկանում եք փոխարինել տեքստերը, տես սքրինշոթը.

6, Դրանից հետո կտտացրեք OK, հետևյալ երկխոսության վանդակում սեղմեք Ctrl ստեղնը՝ բնօրինակ տեքստը և նոր տեքստային բջիջները առանձին ընտրելու համար, որոնք ցանկանում եք օգտագործել, տես սքրինշոթը՝

7, Եվ հետո, կտտացրեք OK կոճակը, այժմ տեքստերը գտնվել և փոխարինվել են ձեր նշած փաստաթղթում նոր տեքստերով, և ֆայլը նույնպես բացվում է, դուք պետք է պահպանեք այն փոփոխությունները պահպանելու համար:


Գտեք և փոխարինեք բազմաթիվ տեքստեր բազմաթիվ Word փաստաթղթերում Excel-ից VBA կոդով

Այստեղ ես նաև VBA կոդ եմ ստեղծում Word-ի բազմաթիվ փաստաթղթերում բազմաթիվ տեքստեր գտնելու և փոխարինելու համար, խնդրում ենք անել այսպես.

1. Բացեք Excel ֆայլը, որը պարունակում է արժեքների երկու սյունակ՝ փոխարինելու և փոխարինելու համար, ինչպես ցույց է տրված ստորև նշված սքրինշոթը, այնուհետև սեղմեք Alt + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2, Դրանից հետո կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք ստորև նշված VBA կոդը պատուհանում:

VBA կոդ. Գտեք և փոխարինեք բազմաթիվ տեքստեր բազմաթիվ 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, Դեռևս Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Գործիքներ > ՍայլակԷ, ապա Հղումներ - VBAP նախագիծ երկխոսության տուփ, ընտրեք Microsoft Word 16.0 օբյեկտի գրադարան և Microsoft Scripting Runtime ընտրանքներ ցանկի վանդակից, տես սքրինշոթը.

4. Երկու տարբերակները ստուգելուց հետո կտտացրեք OK երկխոսության տուփը փակելու համար, այնուհետև շարունակեք սեղմել կոճակը F5 բանալին՝ այս կոդը գործարկելու համար, բացման ժամանակ Թերթել պատուհանում ընտրեք թղթապանակ, որը պարունակում է Word փաստաթղթերը, որոնք ցանկանում եք գտնել և փոխարինել, տես սքրինշոթը.

5: Սեղմեք OK կոճակը, բացվող երկխոսության վանդակում սեղմեք Ctrl ստեղնը՝ բնօրինակ տեքստը և նոր տեքստի սյունակները առանձին ընտրելու համար, որոնք ցանկանում եք օգտագործել, տես սքրինշոթը՝

6. Վերջապես, կտտացրեք OKև բնօրինակ տեքստերը փոխարինվում են նորերով այս ֆայլերում, ավարտելուց հետո երկխոսության տուփը դուրս կգա, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.

7: Սեղմեք OK երկխոսությունը փակելու համար: Եվ դուք կարող եք գնալ ֆայլեր՝ ստուգելու փոխարկված արդյունքները:


Գտեք և փոխարինեք բազմաթիվ տեքստեր բազմաթիվ Word փաստաթղթերում հզոր հատկանիշով

Այս բաժնում ես կխոսեմ այն ​​մասին, թե ինչպես կարելի է խմբաքանակով գտնել և փոխարինել տեքստերը մի քանի Word փաստաթղթերում Word-ից Excel-ի փոխարեն: Հզոր գործիքով -Kutools բառի համարԴուք կարող եք արագ գտնել և փոխարինել կոնկրետ տեքստերը և դրանք փոխարինել նոր տեքստերով հիմնական ֆայլում, վերնագրի, ստորագրի, մեկնաբանություններում և այլն, և անհրաժեշտության դեպքում ընդգծել արդյունքները:

1. Բացեք մեկ Word ֆայլ և սեղմեք Kutools Plus > Խմբաքանակի որոնում և փոխարինում, տես նկարի նկարը.

2, Բացվածքում Խմբաքանակի որոնում և փոխարինում երկխոսության տուփ, խնդրում ենք կատարել հետևյալ գործողությունները.

  • Սեղմել Ավելացնել կոճակ՝ Word ֆայլերը ավելացնելու համար, որտեղ ցանկանում եք գտնել և փոխարինել տեքստերը.
  • Ձախ վահանակում կտտացրեք Ավելացնել շարասյուն վերին ժապավենից;
  • Տեղադրված դաշտում մուտքագրեք բնօրինակ տեքստը և նոր տեքստը Գտնել և Փոխարինել առանձին սյունակներ, որոնք ցանկանում եք գտնել և փոխարինել: Նաև կարող եք գույն նշել փոխարինված տեքստերը ըստ անհրաժեշտության ընդգծելու համար:

3. Որոնման չափանիշները ստեղծելուց հետո սեղմեք Փոխարինել կոճակը, գնալու համար Նախադիտման արդյունք ներդիր՝ արդյունքները գտնելու և փոխարինելու համար: Տեսեք սքրինշոթը՝

4, Դրանից հետո կտտացրեք փակել կոճակը, և հուշման տուփ է հայտնվում՝ հիշեցնելու համար, թե արդյոք ցանկանում եք պահպանել այս սցենարը, սեղմեք այո այն պահպանելու համար և կտտացրեք Ոչ դա անտեսելու համար տես նկարի նկարը.

TipsԱյս հատկությունը կարող է նաև օգնել իրականացնել հետևյալ գործողությունները.
  • Գտնել և փոխարինել հատուկ նիշերը բազմաթիվ Word փաստաթղթերում;
  • Գտեք և փոխարինեք մի քանի տողեր հատուկ ձևաչափով բազմաթիվ Word փաստաթղթերում;
  • Գտեք և փոխարինեք բազմաթիվ տողեր բազմաթիվ txt/htm/html ֆայլերում:

Սեղմեք՝ այս հատկության մասին ավելի մանրամասն տեղեկություններ իմանալու համար…


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (4)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Greetings,
առաջին կոդը.
VBA կոդ. Գտեք և փոխարինեք բազմաթիվ տեքստեր մեկ Word ֆայլում

thows error. կոմպիլյացիայի սխալ օգտագործողի կողմից սահմանված տեսակը սահմանված չէ
https://i.imgur.com/FZPBy4I.png
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Էրիկ
Կոդը լավ է աշխատում։
Միգուցե, դուք չեք ստուգել Microsoft Word 16.0 օբյեկտի գրադարան - ից Հղումներ - VBAP նախագիծ երկխոսության վանդակում:
Դա նշանակում է, որ դուք կարող եք բաց թողնել այս հոդվածի Քայլ 3-ը և Քայլ 4-ը:
Խնդրում ենք կրկին փորձել, եթե դեռ որևէ այլ խնդիր ունեք, խնդրում ենք մեկնաբանել այստեղ:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չի ստացվում։

Կազմելու սխալ. օգտագործողի կողմից սահմանված տեսակը սահմանված չէ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Պարամ
Կոդը լավ է աշխատում։
Միգուցե, դուք չեք ստուգել Microsoft Word 16.0 օբյեկտի գրադարան - ից Հղումներ - VBAP նախագիծ երկխոսության վանդակում:
Դա նշանակում է, որ դուք կարող եք բաց թողնել այս հոդվածի Քայլ 3-ը և Քայլ 4-ը:
Խնդրում ենք կրկին փորձել, եթե դեռ որևէ այլ խնդիր ունեք, խնդրում ենք մեկնաբանել այստեղ:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից