Cookieak gure zerbitzuak hornitzen laguntzen digute. Gure zerbitzuak erabiltzerakoan, cookieen erabilera onartzen duzu.
Aholkua: beste hizkuntza Google-k itzulitako dira. Bisitatu dezakezu English estekaren bertsioa.
Saioa hasi
x
or
x
x
Eman izena
x

or

Nola bilatzen eta ordeztu fitxategi anitzetan?

Eduki bera duten hainbat dozena-hitz fitxategi badituzu (adibidez, Goiburukoa, orri-oina, hitz edo zenbaki berezi bat), eta Word dokumentuan eduki bera eduki behar duzu. Nola erraztuko zenioke azkar egin ahal izateko? Zalantzarik gabe, fitxategiak ireki ditzakezu bat eduki bakar bat ordezkatzeko, baina denbora asko eta kezkak izango dira. Tutorial honek aldi berean modu berean dokumentu anitzetako eduki berberaren ordez ordezkatzeko modu zaila eta erakargarria erakutsiko dizu.

Testu bat baino gehiagotan testuak bilatzeko eta ordezteko VBA kodean aldi berean


Hainbat dokumentu konbinatu / batu erraz batean:

The Batu dokumentuak erabilgarritasuna Kutools for Word dokumentu bat baino gehiago bihur ditzakezu azkar batean. Besterik ez duzu:

  • Aukeratu bat datozen dokumentuak hautatzeko;
  • Zehaztu dokumentu konbinatu bakoitzaren haustura;
  • Hasi batzea. Ikusi pantaila-argazkia:

Kutools for Word: 100 Word erabilgarrien gehigarriekin baino gehiagorekin, 30 egunetan mugarik gabe saiatu. Deskargatu eta doako proba Orain!

Kutools for Word: Gehitu 100 berrien ezaugarri aurreratuak Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Bulegoko fitxa: Gaitu Tabbed editatzea eta nabigazioa Office-n, Like Like Chrome, Firefox, IE 8 / 9 / 10.
Bulegoko menu klasikoa: Ekarri bulegoko itxura zaharra 2003 Itzuli Office 2007, 2010, 2013, 2016 eta 2019.

Testu bat baino gehiagotan testuak bilatzeko eta ordezteko VBA kodean aldi berean

1. Prentsa Alt + F11 irekitzeko Microsoft Visual Basic aplikazioak leihoa.

2. In the Microsoft Visual Basic aplikazioak leiho, egin klik Txertatu > Moduluak, kopiatu hurrengo VBA kodea Moduluaren leihoan.

VBA kodea: dokumentu anitzetako eduki berberak aldi berean bilatzen eta ordezten ditu

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. Sakatu F5 kodea exekutatzeko tekla.

4. Hasieran Arakatzeko Leihoan, aurkitu eta hautatu dokumentuak aurkituko dituzu eta testua sartu ordez, eta egin klik OK botoia. Ikusi pantaila-argazkia:

5. Lehenengoan Kutools for Word elkarrizketa koadroa, sartu dokumentuak dokumentuan aurkituko dituzu Bilatu zer koadroan, eta gero egin klik OK botoia.

6. Bigarrenean Kutools for Word Elkarrizketa koadroa, sartu ordeztuko duzun testua eta egin klik OK botoia.

8. Egin klik OK Hurrengo botoia Microsoft Word elkarrizketa-koadroa aurkitzeko eta ordezteko amaitzeko.

Kasu honetan, hautatutako dokumentuetako "Word" hitzak "Excel" aldi berean ordezkatzen ditu.


Bulegoko fitxa - Tabbed arakatzea, edizioa eta dokumentu anitzetako kudeaketa Word-en:

Office Tab-ek web-arakatzaileetan ikusi ahal izango du tabbed-interfazea, hala nola, Google Chrome, Internet Explorer bertsio berriak eta Microsoft Word-eko Firefox. It izango denbora aurrezteko tresna eta zure lana ezezaguna izan. Ikusi demo azpitik:

Egin klik Office Tab-eko proba doakoi!




Kutools for Word

Word 100, 2003, 2007, 2010, 2013 eta 2016 Word 2019 funtzio aurreratuak baino gehiago

jaurtiketa-kutools-700-225-KTE

Ezaugarri gehiago | Free Download | $ 39.00 bakarrik ehunka funtzioentzat

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