Word փաստաթղթի մասում տեքստ գտնելու և փոխարինելու 4 օգտակար մեթոդ

Այս փաստաթղթում մենք ուրախ ենք ձեզ ցույց տալ 4 օգտակար եղանակ՝ գտնելու և փոխարինելու տեքստը Word փաստաթղթի մի մասում:

Սովորաբար, երբ մենք Word-ում կատարում ենք «Գտնել և փոխարինել», ազդեցությունը գլոբալ է: Այսպիսով, այսօր մենք ուզում ենք ձեզ առաջարկել փաստաթղթի մի մասում տեքստ գտնելու և փոխարինելու ուղիներ, օրինակ՝ ընտրված, մեկ էջի կամ կոնկրետ բաժնում:

Մեթոդ 1. Ընտրության մեջ օգտագործեք «Գտնել և փոխարինել» հատկանիշը

1. Նախ ընտրեք tarստանալ տեքստ:
2. Երկրորդ, սեղմեք «Ctrl+ H»՝ «Գտնել և փոխարինել» տուփը բացելու համար:
3. Այնուհետև մուտքագրեք որոնման տեքստը «Գտեք ինչ» տեքստային դաշտում, իսկ փոխարինող տեքստը «Փոխարինել» վանդակում:
4. Դրանից հետո կտտացրեք «Փոխարինել բոլորը» կոճակին:
5. Մի տուփ կհայտնվի՝ հարցնելով, թե արդյոք ցանկանում եք շարունակել որոնումը փաստաթղթի մնացած մասում: Համոզվեք, որ սեղմեք «Ոչ»:

Մեթոդ 2. Գործարկեք VBA կոդերը՝ ընտրված տեքստը գտնելու և փոխարինելու համար

1. Առաջին հերթին ընտրեք փաստաթղթերի բովանդակության մի շարք:
2. Հաջորդը գործարկեք VBA խմբագրիչը՝ սեղմելով «Alt+ F11»:
3. Այնուհետև կտտացրեք «Նորմալ» և կտտացրեք «Տեղադրեք»:
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»:

Հաղթահարել բառերի թողարկումները

Ձեր փաստաթղթում կարող են լինել բազմաթիվ տեսակի խնդիրներ: Ոմանց հետ վարվելը հեշտ է, իսկ մյուսները՝ ավելի ծանր, ինչը կարող է հանգեցնել Բառերի կոռուպցիա. Նման սցենարի դեպքում դուք պետք է հնարավորինս շուտ վերանորոգման գործիք ստանաք՝ ձեր տվյալները փրկելու համար:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում Excel ֆիքս և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com