Ձեր Word փաստաթղթում առկա բոլոր էջանիշները ցուցադրելու 2 խելացի եղանակներ

Այս հոդվածում մենք կցանկանայինք ձեզ տրամադրել 2 խելացի եղանակ `ձեր Word փաստաթղթում բոլոր էջանիշները ցուցադրելու համար:

Մեկ-մեկ մենք էջանիշ ենք տեղադրում այն ​​տեքստի ընտրության համար, որը մենք ցանկանում ենք ավելի ուշ վերանայել: Բայց Word- ում էջանիշի բնույթը դժվարացնում է նույնականացումը: Այլ կերպ ասած, մենք չենք կարող էջանիշները ուղղակիորեն դիտել առանց Word- ի որոշ տարբերակներ փոխելու:    

Այս հոդվածը նվիրված է էջանիշները պարզ տեսնելու հարցում օգնելու ձեզ: Դուք կարող եք ընտրել գործնականում ցանկացած եղանակ:

Մեթոդ 1. Showուցադրել էջանշանի փակագծերը

1. Առաջին հերթին, ժապավենի վրա սեղմեք «Ֆայլ» ներդիրը։
2. Դրանից հետո կտտացրեք «Ընտրանքներ» կոճակին ՝ «Բառի ընտրանքներ» երկխոսության պատուհանը բացելու համար:
3. Հաջորդը սեղմեք «Ընդլայնված» ձախ սյունակում:
4. Ոլորեք ներքև ՝ «documentուցադրել փաստաթղթի բովանդակությունը» բաժինը և նշեք «bookուցադրել էջանիշները» վանդակը:
5. Ի վերջո, կտտացրեք «OK» ՝ փոփոխությունը պահպանելու համար:

Այժմ նշագծված իրերի շուրջ քառակուսի փակագծեր կան: Դուք կարող եք տեսնել, որ այս փակագծերը գորշ գույնի են, ինչը երբեմն այնքան էլ ակնհայտ չէ: Եվ դուք կարող եք դրանք շփոթել սովորական քառակուսի փակագծերի հետ:

Հետևաբար, մենք ուզում ենք ձեզ մակրո առաջարկել ՝ էջանիշներն առանձնացնելու համար, որպեսզի դրանք ավելի լավ լինեն:

Մեթոդ 2. Նշեք մի քանի էջանիշ

1. Սկսելու համար սեղմեք «Alt + F11» ՝ VBA խմբագրին դիմելու համար:
2. Հաջորդը կտտացրեք «Նորմալ» նախագիծը:
3. Դրանից հետո կտտացրեք «sertետեղել» ներդիրին ընտրացանկում և բացվող ցանկում ընտրել «Մոդուլ»:
4. Եվ կրկնակի կտտացրեք նոր մոդուլին ՝ աջ կողմում դրա խմբագրման տարածությունը բացելու համար:
5. Տեղադրեք հետևյալ մակրոը ՝

Sub HighlightBookmarkedItemsInADoc()
  Dim objBookmark As Bookmark
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objBookmark In .Bookmarks
      objBookmark.Range.HighlightColorIndex = wdBrightGreen
    Next objBookmark
  End With
  Application.ScreenUpdating = True
End Sub

6. Վերջինը, բայց ոչ պակաս կարևոր է, կտտացրեք «Run» - ին կամ սեղմեք «F5»:

Հաջորդ բանը, որ տեսնում եք, այն է, որ բոլոր էջանիշերն ընդգծված են կանաչ գույնով, օրինակ ՝ ստորև:

Մակրո վերևում ընդգծեք ընթացիկ ակտիվ փաստաթղթի բոլոր էջանիշները: Այն դեպքում, երբ մշակելու համար կան մի քանի փաստաթղթեր, փոխարենը ձեզ հարկավոր է այս մակրոը.

Sub HighlightBookmarkedItemsInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "You need to select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
    With objDoc
      For Each objBookmark In .Bookmarks
        objBookmark.Range.HighlightColorIndex = wdBrightGreen
      Next objBookmark
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
 Wend
End Sub

Այս մակրոն գործարկելուց առաջ դուք պետք է բոլոր նպատակային փաստաթղթերը տեղադրեք նույն թղթապանակում: Եվ մակրոն գործարկելիս կբացվի «Փնտրել» պատուհանը: Պարզապես ընտրեք այն թղթապանակը, որտեղ պահում եք ձեր փաստաթղթերը:

Փաստաթղթերը վերականգնելու համար օգտակար

Եթե ​​բախվես Բառի վնաս, մեծ է հավանականությունը, որ այն կարող է ջնջել որոշ կարևոր տեղեկություններ ձեր համակարգչից: Խոշոր գործ չի կարող լինել, եթե ունեք հղման վերջին պահուստային տարբերակը: Այնուամենայնիվ, եթե ոչ, ապա ձեզ անմիջապես անհրաժեշտ կլինի վերանորոգման գործիք:

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

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