DocumentMap vil ikke åbne automatisk i Document_Open()

Hej

Jeg ved ikke hvorfor du får fejl, men hvis du vil have makroen skal køre, når der laves et nyt dokument på baggrund af skabelonen, så skal du bruge:


Private Sub Document_New()
  ActiveWindow.DocumentMap = True
End Sub

Har du anden kode i skabelonen? For umiddelbart er der intet galt med det, du har gjort.

Men vær dog - som rvm skriver - opmærksom på, at du har lagt koden på Open-eventet. Det er i og for sig godt nok, hvis du også vil have, at DocumentMap altid bliver vist, når et dokument baseret på den skabelon bliver åbnet igen. Men hvis du skal have den til at slå til, når dokumentet bliver oprettet, foregår det som rvm skriver.

Hej igen,

Mange tak for de hurtige svar ! Ja, word-hajen, jeg har lidt mere kode i macroen men tænkt at det var måske for meget. Jeg placerede koden i Open fordi - som du skriver - jeg vil have at Document Map bliver altid vist, også når dokumentet bliver åbnet igen (som navigationshjælp). Jeg tilføjede resten af koden så brugerner husker at udfylde meta-data, etc.etc. inden dokumentet laves om til .pdf. Mange tak for hjælpen !

Her er hele macro kode:

Private Sub Document_Open()
      ActiveWindow.DocumentMap = True
'
' Here the standard document options are set
'
      With Options
        .LocalNetworkFile = False
        .AllowFastSave = False
        .BackgroundSave = True
        .CreateBackup = False
' property for user to be prompted to save document metadata
        .SavePropertiesPrompt = True
'
        .SaveInterval = 10
        .SaveNormalPrompt = False
        .DisableFeaturesbyDefault = False
    End With
    With ActiveDocument
' property for document to embed all fonts used
        .EmbedTrueTypeFonts = True
'
        .SaveFormsData = False
        .SaveSubsetFonts = False
        .DoNotEmbedSystemFonts = True
        .Password = ""
        .WritePassword = ""
        .DisableFeatures = False
        .EmbedSmartTags = True
        .SmartTagsAsXMLProps = False
        .EmbedLinguisticData = True
    End With
' property for document to be saved in .doc format
    Application.DefaultSaveFormat = ""
'
End Sub

Der er stadig intet galt med din kode. Hvad har du liggende på Document_New-eventet?

Har du prøvet selv at fejlsøge ved at steppe igennem koden? (så du evt. kan se, hvor det går galt).