4 სასარგებლო მეთოდი Word დოკუმენტის ნაწილში ტექსტის მოსაძებნად და ჩანაცვლებისთვის

ამ დოკუმენტში მოხარულნი ვართ გაჩვენოთ 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 მაკრო, რათა იპოვოთ და შეცვალოთ ტექსტი დანიშნულ გვერდზე

შემდეგი მაკრო საშუალებას გაძლევთ იპოვოთ და შეცვალოთ ტექსტი კონკრეტულ გვერდზე.

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. ერთად