DocumentMap vil ikke åbne automatisk i Document_Open()
Hej til alle eksperter !
(mit første spørgsmål)
Jeg har prøvet at skrive en Word 2003 macro til en af afdelings skabeloner. Macro skulle have den funktion i at åbne "Document Map" (altså som i View -> Document Map) automatisk hver gang man opretter et nyt dokument baserede på skabelonen.
Jeg har sæt den op sådan:
Private Sub Document_Open() ActiveWindow.DocumentMap = True End Sub
og placerede den i skabelonens ThisDocument modul.
Skabelonen har jeg så gemt som .dot i stigen definerede i "Options, File Locations, User templates".
Så langt, så godt.
Men, når brugerner starter skabelonen (dvs. File, New, from template on my computer) får de fejlmeddelsen om "Run-time error '91': Object variable or With block variable not set".
Jeg har sæt alles sikkerheds niveau til "Medium" (fra tools, macros, security).
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.
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).
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.