Word баримт бичгийн хэсэг дэх текстийг олох, солиход хэрэгтэй 4 арга

Энэ баримт бичигт бид Word баримт бичгийн хэсэг дэх текстийг олох, солих 4 ашигтай аргыг танд үзүүлэхэд таатай байна.

Ер нь бид Word дээр "Ол, солих" үйлдлийг хийхэд дэлхий даяар нөлөөлнө. Тиймээс өнөөдөр бид сонголт, нэг хуудас эсвэл тодорхой хэсэг гэх мэт баримт бичгийн хэсэг дэх текстийг хайж олох, солих аргыг санал болгохыг хүсч байна.

Арга 1: Сонголтод "Ол, солих" функцийг ашиглана уу

1. Нэгдүгээрт, сонгоно уу tarтекст авах.
2. Хоёрдугаарт, "Ctrl + H" товчийг дарж "Ол, солих" нүдийг нээнэ үү.
3. Дараа нь "Юуг олох" талбарт олох текстийг, "Орлуулах" талбарт орлуулах текстийг оруулна уу.
4. Дараа нь "Бүгдийг солих" товчийг дарна уу.
5. Баримт бичгийн үлдсэн хэсэгт хайлтыг үргэлжлүүлэх эсэхийг асуух хайрцаг гарч ирнэ. "Үгүй" дээр дарна уу.

Арга 2: Сонголт доторх текстийг олох, солихын тулд VBA кодуудыг ажиллуул

1. Юуны өмнө баримт бичгийн агуулгыг сонгох хэрэгтэй.
2. Дараа нь "Alt + F11" товчийг дарж VBA засварлагчийг ажиллуулна уу.
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 макро ажиллуулна уу

Дараах макро нь тодорхой хуудсан дээрх текстийг олж, солих боломжийг танд олгоно.

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 макро ажиллуулна уу

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