Winterkoning
Gebruiker
- Lid geworden
- 16 jun 2007
- Berichten
- 204
Ik zou het fijn vinden als het navigatievenster in Word 2010 bij het openen van bestaande documenten in het navigatievenster het kopniveau niet automatisch opent tot op niveau 3, maar het bij kopniveau 1 houdt. De macro die ik daarvoor met hulp van enkele internetbronnen gemaakt heb, is de onderstaande. Bovenaan staat eerst een macro voor wachttijd, omdat hij niet direct kan starten bij het opstarten van Word.
De macro werkt prima als ik hem als gewone macro start, maar als ik hem "Private Sub Document_Open()" zoals hierboven noem, dan doet hij het niet. (d.w.z. als ik hem Sub Document_Open() noem en start als normale macro dan werkt hij, maar hij werkt niet als ik hem Private Sub Document_Open() noem en verwacht dat ie start bij het opstarten)
Nu wil ik deze macro niet handmatig in al mijn bestaande documenten moeten toevoegen maar in het sjabloon 'Normal', zodat hij elke keer vanzelf start als ik een bestaand document open. Het probleem is echter dat Word een foutmelding geeft als ik hem onder Normal, Microsoft Word Objects, ThisDocument plaats, nl. 'run-time error 91: object variable or with block variable not set'. En als ik de macro onder Normal, modules, NewModules plaats, dan doet Word niets.
Ik hoop dat jullie me kunnen helpen. Bedankt!
Code:
Sub Wait(n As Long)
Dim t As Date
t = Now
Do
DoEvents
Loop Until Now >= DateAdd("s", n, t)
End Sub
Private Sub Document_Open()
' Activate Navigation Pane
' Collapse All, to only show heading level 1
Call Wait(1)
ActiveWindow.DocumentMap = True
If ActiveWindow.DocumentMap = True Then
' Ctrl-F = Find --> this sets the cursor at the top of the navigation pane
' Shift-F10 = Context Menu
' C = Collapse All
' ^ = Ctrl key
' + = Shift key
SendKeys "^(f){TAB}{TAB}{TAB}{TAB}{TAB}{TAB}+({F10})c"
End If
ActiveWindow.View.ShowHeading (1)
End Sub
De macro werkt prima als ik hem als gewone macro start, maar als ik hem "Private Sub Document_Open()" zoals hierboven noem, dan doet hij het niet. (d.w.z. als ik hem Sub Document_Open() noem en start als normale macro dan werkt hij, maar hij werkt niet als ik hem Private Sub Document_Open() noem en verwacht dat ie start bij het opstarten)
Nu wil ik deze macro niet handmatig in al mijn bestaande documenten moeten toevoegen maar in het sjabloon 'Normal', zodat hij elke keer vanzelf start als ik een bestaand document open. Het probleem is echter dat Word een foutmelding geeft als ik hem onder Normal, Microsoft Word Objects, ThisDocument plaats, nl. 'run-time error 91: object variable or with block variable not set'. En als ik de macro onder Normal, modules, NewModules plaats, dan doet Word niets.
Ik hoop dat jullie me kunnen helpen. Bedankt!
Laatst bewerkt: