Cookies tgħinna jagħti servizzi tagħna. Bl-użu tas-servizzi tagħna, inti taqbel li l-użu tagħna ta 'cookies.
Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tfittex u tissostitwixxi fuq fajls multipli bil-kelma?

Jekk għandek bosta fajls verbali li fihom l-istess kontenut (bħal Header, footer, xi kliem speċjali jew numru), u għandek bżonn tissostitwixxi l-istess kontenut f'dawk id-dokumenti fil-Kelma. Kif ikun aktar faċli għalik li ġġibu malajr? Ċertament, tista 'tiftaħ dawk il-fajls wieħed wieħed biex tissostitwixxi l-istess kontenut, iżda se tkun tieħu ħafna ħin u idejqek. Dan it-tutorja ser jurik mod delikat biex jissostitwixxi l-istess kontenut f'ħafna dokumenti fi Kelma f'daqqa.

Sib u tibdel it-testi f'diversi dokumenti tal-kliem fl-istess ħin mal-kodiċi VBA


Għaqqad / għaqqad id-dokumenti multipli f'wieħed faċilment:

il Jingħaqdu Dokumenti utilità ta ' Kutools għall-Kelma Jista 'jgħinek tgħaqqad id-dokumenti multipli f'waħda malajr. Inti sempliċiment għandek bżonn:

  • Agħżel id-dokumenti li se tgħaqqad f'wieħed;
  • Speċifika l-waqfa bejn kull dokument magħqud;
  • Ibda tingħaqad. Ara l-screenshot:

Kutools għall-Kelma: b'aktar minn 100 handy Word add-ins, ħielsa li tipprova mingħajr ebda limitazzjoni fil-ġranet 30. Tniżżel u tipprova b'xejn Now!

Kutools għall-Kelma: Żid 100 Karatteristiċi Avvanzati Ġodda għall-Kelma 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Uffiċċju Tab: Jippermettu Tabbed Editjar u Browsing fl-Uffiċċju, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Classic għall-Uffiċċju: Ġib Fittex Qadim ta 'Uffiċċju 2003 Lura għall-Uffiċċju 2007, 2010, 2013, 2016 u 2019.

Sib u tibdel it-testi f'diversi dokumenti tal-kliem fl-istess ħin mal-kodiċi VBA

1. Istampa Alt + F11 biex tiftaħ il - Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

2. Ġol Microsoft Visual Basic għall-Applikazzjonijiet tieqa, ikklikkja Daħħal > Moduli, imbagħad kopja l-kodiċi VBA li ġej fit-tieqa tal-Modulu.

Kodiċi VBA: Tiftix u tissostitwixxi l-istess kontenut f'diversi dokumenti f'ħin wieħed

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. Agħfas il-buttuna F5 ewlieni biex titmexxa l-kodiċi.

4. Fil-ftuħ Browse tieqa, jekk jogħġbok sib u agħżel id-dokumenti li ssib u tibdel it-test ġewwa, u mbagħad ikklikkja fuq it-tabella OK buttuna. Ara l-screenshot:

5. Fl-ewwel Kutools għall-Kelma kaxxa ta 'dialog, daħħal it-test għandek issib id-dokumenti kollha fil-kaxxa Sib dak kaxxa, u mbagħad ikklikkja fuq il-kaxxa OK buttuna.

6. Fit-tieni Kutools għall-Kelma dialog box, daħħal it-test li inti ser tissostitwixxi bi, u kklikkja fuq il-buttuna OK buttuna.

8. Ikklikkja fuq il- OK buttuna fil-li jmiss Microsoft Word Kaxxa ta 'dialog biex tintemm is-sejba u s-sostituzzjoni.

F'dan il-każ, il-kliem "Kelma" f'dokumenti magħżula jinbidlu b '"Excel" fl-istess ħin.


Uffiċċju Tab - Tabbed Browsing, Editjar u Ġestjoni ta 'Dokumenti multipli fil-Kelma:

Office Tab iġib l-interface tabbed kif jidher fil-web browsers bħal Google Chrome, verżjonijiet ġodda tal-Internet Explorer u Firefox għal Microsoft Word. Hija se Tkun għodda li tiffranka l-ħin u tista 'tissostitwixxi x-xogħol tiegħek. Ara hawn taħt demo:

Ikklikkja għal prova b'xejn ta 'Uffiċċju Tab!




Kutools għall-Kelma

Aktar minn 100 Advanced Functions għal Word 2003, 2007, 2010, 2013, 2016 u 2019

shot-kutools-700-225-kte

Karatteristiċi Aktar | Free download | Biss $ 39.00 għal mijiet ta 'funzjonijiet

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.
    Paul Oz · 1 years ago
    Hi all,
    I am new to the whole VBA thing and I Love love love this code!
    I have 5000+ docs to review and if this works it will save heaps of time!
    I have the code above running however i can see that it does not cater for replacing text in footers, Only headers and the body of the doc.
    Can anyone assist in extending this to the entire document.
    P.S. not sure if this is relevant but the list of words that i need to replace is the same for headers, footers and the body...
    Any help would really be appreciated!
    • To post as a guest, your comment is unpublished.
      blue_crayon · 1 years ago
      You can edit the footer by using almost identical code that the header uses. Copy everything from "Begin Header Updates" to "End Header Updates" and paste it directly after.

      Then, in this pasted section, find the word "wdSeekCurrentPageHeader" and change it to "wdSeekCurrentPageFooter".
  • To post as a guest, your comment is unpublished.
    Terence · 2 years ago
    Out of interest what does the line: Application.Run macroname:="NEW MACROS" do?
    The rest of the code makes sense to me (used to VBA in Excel) but I can't figure out why you need to execute another piece of code here.
    Thanks for the great tool though.
  • To post as a guest, your comment is unpublished.
    Mike · 2 years ago
    This macro was amazing..is there any code to update multiple excel files,spss files.also is there is any macro to update the header and footer on multiple word documents .

    Any help is appreciated .thanks !
  • To post as a guest, your comment is unpublished.
    Tracy · 2 years ago
    Just brilliant, saved me lots of time, thank you
  • To post as a guest, your comment is unpublished.
    Exis · 2 years ago
    You can always try a 3rd party tool to do this which makes it very easy: www.officefindreplace.com