Ինչպես հանել բովանդակությունը երկու հատուկ բառերի միջև մի բառի փաստաթղթից մյուսը

Այս հոդվածում մենք ձեզ ցույց կտանք երկու հատուկ բառերի միջև բովանդակություն արդյունահանելու մի բառ Word- ից մեկ այլ փաստաթուղթ:

Այժմ և հետո, դուք ստիպված կլինեք որոշ առիթներով բովանդակություն քաղել հատուկ բառերի միջև: Հետևյալ 2 հնարավոր դեպքերը, որոնց կարող եք բախվել.

1. Նախ, Word աղյուսակում, սյունակի բոլոր բջիջների համար, որոնք սկսվում և ավարտվում են նույն 2 բառերով, գուցե անհրաժեշտ լինի արդյունահանել հենց տարբեր միջին մասը, օրինակ ՝ հետևյալը.   
2. Երկրորդ, մի քանի գրառումներով որոշ տեղեկամատյանների ֆայլերում, ամենայն հավանականությամբ, ձեզ հարկավոր է արդյունահանել հենց ձեզ անհրաժեշտները: Ապա դուք կարող եք նշել առաջին և վերջին բառը և օգտագործել այս հոդվածի մեթոդը ՝ ձեզ համար անհրաժեշտ բովանդակություն ստանալու համար:

Նման առաջադրանք կատարելու համար մենք նախընտրում ենք գործարկել Word մակրո: Պարզապես հետևեք այս քայլերին:

Քաղել բովանդակությունը երկու բառերի միջև

1. Նախ և առաջost, սեղմեք «Alt + F11» ՝ Word- ում VBA խմբագիր բացելու համար:
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. Հաջորդը կտտացրեք «Գործարկել» կամ կոճակները սեղմել «F5» կոդերը կատարելու համար:
7. «Առաջին խոսք» մուտքագրման վանդակում մուտքագրեք առաջին բառը: Հիշեք, որ մակրոը տառատեսակ է: Այսպիսով, անհրաժեշտության դեպքում նախնականացրեք բառը:
8. Դրանից հետո կտտացրեք «Լավ» ՝ «Վերջին խոսք» վանդակում անցնելու համար:
9. Նմանապես, մուտքագրեք բառը և կտտացրեք «Լավ»: Մի մոռացեք պահպանել բառի նախաստորագրման նույն կանոնը ՝ համաձայն:

Կբացվի նոր փաստաթուղթ, և արդյունահանված ամբողջ բովանդակությունը պետք է հայտնվի այնտեղ:

Քաղվածք պարունակությունը փակագծերում

Ինչպես նշեցինք, որոշ բովանդակություն փակագծերում է: Ահա թե ինչ կարող ես անել.

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- ում կարևոր է անընդհատ հիշել տվյալների անվտանգությունը: Ավելին, պետք է իմանալ, թե ինչ պետք է անի տվյալների աղետի ժամանակ: Եվ ձեր լավագույն ընտրությունն է ստանալ a docx- ի նորոգում գործիք.

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

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