Cookies matulungan kaming ihatid ang aming mga serbisyo. Sa pamamagitan ng paggamit sa aming mga serbisyo, sumasang-ayon ka sa aming paggamit ng cookies.
Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano maghanap at palitan ang maraming mga file sa salita?

Kung mayroon kang maraming dosenang mga file ng salita na naglalaman ng parehong nilalaman (tulad ng Header, footer, ilang espesyal na salita o numero), at kailangan mong palitan ang parehong nilalaman sa mga dokumentong iyon sa Word. Paano magiging mas madali para sa iyo na mabilis na magawa ito? Tiyak, maaari mong buksan ang mga file na isa-isa upang palitan ang parehong nilalaman, ngunit ito ay magiging oras-ubos at mahirap. Ang tutorial na ito ay magpapakita sa iyo ng nakakalito na paraan upang palitan ang parehong nilalaman sa maramihang mga dokumento sa Word nang sabay-sabay.

Hanapin at palitan ang mga teksto sa maraming mga dokumento ng salita nang sabay sa VBA code


Pagsamahin / pagsamahin ang maramihang mga dokumento sa isang madaling:

ang Pagsamahin ang Mga Dokumento utility ng Kutools for Word maaaring makatulong sa iyo na pagsamahin ang maramihang mga dokumento sa isang mabilis. Kailangan mo lang:

  • Piliin ang mga dokumento na iyong isasama sa isa;
  • Tukuyin ang pahinga sa pagitan ng bawat pinagsamang dokumento;
  • Simulan ang pagsasama. Tingnan ang screenshot:

Kutools for Word: may higit sa 100 madaling gamitin na Salita add-in, libre upang subukan nang walang limitasyon sa 30 araw. I-download at libreng pagsubok Ngayon!

Kutools for Word: Magdagdag ng Mga Bagong Tampok ng 100 sa Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Tab ng Tanggapan: Paganahin Naka-tab na Pag-edit at Pagba-browse sa Opisina, Tulad ng Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu para sa Opisina: Dalhin ang Old Look ng Opisina 2003 Bumalik sa Office 2007, 2010, 2013, 2016 at 2019.

Hanapin at palitan ang mga teksto sa maraming mga dokumento ng salita nang sabay sa VBA code

1. Pindutin ang Alt + F11 upang buksan ang Microsoft Visual Basic para sa Mga Application window.

2. Nasa Microsoft Visual Basic para sa Mga Application window, i-click ang Isingit > Module, pagkatapos ay kopyahin ang sumusunod na VBA code sa window ng Module.

Code ng VBA: Paghahanap at pagpapalit ng parehong nilalaman sa maraming mga dokumento sa isang pagkakataon

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. pindutin ang F5 key upang patakbuhin ang code.

4. Sa pagbubukas Magtingin window, mangyaring hanapin at piliin ang mga dokumento na makikita mo at palitan ang teksto sa loob, at pagkatapos ay i-click ang OK na pindutan. Tingnan ang screenshot:

5. Sa una Kutools for Word dialog box, ipasok ang teksto na makikita mo sa mga dokumento sa Hanapin ang ano kahon, at pagkatapos ay i-click ang OK button.

6. Sa pangalawa Kutools for Word dialog box, ipasok ang text na iyong palitan, at i-click ang OK button.

8. I-click ang OK na pindutan sa susunod Microsoft Word dialog box upang tapusin ang paghahanap at palitan.

Sa kasong ito, ang lahat ng mga salitang "Salita" sa napiling mga dokumento ay pinalitan ng "Excel" sa parehong oras.


Tab ng Tanggapan - Naka-tab na Pag-browse, Pag-edit, at Pamamahala ng maraming Dokumento sa Word:

Dinadala ng Office Tab ang naka-tab na interface tulad ng nakikita sa mga web browser tulad ng Google Chrome, mga bagong bersyon ng Internet Explorer at Firefox sa Microsoft Word. Ito habilin maging isang tool sa pag-save ng oras at irreplaceble sa iyong trabaho. Tingnan ang demo sa ibaba:

Mag-click para sa libreng pagsubok ng Office Tab!




Kutools for Word

Higit sa 100 Advanced na Mga Pag-andar para sa Salita 2003, 2007, 2010, 2013, 2016 at 2019

shot-kutools-700-225-kte

Higit pang mga Tampok | Libreng pag-download | Tanging $ 39.00 para sa daan-daang mga pag-andar

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.
    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.
  • To post as a guest, your comment is unpublished.
    Tomuko Suryadi · 1 years ago
    What if I want to find and replace multiple sentences in multiple documents?