Нэг үгийн баримтаас нөгөөд тодорхой хоёр үгийн хооронд агуулгыг хэрхэн яаж задлах вэ

Энэ нийтлэлд бид нэг Word баримт бичигээс нөгөө хоёр тодорхой үгийн хооронд агуулгыг задлах аргыг зааж өгөх болно.

Одоо, дараа нь та зарим тохиолдолд тодорхой үгсийн хооронд агуулгыг задлах хэрэгтэй болно. Дараахь 2 тохиолдол гарч болзошгүй:

1. Нэгдүгээрт, Word хүснэгтэд ижил ба 2 үгээр эхэлсэн баганын бүх нүднүүдийн хувьд доорхи гэх мэт өөр өөр дунд хэсгийг задлах хэрэгтэй болж магадгүй юм.   
2. Хоёрдугаарт, олон бичилт бүхий зарим бүртгэлийн файлууд дотроос зөвхөн шаардлагатай файлуудыг задлах шаардлагатай болж магадгүй юм. Дараа нь та эхний ба сүүлчийн үгийг зааж өгч, энэ өгүүллийг ашиглах хэрэгтэй.

Ийм даалгаврыг биелүүлэхийн тулд бид Word макро ажиллуулахыг илүүд үздэг. Эдгээр алхмуудыг дагана уу.

Хоёр үгийн хооронд агуулгыг задлах

1. Юуны өмнөost, Word дээр VBA засварлагчийг нээхийн тулд “Alt + F11” товчийг дарна уу.
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" дээр дарж "Last Word" нүд рүү орно уу.
9. Үүнтэй адилаар үгээ оруулаад “OK” дээр дарна уу. Дагуу үгийг эхлүүлэх ижил дүрмийг баримтлахаа бүү мартаарай.

Шинэ баримт бичиг нээгдэх бөгөөд олборлосон бүх агуулга тэнд гарч ирнэ.

Агуулгыг хаалтанд задлах

Бидний хэлсэнчлэн зарим агуулга хаалтанд байна. Дараа нь та юу хийж чадах вэ?

1. Start унтраавал макро суулгаж ажиллуулахын тулд дээрх алхмуудыг дагах хэрэгтэй.
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 = "\<(*)\>"

Мэдээллийн гамшгийг зохицуулах

Бидэнтэй уялдаа холбоотой үгийн хувьд өгөгдлийн аюулгүй байдлыг байнга санаж байх нь нэн чухал юм. Үүнээс гадна өгөгдлийн гамшиг тохиолдсон үед юу хийхээ мэддэг байх ёстой. Таны хамгийн сайн сонголт бол a-г авах явдал юм docx засвар хэрэгсэл.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls сэргээх болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com