קאָאָקיעס העלפֿן אונדז צושטעלן אונדזער באַדינונגס. דורך ניצן אונדזער באַדינונגס, איר שטימען צו אונדזער נוצן פון קיכלעך.
שפּיץ: אנדערע שפּראַכן זענען גוגל-איבערגעזעצט. איר קענען באַזוכן דעם English ווערסיע פון ​​דעם לינק.
צייכן אריין
x
or
x
x
רעגיסטרירן
x

or

ווי צו זוכן און פאַרבייַטן קייפל טעקעס אין וואָרט?

אויב איר האָבן עטלעכע טוץ וואָרט טעקעס וואָס אַנטהאַלטן די זעלבע צופרידן (אַזאַ ווי כעדער, פוטער, עטלעכע ספּעציעלע ווערטער אָדער נומער), און איר דאַרפֿן צו פאַרבייַטן די זעלבע צופרידן אין די דאָקומענטן אין וואָרט. ווי וואָלט עס זיין גרינגער פֿאַר איר צו באַקומען עס געטאן געשווינד? אַוואַדע, איר קענען עפענען די טעקעס איינער דורך איין צו פאַרבייַטן די זעלבע צופרידן, אָבער עס וועט זיין צייַט-קאַנסומינג און טראַבאַלסאַם. דעם טוטאָריאַל וועט ווייַזן איר אַ טריקי וועג צו פאַרבייַטן זעלביקער צופרידן ין קייפל דאָקומענטן אין וואָרט בייַ אַמאָל.

געפינען און פאַרבייַטן טעקסטן אַריבער קייפל וואָרט דאָקומענטן אין דער זעלביקער צייַט מיט וובאַ קאָד


קאַמביינד / צונויפגיסן קייפל דאקומענטן אין איינער לייכט:

די צונויפגיסן דאקומענטן נוצן פון קוטאָאָלס פֿאַר וואָרט קענען העלפן איר פאַרבינדן קייפל דאָקומענטן אין איין געשווינד. איר נאָר דאַרפֿן צו:

  • אויסקלייַבן די דאָקומענטן וואָס איר וועט פאַרבינדן אין איין;
  • ספּעציפיצירן די ברעכן צווישן יעדער קאַמביינד דאָקומענט;
  • Start merging. זען סקרעענשאָט:

קוטאָאָלס פֿאַר וואָרט: מיט מער ווי קסנומקס האַנטיק וואָרט לייג-ינס, פֿרייַ צו פּרובירן מיט קיין שיעור אין קסנומקס טעג. אָפּלאָדירן און פֿרייַ פּראָצעס איצט!

קוטאָאָלס פֿאַר וואָרט: לייג קסנומקס נייַ אַוואַנסירטע פֿעיִקייטן צו וואָרט קסנומקס / קסנומקס / קסנומקס / קסנומקס / קסנומקס / קסנומקס.
אָפיס טאַב: Enable טאַבבעד עדיטינג און בראַוזינג אין אָפפיסע, פּונקט ווי קראָום, פירעפאָקס, יאָ קסנומקס / קסנומקס / קסנומקס.
קלאַסיק מעניו פֿאַר אָפפיסע: ברענגען אַלט קוקן פון אָפיס קסנומקס צוריק צו אָפפיסע קסנומקס, קסנומקס, קסנומקס, קסנומקס און קסנומקס.

געפינען און פאַרבייַטן טעקסטן אַריבער קייפל וואָרט דאָקומענטן אין דער זעלביקער צייַט מיט וובאַ קאָד

1. דרוק אַלט + פקסנומקס צו עפענען די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער.

2. אין די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער, גיט אַרייַנלייגן > מאָדולעס, נאָכגיין די ווייַטערדיק וובאַ קאָד אין די מאָדולע פֿענצטער.

וובאַ קאָוד: זוכן און ריפּלייסינג זעלביקער צופרידן אַריבער קייפל דאָקומענטן אין איין צייַט

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. דרוק די F5 שליסל צו לויפן די קאָד.

4. אין דער עפענונג אָפּפליקן פֿענצטער, ביטע געפֿינען און אויסקלייַבן די דאקומענטן וואָס איר וועט געפֿינען און פאַרבייַטן טעקסט אינעווייניק, און דעמאָלט גיט די OK קנעפּל. זען סקרעענשאָט:

5. אין דער ערשטער קוטאָאָלס פֿאַר וואָרט דיאַלאָג קעסטל, אַרייַן די טעקסט וואָס איר וועט געפֿינען אַריבער די דאקומענטן אין די געפינען וואָס קעסטל, און דעמאָלט גיט די OK קנעפּל.

6. אין די רגע קוטאָאָלס פֿאַר וואָרט דיאַלאָג קעסטל, אַרייַן די טעקסט איר וועט פאַרבייַטן, און גיט די OK קנעפּל.

קסנומקס. גיט די OK קנעפּל אין דער ווייַטער Microsoft Word דיאַלאָג קאַסטן צו ענדיקן די געפֿינען און פאַרבייַטן.

אין דעם פאַל, אַלע ווערטער "וואָרט" אין אויסגעקליבן דאָקומענטן זענען ריפּלייסט מיט "עקססעל" אין דער זעלביקער צייַט.


אָפיס טאַב - טאַבבעד בראַוזינג, עדיטינג, און מאַנאַגינג פון קייפל דאקומענטן אין וואָרט:

אָפפיסע טאַב ברענגט די טאַבבעד צובינד ווי געזען אין וועב בראַוזערז אַזאַ ווי Google קראָום, Internet Explorer נייַ ווערסיעס און פירעפאָקס צו מיקראָסאָפט וואָרט. עס וועל זיין אַ צייַט-שפּאָרן געצייַג און יראַפּלייסאַבאַל אין דיין אַרבעט. זען אונטער דעמאָ:

גיט פֿאַר פֿרייַ פּראָצעס פון אָפפיסע טאַב!




קוטאָאָלס פֿאַר וואָרט

מער ווי קסנומקס אַוואַנסירטע פאַנגקשאַנז פֿאַר וואָרט קסנומקס, קסנומקס, קסנומקס, קסנומקס, קסנומקס און קסנומקס

shot-kutools-700-225-kte

מער פֿעיִקייטן | פֿרייַ אראפקאפיע | בלויז $ 39.00 פֿאַר הונדערטער פאַנגקשאַנז

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