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.
    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.
    ankit saini · 3 months ago
    This is really good
  • 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. :(
  • 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 !