Միայն մեկ կոնկրետ Word փաստաթղթում նավիգացիոն վահանակը ցուցադրելու 2 եղանակ

Այս գրառման մեջ մեր նպատակն է ձեզ տրամադրել նավիգացիոն վահանակը միայն մեկ կոնկրետ Word փաստաթղթում ցուցադրելու 2 եղանակ։

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

Այս խնդիրը լուծելու համար մեզ անհրաժեշտ է Word մակրոյի օգնությունը:

Մեթոդ 1. Մակրո փաստաթղթերի համար, որոնք պահանջում են անվանման և ուղու հաճախակի փոփոխություն

1. Նախ, քանի որ մենք պետք է կարողանանք մակրո գործարկել կոնկրետ փաստաթղթում, մենք պետք է նախ փոխենք մակրո պարամետրերը: Սեղմեք «Ֆայլ», ապա «Ընտրանքներ»՝ «Word Options» երկխոսության տուփը բացելու համար: Այնուհետև կտտացրեք «Վստահության կենտրոն» և «Վստահության կենտրոնի կարգավորումներ» կոճակը: Հաջորդը սեղմեք «Մակրո կարգավորումներ» և ընտրեք «Միացնել բոլոր մակրոները»: Սեղմեք «OK» երկու տուփերում:
2. Այժմ սեղմեք «Alt+ F11»՝ VBA խմբագրիչը բացելու համար:
3. Հաջորդը սեղմեք «ThisDocument» այս կոնկրետ փաստաթղթի նախագծի տակ:
4. Կտտացրեք «Տեղադրեք» ներդիրը և ընտրեք «Մոդուլ»:
5. Այնուհետև կրկնակի սեղմեք մոդուլի վրա և տեղադրեք հետևյալ ծածկագրերը աջ կողմի տարածքում.

Sub AutoOpen()
  ActiveWindow.DocumentMap = True
End Sub

Sub AutoClose()
  ActiveWindow.DocumentMap = False
End Sub

6. Սեղմեք «Պահպանել» կոճակը:
7. Այժմ կլինի հաղորդագրությունների տուփ: Սեղմեք «Ոչ»:
8. «Պահպանել որպես» պատուհանում ընտրեք «Word Macro-Enabled Macro»՝ պահպանման տեսակը:
9. Կտտացրեք «Պահել» կոճակին:

Այժմ դուք կունենաք բաց նավարկության վահանակ միայն կոնկրետ փաստաթղթի համար:

Մեթոդ 2. Բառի մակրո՝ ֆիքսված անուններով և ուղիով փաստաթղթերի համար

1. Սկսելու համար բացեք Word-ը և սեղմեք «Alt+F11»՝ VBA խմբագրիչը գործարկելու համար։
2. «Նորմալ» նախագծում սեղմեք «Տեղադրեք» և ընտրեք «Մոդուլ»:
3. Դեռևս կրկնակի սեղմեք մոդուլի վրա՝ կոդավորման տարածքը բացելու և ստորև նշված մակրո տեղադրելու համար.

Sub AutoOpen()
  Dim strDocName As String
  Dim strDocpath As String
  Dim nDocName As Integer 
  Dim nDocpath As Integer 
 
  strDocName = "Sample.docx"
  strDocpath = "E:\Temp"
  '  If the two strings sort equally, Returns 0.
  nDocName = StrComp(ActiveDocument.Name, strDocName, vbTextCompare)
  nDocpath = StrComp(ActiveDocument.Path, strDocpath, vbTextCompare)
 
  If nDocName = 0 Then
    If nDocpath = 0 Then
      ActiveWindow.DocumentMap = True
    End If
  Else
    ActiveWindow.DocumentMap = False
  End If
End Sub

4. Հաջորդը կտտացրեք «Պահել» կոճակին:

Նշումներ:

1. «strDocName = «Sample 2.docx» կոդի տողում փոխարինեք «Sample 2.docx»-ը ձեր ֆայլի անունով:
2. «strDocpath = «C:\Users\Public\Documents\New folder» կոդի տողում փոխարինեք «C:\Users\Public\Documents\New folder» թղթապանակի ուղին, որտեղ պահվում է ֆայլը: Հիշեք, որ վերջում «\» չկա:

2 մեթոդների համեմատություն

Հասցե Բառի խնդիրները

Ամենօրյա օգտագործման ընթացքում մենք քիչ թե շատ բախվել ենք Word-ի սխալների հետ: Եվ անսպասելին գալիս է առանց որևէ նշանի: Այդ իսկ պատճառով, նվազեցնել ազդեցությունը docx վնաս, մենք ձեզ խրախուսում ենք նախապես անցկացնել նշանավոր վերականգնման գործիք:

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

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