Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum să căutați și să înlocuiți în mai multe fișiere în cuvinte?

Dacă aveți mai multe fișiere de cuvânt care conțin același conținut (de exemplu, Antet, subsol, cuvinte sau număr special) și trebuie să înlocuiți același conținut în acele documente din Word. Cum ți-ar fi mai ușor să termini rapid? Desigur, puteți deschide acele fișiere unul câte unul pentru a înlocui același conținut, dar va fi consumator de timp și dificil. Acest tutorial vă va arăta o modalitate dificilă de a înlocui același conținut în mai multe documente din Word simultan.

Găsiți și înlocuiți texte în mai multe documente de cuvânt în același timp cu codul VBA


Combinați / îmbinați mai multe documente într-unul ușor:

OBIECTIV TIP LUPA Merge Documente utilitatea Kutools pentru Cuvânt vă poate ajuta să combinați mai multe documente într-unul rapid. Trebuie doar să:

  • Selectați documentele pe care le veți combina într-unul;
  • Specificați pauza dintre fiecare document combinat;
  • Începeți să fuzionați. Vedeți captura de ecran:

Kutools pentru Cuvânt: cu mai mult de 100 Word add-inuri la îndemână, liber să încercați fără limitări în zilele 30. Descărcați și încercați gratuit acum!

Kutools pentru Cuvânt: Adăugați noi funcții avansate 100 la Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Tab-ul Office: Permite Editare și navigare cu file în Office, La fel ca Chrome, Firefox, IE 8 / 9 / 10.
Meniul clasic pentru Office: Aduceți vechea privire la Office 2003 înapoi pentru Office 2007, 2010, 2013, 2016 și 2019.

Găsiți și înlocuiți texte în mai multe documente de cuvânt în același timp cu codul VBA

1. presa Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați următorul cod VBA în fereastra Module.

Codul VBA: Căutarea și înlocuirea aceluiași conținut în mai multe documente simultan

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. apasă pe F5 cheia pentru a rula codul.

4. În deschidere Naviga fereastră, găsiți și selectați documentele pe care le găsiți și înlocuiți textul interior, apoi faceți clic pe OK buton. Vedeți captura de ecran:

5. In primul Kutools pentru Cuvânt , introduceți textul pe care îl veți găsi în documente Gaseste ce , apoi faceți clic pe OK butonul.

6. In secunda Kutools pentru Cuvânt , introduceți textul pe care îl veți înlocui și faceți clic pe OK butonul.

8. Faceți clic pe OK în următorul Microsoft Word caseta de dialog pentru a termina găsirea și a le înlocui.

În acest caz, toate cuvintele "Word" din documentele selectate sunt înlocuite în același timp cu "Excel".


Tab-ul Office - Navigarea în tab-uri, editarea și gestionarea mai multor Documente în Word:

Tab-ul Office aduce interfața cu tab-urile așa cum se vede în browserele web, cum ar fi Google Chrome, versiunile noi ale Internet Explorer și Firefox în Microsoft Word. Aceasta voi fi un instrument de economisire a timpului și de neînlocuit în munca ta. Vezi mai jos demo:

Faceți clic pentru încercarea gratuită a fișierului Office!




Kutools pentru Cuvânt

Mai mult decât funcțiile avansate 100 pentru Word 2003, 2007, 2010, 2013, 2016 și 2019

filmare kutools-700-225-KTE

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

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 !