שפּיץ: אנדערע שפּראַכן זענען גוגל-איבערגעזעצט. איר קענען באַזוכן דעם 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.
    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 !
  • 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.