Menu i Word

Lav ikke denne øvelse - du får en korrupt Normal.dot på et tidspunkt, når du har dannet menuen måske 20 gange...

Opret i stedet din menu manuelt i en skabelon, der placeres i Words opstartsbibliotek.

Men den er oprettet i en skabelon som er placeret i Words-opstartsbibliotek.
Koden er placeret i et module i denne skabelon...

jep - men menuen bliver oprettet i Normal.dot. Og hvis du så oprettet menuen i skabelonen, så fejler den bare efter et stykke tid.

OK

Se det kunne jeg ikke lure.

Du har ikke lige et stykke kode til hvordan jeg så skal gøre. Gerne med en menu hvor der er underpunkter...

Du skal ikke kode - men oprette menuen manuelt med hånden i Vis/Værktøjslinier/Tilpas/Kommandper eller Værktøsjlinier

Men kan man så stadig putte den i en skabelon så flere brugere kan bruge den....

Altså en dot. fil man kan distribuere til flere maskiner.

Jeg fandt lige denne side som omhandler vistnok det du beskriver.

Jeg forstår dog ikke hvordan man skal løse det.

http://www.kbalertz.com/Feedback_873017.aspx

Er det her noget vi kan bruge.

Her bruges i hvert fald CustomizationContext som omtalt i ovenstående link

http://help.wugnet.com/office/Custom-Users-ftopict952044.html

jeg er igen ikke smart nok til at finde ud af hvordan det virker.

Du kan ikke løse det - det er en fejl i Word fra 97 versionen og til og med 2003. Den work arround de omtaler virker heller ikke.

Du kan stadig putte den i skabelon. Placer din menu i en .dot fil og placer den i brugernes words opstartsbibliotek (findes under Funktioner/Indstillinger)

Jeg forstår stadig ikke...

Jeg kan sagtens lave et nyt menupunkt i Word via funktioner/tilpas.
Jeg kan også gemme som en skabelon.
Jeg kan gemme skabelonen i et bibliotek (startup) og pege på dette bibliotek via funktioner/indstillinger i Word.

Men menuen kommer ikke når jeg starter Word automatisk.

Gider du hjælpe lidt mere.

Jeg synes jeg har store problemer med at få dette til at virke.

Det er lykkedes mig at oprette en menu og tildele nogle makroer til mine menupunkter. Dette er placeret i en skabelon i word/startup-biblioteket.

Men når jeg efterfølgende skal redigerer i menuen og lignende kan jeg ikke komme til det. Enten forsvinder min menu (og den kan jeg slet ikke få tilbage - selvom jeg ikke har ændret i min dot-fil) ellers får jeg alle mulige fejlmeddelelser.

Er dette virkelig den måde det skal gøres på når man vil dele en menu med andre "maskiner" via en "global" skabelon.

I Excel fungerer det jo upåklageligt via næsten den selvsamme kode som jeg først postede.

Ja - i Excel virker det upåklageligt.. bortset fra at opretter du em menu i en exce-fil, så bliver menuen ikke lukket/slettet, når du lukker filen - den bliver nemlig overført til person.xls, når du åbner filen - så derfor skal man altid i Excel have en makro i filen, der sletter menuen efter sig, når filen lukkes.

Er du sikker på du gemmer menuen i skabelonen og ikke i Normal.dot? Word er nemlig sat op til at gemme i Normal.dot. Det kan godt være lidt uigennemskueligt, hvorfor jeg faktisk i de sidste mange projekter er begyndt at lave værktøjslinier i stedet for menuer - værktøjslinier er meget nemmere at styre.

Den version jeg har til Excel sletter også menuen når man lukker. Men derudover har jeg ikke forstand på dette. Den virker i hvert fald.

Med hensyn til Word, synes jeg bestemt jeg holdte øje med at gemme i min skabelon. Til gengæld har jeg fundet nedenstående. Det virker upåklageligt. Men mener du at det fejler på et tidspunkt ???

Option Explicit
Sub AutoExec()

CustomizationContext = ActiveDocument.AttachedTemplate

'Create Menu
Dim existingMenuBar As CommandBar
Dim newMenu As CommandBarPopup
Dim subMenu As CommandBarPopup
Dim subMenu2 As CommandBarButton
Dim subMenu3 As CommandBarButton
Set existingMenuBar = CommandBars.ActiveMenuBar

Set newMenu = existingMenuBar.Controls.Add(Type:=msoControlPopup)
With newMenu
.Caption = "Min menu"
.Visible = True
End With

