როგორ ამოიღოთ შინაარსი ორ კონკრეტულ სიტყვას შორის ერთი სიტყვის დოკუმენტიდან მეორეზე

ამ სტატიაში ჩვენ გაჩვენებთ გზას, რომ ამოიღოთ შინაარსი ორ კონკრეტულ სიტყვას შორის ერთი Word დოკუმენტიდან მეორეში.

ახლა და შემდეგ, ზოგიერთ შემთხვევაში მოგიწევთ შინაარსის ამოღება კონკრეტულ სიტყვებს შორის. ქვემოთ მოცემულია 2 შესაძლო შემთხვევა, რომელსაც შეიძლება წააწყდეთ:

1. პირველ რიგში, Word ცხრილში, სვეტის ყველა უჯრედისთვის, რომელიც იწყება და მთავრდება ერთი და იგივე 2 სიტყვით, შეიძლება დაგჭირდეთ მხოლოდ სხვადასხვა შუა ნაწილის ამოღება, როგორიცაა ქვემოთ:   
2. მეორეც, ჟურნალის ზოგიერთ ფაილში მრავალი ჩანაწერით, თქვენ ალბათ დაგჭირდებათ მხოლოდ ის, რაც გჭირდებათ. შემდეგ შეგიძლიათ მიუთითოთ პირველი და ბოლო სიტყვა და გამოიყენოთ მეთოდი I ამ სტატიაში, რათა მიიღოთ თქვენთვის სასურველი შინაარსი.

ასეთი ამოცანის შესასრულებლად გვირჩევნია Word მაკრო გაშვება. უბრალოდ მიჰყევით ამ ნაბიჯებს.

ამოიღეთ შინაარსი ორ სიტყვას შორის

1. უპირველეს ყოვლისაost, დააჭირეთ "Alt+ F11", რათა გახსნათ VBA რედაქტორი Word-ში.
2. შემდეგ დააჭირეთ "ნორმალური" პროექტს მარცხენა სვეტში.
3. შემდეგ დააჭირეთ ღილაკს "ჩასმა" მენიუს ზოლში.
4. აირჩიეთ "მოდული" ჩამოსაშლელი მენიუდან.
5. ორჯერ დააწკაპუნეთ ახალი მოდულის კოდირების სივრცეში შესასვლელად და იქ ჩასვით ეს კოდები:

Sub ExtractContentsBetweenTwoWords()
  Dim strFirstWord As String
  Dim strLastWord As String
  Dim objDoc As Document
  Dim objDocAdd As Document
  Dim objRange As Range
 
  ' Initialize and create a new blank document.
  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate
 
  ' Enter the first and last words.
  strFirstWord = InputBox("Enter the first word:", "First Word")
  strLastWord = InputBox("Enter the last word:", "Last Word")
 
  ' Find and extract contents and insert them into the new document.
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strFirstWord & "*" & strLastWord
      .MatchWildcards = True
      .MatchWholeWord = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=Len(strFirstWord)
        Selection.MoveEnd Unit:=wdCharacter, Count:=-Len(strLastWord)
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

6. შემდეგ დააჭირეთ ღილაკს "Run" ან დააჭირეთ "F5" კოდების შესასრულებლად.
7. "პირველი სიტყვის" შეყვანის ველში შეიყვანეთ პირველი სიტყვა. დაიმახსოვრეთ, მაკრო რეგისტრის მგრძნობიარეა. ასე რომ, საჭიროების შემთხვევაში სიტყვის ინიციალიზაცია.
8. შემდეგ დააწკაპუნეთ "OK"-ზე, რათა გადახვიდეთ "ბოლო სიტყვა" ველში.
9. ანალოგიურად, შეიყვანეთ სიტყვა და დააჭირეთ "OK". არ დაგავიწყდეთ სიტყვის ინიციალიზაციის იგივე წესის დაცვა.

გაიხსნება ახალი დოკუმენტი და იქ გამოჩნდება ყველა ამოღებული შინაარსი.

ამოიღეთ შინაარსი ფრჩხილებში

როგორც აღვნიშნეთ, ზოგიერთი შინაარსი ფრჩხილებშია. მაშინ აქ არის ის, რისი გაკეთებაც შეგიძლიათ:

1. სtarთუ გამორთულია, თქვენ უნდა შეასრულოთ ზემოთ მოცემული ნაბიჯები მაკროს ინსტალაციისა და გაშვებისთვის.
2. ახლა ბრეკეტის ტიპის მიხედვით, შეგიძლიათ აირჩიოთ შესაბამისი მაკრო ქვემოთ:

ბრეკეტებისთვის {}:

Sub ExtractContentsInBraces()
  Dim objDoc As Document
  Dim objDocAdd As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "\{(*)\}"
      .MatchWildcards = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=1
        Selection.MoveEnd Unit:=wdCharacter, Count:=-1
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

3. კვადრატული ფრჩხილებისთვის [ ]:

უბრალოდ შეცვალეთ ეს კოდის ხაზი:

.Text = "\{(*)\}"

ერთად:

.Text =\[(*)\]

4. შემდეგ ფრჩხილებისთვის ():

შეცვალეთ იგივე კოდის ხაზი მე-3 ნაბიჯში:

.Text = "\((*)\)"

5. და კუთხის ფრჩხილებისთვის<>:

ამის ნაცვლად გამოიყენეთ ეს ხაზი:

.Text = "\<(*)\>"

გაუმკლავდეთ მონაცემთა კატასტროფას

უაღრესად დაკავშირებულ Word-ში, როგორიც ჩვენია, სასიცოცხლოდ მნიშვნელოვანია მონაცემთა უსაფრთხოების მხედველობაში ყოველთვის. უფრო მეტიც, ადამიანმა უნდა იცოდეს რა უნდა გააკეთოს მონაცემთა კატასტროფის დროს. და თქვენი საუკეთესო არჩევანია მიიღოთ ა docx შეკეთება ინსტრუმენტი.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xls აღდგენა მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად