4 Полезни метода за намиране и замяна на текст в част от документ на Word

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

Обикновено, когато правим „Намиране и заместване“ в Word, ефектът е глобален. И така, днес искаме да ви предложим начини за намиране и замяна на текст в част от документ, например в селекция, една страница или конкретен раздел.

Метод 1: Използвайте функцията „Намери и замени“ в селекция

1. Първо, изберете tarвземете текст.
2. На второ място, натиснете „Ctrl + H“, за да отворите полето „Намиране и замяна“.
3. След това въведете текста за намиране в текстовото поле „Намери какво“ и заместващия текст в полето „Замени с“.
4. След това щракнете върху бутона „Замяна на всички“.
5. Ще се появи поле, което ще ви попита дали искате да продължите да търсите в останалата част на документа. Уверете се, че сте щракнали върху „Не“.

Метод 2: Изпълнете VBA кодове, за да намерите и замените текст в селекция

1. Преди всичко изберете диапазон от съдържание на документа.
2. Следващ задейства VBA редактор чрез натискане на „Alt + F11“.
3. След това щракнете върху „Normal“ и щракнете върху „Insert“.
4. Изберете „Модул“ от менюто.
5. Сега отворете модула с двойно щракване.
6. Копирайте и поставете следните кодове там:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. След това натиснете „F5“.
8. Ще се появят две полета за въвеждане. Въведете текста за намиране и замяна съответно в две полета.
9. Щракнете върху „OK“, за да продължите.

Ще постигнете абсолютно същия ефект като при метод 1.

Метод 3: Стартирайте Word Macro, за да намерите и замените текст на определена страница

Следващият макрос ви позволява да намирате и замествате текст на определена страница.

1. Първо инсталирайте и стартирайте макрос, като следвате стъпки в метод 2.
2. След това заменете този макрос с този:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. След стартирането на тези кодове ще има 3 полета за въвеждане. Въведете номер на страница в първото поле и въведете текста за намиране във второто и въведете заместващ текст в третото.
4. Не забравяйте да щракнете върху „OK“, за да продължите.

Метод 4: Стартирайте Word Macro, за да намерите и замените текст в раздел

1. По същия начин направете същите стъпки в метод 2, за да инсталирате и стартирате макрос.
2. Само този път използвайте този макрос вместо това:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Не забравяйте да въведете номера на секцията в първото поле. И въвеждане на намиране и замяна на текстове в следващите две полета.
4. Все пак кликнете върху „OK“, за да продължите.

Справете се с проблемите на Word

Във вашия документ може да възникнат много видове проблеми. С някои се работи лесно, докато с други са по-тежки, което може да доведе до Слово корупция. В такъв случай трябва да получите инструмент за ремонт възможно най-скоро, за да спасите данните си.

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

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