'Sub Menu 01
Set subMenu = newMenu.Controls.Add(Type:=msoControlPopup)
With subMenu
.Caption = "Punkt 1"
End With
Call DoSubMenu(subMenu)

'Sub Menu 02
Set subMenu = newMenu.Controls.Add(Type:=msoControlPopup)
With subMenu
.Caption = "Punkt 2"
End With
Call DoSubMenu2(subMenu)

'Sub Menu 03
Set subMenu = newMenu.Controls.Add(Type:=msoControlPopup)
With subMenu
.Caption = "Punkt 3"
End With
Call DoSubMenu3(subMenu)

'Sub Menu 04
Set subMenu = newMenu.Controls.Add(Type:=msoControlPopup)
With subMenu
.Caption = "Punkt 4"
End With
Call DoSubMenu4(subMenu)

Set subMenu2 = newMenu.Controls.Add(Type:=msoControlButton)
With subMenu2
.Caption = "Et punkt"
.OnAction = "TopicUnhigh"
End With

Set subMenu3 = newMenu.Controls.Add(Type:=msoControlButton)
With subMenu3
.Caption = "Et andet punkt"
.OnAction = "HighAll"
End With

End Sub

Public Sub DoSubMenu(themainmenu As CommandBarPopup)
Dim themenu As CommandBarButton

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 532
End With

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 532
End With

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 487
End With

End Sub

Public Sub DoSubMenu2(themainmenu As CommandBarPopup)
Dim themenu As CommandBarButton

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 490
End With

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 491
End With

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 492
End With


End Sub

Public Sub DoSubMenu3(themainmenu As CommandBarPopup)
Dim themenu As CommandBarButton

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 501
End With

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 501
End With

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 501
End With




End Sub
Public Sub DoSubMenu4(themainmenu As CommandBarPopup)
Dim themenu As CommandBarButton

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 5
End With

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 5
End With

Set themenu = themainmenu.Controls.Add(Type:=msoControlButton)
With themenu
.Caption = "Underpunkt"
.Style = msoButtonIconAndCaption
.faceid = 5
End With




End Sub

Ja - men prøv den bare og hold så øje med filstørrelsen på din Normal.dot og på din skabelon. Hvis de begynder at vokse, så vil de fejle efter et stykke tid.

De er ikke vokset endnu

Men tilføjer åbner jeg en skabelon via et punkt i menuen får jeg en fejlmeddelelse vedr. Normal.dot når jeg vil lukke Word og jeg kan se at jeg ikke får fjernet menuen når Word lukker

Sådan noget besværligt møg...

Jeg har fået det til at virke ved at gøre som du siger.

Man skal bare ikke lave manøvren med at flytte sin menulinie væk når man står i funktioner-tilpas. Så kommer den nemlig ikke igen selvom dot-filen stadig ligger i startup bibliteket.

Kom med et svar så får du selvfølgelig point.

Et lille bonusspørgsmål. Jeg har nogle userforms i Excel som starter når man åbner bestemte filer. Der er kun få felter i userformen man skal udfylde. Man skal skrive et kundenr. så søger den efter det i (på nuværende tidspunkt) en Excelfil og returnere tilsvarende kundenavn. og så gemmer den filen man har åbnet på et forudbestemt sted.

Er det "nemt" at overføre til Word. Og vil du i så fald være behjælpelig me dette. jeg opretter selvfølgelig et nyt spørgsmål med point ?

Det er nemt - man skal bare have et Excel object ind i Word koden, så man fjernstyrer Excel - så kan du hente de samme data ind i Word selvom de ligger i Excel.

Gider du hjælpe med det ?

Det siger mig nemlig ikke lige noget...

Tak for hjælpen med dette spørgsmål

En lille anbefaling omkring menuer:
Det er en god idé at slette en "egen-oprettet" menu, inden man danner den, dvs. at man starter med at rydde op, så man sikrer sig, at der ikke ligger noget "gammelt skrammel" og roder (husk On Error resume next lige inden "slet-menu").

Slet også menuen, når du lukker Word - dette kan gøres i AutoExit.

ps! Hvis du vælger at lave en værktøjslinje i stedet for et menupunkt, kan du trække dine funktioner til en værktøjslinje - så er kode ikke nødvendig.

Men man skal vel ikke slette sin menu hvis man opretter den via Funktioner - Tilpas....

Kun hvis man koder den som i mit udgangspunkt-eksempel.

Ved kode :-) (ellers er man jo lidt ilde stedt *s*)

Det er jeg helt med på så.

Sådan er det også med Excel.

Men tak for inputtet. Dejligt med små fif's.