რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ მოძებნოთ და შეცვალეთ მრავალი ფაილი სიტყვაში?

თუ თქვენ გაქვთ რამდენიმე ათეული სიტყვა ფაილი, რომელიც შეიცავს იგივე შინაარსს (როგორიცაა header, footer, ზოგიერთი სპეციალური სიტყვა ან ნომერი), და თქვენ უნდა შეცვალოთ იგივე შინაარსის მასშტაბით იმ დოკუმენტებში Word. როგორ გაგიადვილებთ უფრო სწრაფად გაკეთებას? რა თქმა უნდა, თქვენ შეგიძლიათ გახსნათ ერთი ფაილი ერთი შეცვალოს იგივე შინაარსი, მაგრამ ეს იქნება შრომატევადი და პრობლემური. ამ tutorial გაჩვენებთ სახიფათო გზა შეცვლის იგივე შინაარსის ფარგლებში სხვადასხვა დოკუმენტების Word ერთდროულად.

მოძებნეთ და შეცვალეთ ტექსტები სხვადასხვა სიტყვების გასწვრივ, ამავე დროს VBA კოდით


შეუთავსეთ / შერწყმა მრავალჯერადი დოკუმენტების ერთ ადვილად:

ის დოკუმენტების შერწყმა სასარგებლო Kutools სიტყვით დაგეხმარებათ მრავალჯერადი დოკუმენტების შერწყმა ერთ სწრაფად. თქვენ უბრალოდ უნდა:

  • აირჩიეთ დოკუმენტები, რომლებიც გაერთიანდება ერთში;
  • მიუთითეთ შესვენება თითოეულ კომბინირებულ დოკუმენტს შორის;
  • შერწყმის დაწყება. იხილეთ სკრინშოტი:

Kutools სიტყვით: მეტი, ვიდრე 100 მოსახერხებელი Word add-ins, უფასო ცდილობენ არ შეზღუდვა 30 დღე. ჩამოტვირთეთ და უფასო საცდელი ახლა!

Kutools სიტყვით: სანიშნეს ახალი ახალი თვისებები სიტყვით 2003 / 2007 / 2010 / 2013 / 2016.
ოფისის ჩანართი: ჩართვა Tabbed Editing და Browsing ოფისში, ისევე როგორც Chrome, Firefox, IE 8 / 9 / 10.
კლასიკური მენიუ ოფისში: Bring ძველი ნახვა ოფისი XX უკან ოფისიდან 2007, 2010, 2013, 2016 და 2019.

მოძებნეთ და შეცვალეთ ტექსტები სხვადასხვა სიტყვების გასწვრივ, ამავე დროს VBA კოდით

1. დაჭერა Alt + F11 გახსნას Microsoft Visual Basic აპლიკაციებისათვის window.

2. In Microsoft Visual Basic აპლიკაციებისათვის ფანჯარა, დააჭირეთ ჩადეთ > მოდულები, შემდეგ შეიტანეთ შემდეგი VBA კოდი მოდულის ფანჯარაში.

VBA კოდექსი: ერთსა და იმავე კონტენტზე სხვადასხვა დოკუმენტების ძიებასა და ჩანაცვლება ერთ დროს

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. პირველად Kutools სიტყვით დიალოგური ფანჯარა, ჩაწერეთ ტექსტი თქვენ იხილავთ მთელს დოკუმენტებს იპოვეთ რა ყუთი, და შემდეგ დააჭირეთ OK ღილაკს.

6. მეორეში Kutools სიტყვით დიალოგური ფანჯარა, შეიტანეთ ტექსტის შეცვლა, დააკლიკეთ OK ღილაკს.

8. Click OK ღილაკს შემდეგი Microsoft Word დიალოგური ფანჯარა დასასრულს მოძებნეთ და შეცვალეთ.

ამ შემთხვევაში, ყველა სიტყვა "სიტყვა" შერჩეულ დოკუმენტებში შეიცვალა "Excel" - ზე.


ოფისის ჩანართი ფოტოალბომები - Tabbed Browsing, რედაქტირება და მმართველი მრავალი დოკუმენტები Word:

ოფისის ჩანართი მოაქვს tabbed ინტერფეისი როგორც ჩანს ვებ ბრაუზერები, როგორიცაა Google Chrome, Internet Explorer ახალი ვერსიები და Firefox to Microsoft Word. ეს იქნება იყოს დროის დაზოგვა ხელსაწყო და შეუცვლელი მუშაობა თქვენს მუშაობაში. იხილეთ დემო:

დაწკაპეთ ოფისის ჩანართის უფასო საცდელი ვერსია!




Kutools სიტყვით

მეტი, ვიდრე 100 Advanced ფუნქციები სიტყვა 2003, 2007, 2010, 2013, 2016 და 2019

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.
    Tiago · 1 days ago
    Is it possible to replace in the headers of the word doc?
  • To post as a guest, your comment is unpublished.
    dsadasd · 1 days ago
    Is that possible to replace in the header of the word doc?
  • 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.
    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. :(