Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як знайсці і замяніць на некалькі файлаў у слове?

Калі ў вас ёсць некалькі файлаў дзясяткаў слоў, якія ўтрымліваюць адзін і той жа кантэнт (напрыклад, верхні і ніжні калантытула, некаторыя спецыяльныя словы або ліку), і вам неабходна замяніць той жа кантэнт на гэтых дакументаў у Word. Як гэта будзе прасцей для вас, каб зрабіць гэта хутка? Вядома, вы можаце адкрыць гэтыя файлы адзін за адным, каб замяніць тое ж самае ўтрыманне, але гэта будзе працаёмкім і клапотным. Гэты падручнік пакажа вам хітры спосаб замены жа кантэнту ў некалькіх дакументах у слове адразу.

Знайсці і замяніць тэкст на некалькі дакументаў словы адначасова з кодам VBA


Аб'яднаць / аб'яднаць некалькі дакументаў у адзін лёгка:

,en зліццё дакументаў карыснасць Kutools для слова можа дапамагчы вам аб'яднаць некалькі дакументаў у адзін хутка. Вам проста трэба:

  • Выберыце дакументы, якія будуць аб'яднаны ў адзін;
  • Пакажыце разрыў паміж кожным камбінаваным дакументам;
  • Пачатак зліцця. Глядзіце скрыншот:

Kutools для слова: З больш чым 100 зручнага Слова надбудова, бясплатна паспрабаваць без якіх-небудзь абмежаванняў у 30 дзён. Спампаваць і бясплатную пробную версію зараз!

Kutools для слова: Дадаць 100 Новыя пашыраныя функцыі у Word, 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
ўкладка Упраўленне: Уключыць Ўкладкі Рэдагаванне і прагляд у офісе, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu для офіса: Давядзіце Стары Погляд офіса 2003 Назад у офіс 2007, 2010, 2013, 2016 і 2019.

Знайсці і замяніць тэкст на некалькі дакументаў словы адначасова з кодам VBA

1. прэс Alt + F11 каб адкрыць Microsoft Visual Basic для прыкладанняў акна.

2. у Microsoft Visual Basic для прыкладанняў вокны, націсніце Уставіць > Модулі, То скапіруйце наступны код VBA ў акне модуля.

VBA Code: Пошук і замена жа кантэнт на некалькі дакументаў за адзін раз

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. Націсніце OK Кнопка ў наступным Microsoft Word дыялогавае акно для завяршэння пошуку і замены.

У гэтым выпадку, усе словы «Слова» ў асобных дакументах, замяняюцца «Excel» у той жа час.


ўкладка Упраўленне - ўкладкі, рэдагаванне і кіраванне некалькіх дакументаў у Word:

Office Tab прыносіць укладкамі інтэрфейс, як паказана ў вэб-браўзэры, такія як Google Chrome, Internet Explorer, новыя версіі і Firefox у Microsoft Word. гэта воля быць інструментам эканоміі часу і irreplaceble ў вашай працы. Глядзіце ніжэй дэма:

Націсніце для бясплатнай пробнай Таб офіса!




Kutools для слова

Больш 100 Пашыраныя функцыі для Word, 2003, 2007, 2010, 2013, 2016 і 2019

драбавік kutools-700-225-КТЭ

дадатковыя магчымасці | спампаваць | Толькі $ 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.
    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 !