Ekstra 'Åbn' ikon inkl. funktionalitet i menulinien - hvordan ?

Du opretter en ny knap, og knytter en makro til knappen. Denne makro skal vælge funktionen Gem som samt den mappe, du ønsker som alternativ palcering.

OKi - lyder smart, hvordan laver man makroer ??? (nej jeg kan _ikke_ VB)

***
Den opmærksomme læser har sikkert allerede bemærket at konflikterne har bredt sig til overskriften i dette spørgsmål :)

Det skal selvfølgelig være "Ekstra 'Gem' ikon inkl. funk......"

Du opretter en ny knap i knappanelet på følgende måde:

Vælg Vis->Værktøjslinier->Tilpas..
Vælg Fanen Kommandoer
I venstre side vælger du Makroer
I højre side finer du din makro og trækker den op i værktøjslinien. Du vælger selv hvor i værktøjslinierne den skal placeres.
Højreklik på den knap du nu har oprettet og vælg Tilpas knapflade. Her kan du vælge at indsætte et ikon på knappen til erstatning for den standard-tekst der er på den.
Luk dialogboksen Tilpas

OK - så langt så godt, så mangler der 'bare' selve makroen ;)

Nogen der har et bud ... ?

Du opretter makroen således:

Vælg Funktioner/Makro/Indspil ny makro
Navngiv makoren og klik OK
Nu udfører du det det som makroen skal gøre for dig:
Filer/Gem som...
Vælg den mappe du ønsker at gemme i
og hvis der er andre indstillinger du ønsker at ændre
Herefter klikker du på knappen Stop Indspilning
Din makro er oprettes, og kan nu vælges i forbindelse med knappen.

Testede lige makroen, hvis du gør som beskrevet her er du nødt til at gemme et dokument for at afslutte makroen. Du kan ikke afslutte optagelse af makroen mens du stadig har dialogboksen åben.

Så en lille tilføjelse til ovenstående:
Umiddelbart før du stopper indspilningen af makroen er du nødt til at klikke på Gem-knappen for at afslutte dialogboksen.

Herefter skal du slette i makroen, så dokumentet ikke gemmes:
Vælg Funktioner/Makro/Makroer
Vælg din makro, og klik på knappen Rediger
Slet alt i makroen så den ser således ud:
Sub test()
'
' Makronavn Makro
' Makro indspillet 20-02-03 af xxxxx
'
    ChangeFileOpenDirectory "C:\Den ønskede mappe"
   
End Sub

OK - jeg prøver efter spisetid - foreløbig <b>Stor TAK</b> :)

Det har jeg så gjort, men desværre virker det ikke.

Jeg har i makroen:

Sub gem_i_mappe()
'
' gem_i_Mappe Makro
' Gemmer pågældende dokument i mappen Mappe
'
    ChangeFileOpenDirectory "E:\Mappe\"
End Sub

får du en fejl eller ??

Næh, der sker intet ...

Virker det hos dig ?

Din makro skal se ud som følger:


ChangeFileOpenDirectory "E:\Mappe\"
Dialogs(wdDialogFileSaveAs).Show

Den sidste linie sikrer at dialogboksen overhovedet bliver vist.

Super, det fungere bare fint !

Tak for hjælpen :)

Velbekomme!