Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како тражити и заменити више датотека у речима?

Ако имате неколико десетина датотека са речима који садрже исти садржај (као што су Хеадер, фоотер, нека посебна речи или број), и морате заменити исти садржај преко тих докумената у Ворду. Како би било лакше да то учините брзо? Свакако, оне можете отворити појединачно за замену истог садржаја, али то ће бити дуготрајно и проблематично. Овај туторијал ће вам показати незгодан начин замене истог садржаја у више докумената у Ворду одједном.

Пронадјите и замењујте текстове у више докумената докумената истовремено са ВБА кодом


Комбинујте / спојите више докумената у једну лако:

Споји документе корисност Кутоолс фор Ворд може вам помоћи да комбинујете више докумената у један брзо. Само треба да:

  • Изаберите документе које ћете комбиновати у једну;
  • Наведите паузу између сваког комбинованог документа;
  • Почните спајање. Погледајте снимак екрана:

Кутоолс фор Ворд: са више од КСНУМКС практичних додатака за Ворд, можете слободно покушати без ограничења у КСНУМКС данима. Преузмите и пробајте сада!

Кутоолс фор Ворд: Додајте нове напредне функције КСНУМКС у Ворд КСНУМКС / КСНУМКС / КСНУМКС / КСНУМКС / КСНУМКС / КСНУМКС.
Оффице Таб: Омогући Уређивање и прегледање картица у канцеларији, Јуст Лике Цхроме, Фирефок, ИЕ КСНУМКС / КСНУМКС / КСНУМКС.
Цлассиц мени за Оффице: Донесите стари изглед канцеларије КСНУМКС назад у Оффице КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС.

Пронадјите и замењујте текстове у више докумената докумената истовремено са ВБА кодом

КСНУМКС. Притисните други + ФКСНУМКС да отворите Мицрософт Висуал Басиц за апликације прозор.

КСНУМКС. У Мицрософт Висуал Басиц за апликације прозор, кликните Убацити > Модули, затим копирајте следећи ВБА код у прозор Модул.

ВБА Цоде: Претраживање и замена истог садржаја преко више докумената истовремено

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

КСНУМКС. притисните F5 кључ за покретање кода.

КСНУМКС. У отварању Прегледај прозор, пронађите и одаберите документе које ћете пронаћи и замијенити текст изнутра, а затим кликните на дугме OK дугме. Погледајте снимак екрана:

КСНУМКС. У првом Кутоолс фор Ворд дијалог бок, унесите текст који ћете наћи преко докумената у Финд шта бок, а затим кликните на OK дугме.

КСНУМКС. И секунди Кутоолс фор Ворд дијалог бок, унесите текст који ћете замијенити и кликните на OK дугме.

КСНУМКС. Кликните OK у следећем Мицрософт Ворд дијалог бок да довршите проналазак и замените.

У овом случају, све речи "Ворд" у одабраним документима истовремено се замењују са "Екцелом".


Оффице Таб - прегледање, уређивање и управљање вишеструким документима у Ворду:

Канцеларија Таб доноси се помоћу картица као што се види на веб претраживача као што су Гоогле Цхроме, Интернет Екплорер новим верзијама и Фирефок за Мицрософт Ворд. То воља будите алат који штеди време и неупотребљив у свом раду. Погледајте испод демо:

Кликните на бесплатну пробну верзију Оффице Таб!




Кутоолс фор Ворд

Више од КСНУМКС напредних функција за Ворд КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС

схот-кутоолс-КСНУМКС-КСНУМКС-кте

Још карактеристика | Бесплатно скидање | Само $ КСНУМКС за стотине функција

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.
    DaveW · 1 years ago
    Thanks so much for posting this, absolute lifesaver!

    I notice that there is a line "MatchWildcards = False", which implies that it's possible to use wildcards in the search text - is that possible and, if so, what's the protocol?

    Thanks again!
  • To post as a guest, your comment is unpublished.
    Paul Oz · 2 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