Как да намерите и замените съдържанието в множество документи на Word

В днешната статия сме развълнувани да ви информираме за начина за намиране и замяна на съдържание в множество документи на Word.

Най-общо казано, most Потребителите на Word са добре запознати с функцията „Намери и замени“ в софтуера. Помага ни за пакетния процес през целия документ, което ни спестява много време. Тогава мислили ли сте да използвате тази опция в многодокумента, като всички файлове в определена папка?

Тъй като винаги има нужда от търсене и подмяна на съдържание в група файлове, би било хубаво функцията да бъде реализирана. И нашият начин е да използваме макроса. Моля, прочетете, за да разберете повече подробности.

Стъпки за инсталиране и стартиране на макрос

1. Първи и преденost, поставете целия файл в една папка и отворете Word.
2. След това щракнете върху раздела „Програмист“.
3. След това щракнете върху „Visual Basic“. Или просто натиснете „Alt + F11“, за да задействате редактора на VBA.
4. След това щракнете върху „Нормален“ проект.
5. След това щракнете върху раздела „Вмъкване“ и след това изберете „Модул“.
6. Сега успешно сте вмъкнали нов модул. Щракнете двукратно върху него, за да отворите пространство за кодиране.
7. Поставете дупчещите кодове там:

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. Накрая щракнете върху „Изпълни“.
9. Сега ще се появи поле за въвеждане. Въведете пътя към папката, където съхранявате документи.
10. След това щракнете върху „OK“ и има второто поле. Въведете текстовете, които искате да намерите.
11. Продължете да натискате „OK“, за да отворите третото поле за въвеждане, в което въвеждате заместващите текстове и натиснете там бутона „OK“. Макросът автоматично ще замени цялото съдържание и ще запази промяната.

Както виждате, този макрос ви предоставя 3 полета за въвеждане, където можете да въведете пътя на папката, намирането и заместването на текстове. Така че можете да зададете бутон за този макрос и да го добавите към „Лента с инструменти за бърз достъп“ за повторна употреба.

Що се отнася до това как да присвоите бутон на макрос, можете да прочетете тази статия: Как да премахнете форматирането на поставени текстове с макро и VBA във вашата дума

Защитете ценни данни

В Word могат да възникнат грешки и проблеми. В резултат на това ценните документи могат да се повредят. Докато се сблъскват с док щети, препоръчително е да се сдобиете с професионален инструмент за възстановяване, за да извлечете данните.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xls щети и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com