Tilrettet menu

kigger lige med :)

Den funktion du søger er en værktøjslnie til at åbne bestemte \"skabeloner\".

I word ligger funktionen til at åbne skabeloner blot under menuvalget. - Filer -Ny

Egne skabeloner, hvor man hopper fra felt til felt med \"Tab\" tasten, og kun kan ændre det som skabelonen\'s forfatter har tilladt kan man lave vha. værktøjslinien \"formular\".

Aktiveres med menuvalget -vis -værktøjslinier -formular.

Brugen af \"beskyttelsen\" er lidt indviklet, fordi den skal slås til og fra så mange gange, når man udformer og tester sin skabelon.
Beskyttelse slås til og fra med menuvalget øøh var vist -rediger -beskyt ark 
(...\"-rediger\" er ikke 100\', men noget i den retning..en af de fire sidste rullegardinmenuer)

Mange gange løses opgaven lettest ved at tilpasse en af standard skabelonerne i word.

Når man er tilfreds med sin skabelon, så aktiveres arkbeskyttelsen, og skabelonene gemmes som \"skabelon\", det vil sige med filtypenavnet .dot
- For at \"se\" skabelonen , når du vælger -filæer -ny, så skal den placeres \"rigtigt\".

Det vil typisk være i samme folder som \"normal.dot\" - findes lettest ved at søge efter den ;-)

- Om du kan få vist genveje til de skabeloner som knapper på en værktøjslinie....
Ja det tror jeg godt, men jeg husker ikke lige præcist hvordan....har ikke word \"inde\" ;-/

- Det jeg har beskrevet her er ikke helt det samme, som pop-up vinduerne du taler om,
men effekten er typisk lige så god.
Jeg har prøvet de pop-up vinduer du beskriver, men det er længe siden.
Dengang (word3-4 stykker) var de meget dårligt dokumenteret i \"hjælp\"
...det er muligvis blevet bedre nu ;-)

Håber du kan bruge noget af det anyway

mvh :-)
Teknik

Det kan også lade sig gøre, at lave en lille makro, som danner en menu i word. Som jeg ser det, så skal du alligevel lave noget vba-kode for at lave dit dialogbox (dit popup vindue).

Har du leget med VBA før ?

Desværre kender jeg ikke så meget til VBA, men kan godt læse vba script (har programmeret i basic. Hvis nogen kan hjælpe med noget script ville det være alle tiders :o)

Jo, da :-)

Ret stinavn under Sub\'ben \"Item01\"
Ret de andre menunavne m.m. til.

Option Explicit
\' Udarbejdet af Flemming Dahl - flemse@post3.tele.dk
Public cbMenu As CommandBar
Public cbPopMenu As CommandBarPopup
Public cbSubMenu As CommandBarControl
Public Const strMyMenuName As String = \"&Skabeloner\"

Sub Open_MyMenu()
\'************************
    Fjern_MyMenu
    \'Sætter cbMenu = den nuværende menu
    Set cbMenu = CommandBars.ActiveMenuBar
   
    \'cbPopMenu bliver tilføjet til den nuværende menu
    Set cbPopMenu = cbMenu.Controls.Add(Type:=msoControlPopup, Temporary:=True)
        cbPopMenu.Caption = strMyMenuName

\'************************
    \'Sæt menupunkter på menu\'en
    \'MakroKald,PunktNavn,MakroKald,Face,Index,Streg før
    MyPopMenu \"&Fax\", \"Item01\", 85, 1, False
    MyPopMenu \"&2. Punkt\", \"Item02\", 72, 2, True
End Sub

Private Sub MyPopMenu(MyCaption, MyOnAction As String, MyFaceId, iIndex As Integer, bGroup As Boolean)
Dim MyMenuItem As CommandBarButton
    Set MyMenuItem = cbPopMenu.Controls.Add(Type:=msoControlButton, ID:=iIndex)
    With MyMenuItem
        .Caption = MyCaption
        \'.TooltipText = MyToolTip
        .Style = msoButtonIconAndCaption
        .OnAction = MyOnAction
        .FaceId = MyFaceId
        .BeginGroup = False
    End With
End Sub

Sub Fjern_MyMenu()
Dim cbMenu As CommandBar
    On Error Resume Next

\'Sletter menuen
    Set cbMenu = CommandBars.ActiveMenuBar
        cbMenu.Controls(strMyMenuName).Delete
End Sub

Private Sub Item01()
    Documents.Add Template:=\"C:\\Programmer\\Microsoft Office\\Office\\Skabeloner\\Fax.dot\", _
        NewTemplate:=False, DocumentType:=0
End Sub
Private Sub Item02()
End Sub

Hej Flemming

Public Const strMyMenuName As String = \"&Skabeloner\"

Tusind tak for indsatsen - det eneste word brokker sig over er den ovennævnte sætning, o g jeg får følgende fejl:

Compile error:
Constants, fixed-lenth strings, arrays, userdefined types and declare statements not allowed as public members of object modules.

Er der noget jeg mangler at gøre ???

hilsen

Rashid ;)

Du kan fjerne & tegnet til at starte med.

Tak for hjælpen - Jeg fandt ud af det ;)

Velbekomme

Hvis der stadig er nogle der kigger på dette spørgsmål.

Virker denne kode og hvordan udvides den med underpunkter.

Dvs. jeg kan godt få den til at virke, men kan se andre steder herinde at dette ikke er måden at gøre det på, da normal.dot bliver ødelagt ?????