Två sätt att visa navigeringsfönstret endast i ett specifikt Word-dokument

I det här inlägget är vårt mål att ge dig två sätt att visa navigeringsfönstret i endast ett specifikt Word-dokument.

För dem som använder navigationsfönstret mycket, måste du ha märkt att det förblir för alla dokument som öppnas i framtiden när det har utlösts. Så för att stänga den måste du manuellt klicka på "Stäng" -knappen. Denna globala funktion kan vara irriterande någon gång, särskilt när vi bara vill att den ska vara öppen för ett specifikt dokument.

För att lösa problemet behöver vi hjälp av Word-makro.

Metod 1: Makro för dokument som kräver frekvent ändring av namn och sökväg

1. För det första, eftersom vi måste kunna köra makro i ett visst dokument, måste vi först ändra makroinställningen. Klicka på "Arkiv" och sedan på "Alternativ" för att öppna dialogrutan "Wordalternativ". Klicka sedan på "Trust Center" och "Trust Center Settings" -knappen. Klicka sedan på "Makroinställningar" och välj "Aktivera alla makron". Klicka på “OK” i båda rutorna.
2. Tryck nu på "Alt + F11" för att öppna VBA-redigeraren.
3. Klicka sedan på “ThisDocument” under projektet för detta specifika dokument.
4. Klicka på fliken "Infoga" och välj "Modul".
5. Dubbelklicka sedan på modulen och klistra in följande koder på höger sida:

Sub AutoOpen()
  ActiveWindow.DocumentMap = True
End Sub

Sub AutoClose()
  ActiveWindow.DocumentMap = False
End Sub

6. Klicka på knappen "Spara".
7. Nu kommer det att finnas en meddelanderuta. Klicka på “Nej”.
8. I fönstret "Spara som" väljer du "Makroaktiverad makro för ord" för att spara typen.
9. Klicka på "Spara".

Nu kommer navigeringsfönstret att vara öppet för bara det specifika dokumentet.

Metod 2: Word-makro för dokument med fast namn och sökväg

1. För att börja, öppna Word och tryck på "Alt + F11" för att aktivera VBA-redigeraren.
2. I "Normal" -projektet klickar du på "Infoga" och väljer "Modul".
3. Dubbelklicka fortfarande på modulen för att öppna kodningsområdet och klistra in det böljande makrot:

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. Klicka sedan på "Spara".

Anmärkningar:

1. I kodraden “strDocName =“ Sample 2.docx ””, ersätt “Sample 2.docx” med ditt filnamn.
2. I kodraden “strDocpath =“ C: \ Users \ Public \ Documents \ New folder ””, ersätt "C: \ Users \ Public \ Documents \ New folder" med sökvägen till mappen där filen är lagrad. Kom ihåg att det inte finns något “\” i slutändan.

Jämförelse av 2 metoder

Adressera Word-frågor

Vi har stött på Word-fel mer eller mindre i vår dagliga användning. Och det oväntade har inget tecken alls. Av denna anledning, för att minska effekterna av docx skada, vi uppmuntrar dig att ha ett framträdande återställningsverktyg i förväg.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive korrupt Excel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com