Evästeet auttavat meitä tarjoamaan palveluitamme. Käyttämällä palveluitamme, hyväksyt evästeiden käytön.
Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Miten etsiä ja korvata useita tiedostoja sanalla?

Jos sinulla on useita tusinaa sana-tiedostoja, jotka sisältävät samaa sisältöä (kuten otsikkoa, alatunnistetta, joitain erikoismerkkejä tai numeroita), sinun on vaihdettava sama sisältö kyseisiin asiakirjoihin Wordissa. Kuinka se olisi helpompaa tehdä se nopeasti? Tietenkin voit avata nämä tiedostot yksitellen korvaamaan saman sisällön, mutta se on aikaa vievää ja hankalaa. Tämä opetusohjelma näyttää sinulle hankala tapa korvata sama sisältö useissa asiakirjoissa Wordissa kerralla.

Etsi ja korvaa tekstit useissa sanakirjoissa samanaikaisesti VBA-koodilla


Yhdistä useita tiedostoja yhdeksi helposti:

В Yhdistä asiakirjat hyödyllisyys Kutools for Word voi auttaa sinua yhdistämään useita asiakirjoja yhdeksi nopeasti. Sinun tarvitsee vain:

  • Valitse asiakirjat, joihin yhdistät yhteen.
  • Määritä kunkin yhdistetyn asiakirjan välinen tauko.
  • Aloita yhdistäminen. Katso kuvakaappaus:

Kutools for Word: enemmän kuin 100 kätevä Word lisäosat, voit kokeilla ilman rajoituksia 30 päivää. Lataa ja kokeile nyt!

Kutools for Word: Lisää 100 uusia kehittyneitä ominaisuuksia Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office-välilehti: Ota käyttöön Kartoitettu muokkaus ja selailu Office-ohjelmassa, Aivan kuten Chrome, Firefox, IE 8 / 9 / 10.
Classic-valikko toimistoon: Tuo Office 2003in vanha ulkoasu takaisin Office 2007, 2010, 2013, 2016 ja 2019.

Etsi ja korvaa tekstit useissa sanakirjoissa samanaikaisesti VBA-koodilla

1. Lehdistö muut + F11 avaa Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduulit, kopioi sitten seuraava VBA-koodi Moduuli-ikkunaan.

VBA-koodi: Saman sisällön haku ja korvaaminen useille asiakirjoille kerralla

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. paina F5 avain koodin suorittamiseen.

4. Avattu selailla ikkuna, etsi ja valitse asiakirjat, jotka löydät ja korvaa tekstin sisällä, ja napsauta sitten OK painiketta. Katso kuvakaappaus:

5. Ensimmäisessä Kutools for Word -valintaikkunassa, kirjoita teksti, joka löytyy eri asiakirjoista Etsittävä ja napsauta sitten OK painiketta.

6. Toisessa Kutools for Word valintaikkunassa, kirjoita teksti, jonka haluat korvata, ja napsauta OK painiketta.

8. Napsauta OK painiketta seuraavassa Microsoft Word Lopeta etsiminen ja korvaaminen valintaikkunassa.

Tällöin kaikki sanat "Word" valituissa asiakirjoissa korvataan samanaikaisesti "Excelillä".


Office-välilehti - Useiden asiakirjojen selaaminen, muokkaaminen ja hallinta Wordissa:

Office-välilehti tuo välilehden käyttöliittymän näkyviin selaimissa, kuten Google Chrome, Internet Explorerin uusista versioista ja Firefoxista Microsoft Wordiin. Se tulee olla aikaa säästävä työkalu ja korvaamaton työsi. Katso alla demo:

Klikkaa ilmaiseksi Office-välilehtiä!




Kutools for Word

Yli 100-lisätoiminnot Word 2003, 2007, 2010, 2013, 2016 ja 2019

shot-kutools-700-225-kte

Lisää ominaisuuksia | Ilmainen lataus | Vain $ 39.00 satoja toimintoja varten

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 · 1 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 · 2 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 3 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 · 10 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 · 11 months 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 !