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.
    martinadam · 2 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 3 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 4 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
  • To post as a guest, your comment is unpublished.
    blds · 11 months ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(
  • To post as a guest, your comment is unpublished.
    Kath · 1 years ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !