Word2003, Werkbalkknoppen maken die Doc openen op basis van sjabloon

[Prozac1970]

Gebruikte versie:
MS Office Word 2003 (Prof), SP3

Situatieschets:
Onder het gebruikersprofiel heb ik een aparte tab aangemaakt met daaronder eigen sjablonen.

( c:\[gebruikerpad]\Application Data\Microsoft\Sjablonen\[Naam Tabblad]\eigensjabloon1.dot)

Wat ik in Word voor elkaar wil hebben, is als je word opent er een eigen werkbalk weergegeven word. Dat lukt me nog...

Nu wil ik verder een aantal knoppen opnemen met als opdracht het openen van een nieuw document op basis van een eigen sjabloon. En dat lukt me dus niet... Als ik de knoppen opneem wordt het sjabloon dus geopend, en dat is dus niet de bedoeling.

Ik hoop dat de vraagstelling duidelijk is... Dank voor jullie antwoorden

 

[snb]

Zet onder de knop de volgende macro:

Sub verrassend()
  Documents.Add "c:\[gebruikerpad]\Application Data\Microsoft\Sjablonen\[Naam Tabblad]\eigensjabloon1.dot"
End Sub

 

[Prozac1970]

Goed ik ben nu een stapje verder...

Ik heb er een macro van gemaakt in sjabloon normal. Dit werkt goed, maar...

Maar ik wil graag de systeemschijf (c:\) en het gebruikerspad relatief opnemen in de macro, zodat de menubalk en opdrachten ook in een netwerk-config werken of op een andere pc (met andere gebruikersnaam)waar ik de sjablonen zal neerzetten.

Dit is de macro in normal.dot

Documents.Add Template:= _
        "[COLOR="Red"]C:\Documents and Settings\[NAAM GEBRUIKER][/COLOR]\Application Data\Microsoft\Sjablonen\[TABBLAD SJABLONEN]\[SJABLOONNAAM].dot" _
        , NewTemplate:=False, DocumentType:=0

Het rode gedeelte zou ik graag ipv absoluut relatief willen opnemen. Ik weet alleen niet hoe...

%userprofile% werkt niet, of ik gebruik het verkeerd...

 

[Prozac1970]

Zet onder de knop de volgende macro:

Sub verrassend()
  Documents.Add "c:\[gebruikerpad]\Application Data\Microsoft\Sjablonen\[Naam Tabblad]\eigensjabloon1.dot"
End Sub

Dank je SNB, we waren tegelijk... Het idee van een macro is idd bij me opgekomen.

Maar zie mijn post hierboven: Hoe kan ik het pad naar de map met sjablonen relatief maken? Wellicht dat je me hierbij ook zou willen helpen?

Dank igg voor je snelle antwoord.

 

[snb]

Documents.Add Options.DefaultFilePath(2) & "\eigensjabloon1.dot"

 

[Prozac1970]

:thumb:

Dank SNB!!! Works like a charm

De code die ik heb voor de macro (als iemand er iets aan heeft)

Sub [naam macro]()

    Documents.Add Template:= _
        Options.DefaultFilePath(2) & "\[naam tab]\[naam sjabloon.dot" _
        , NewTemplate:=False, DocumentType:=0
End Sub

nogmaals dank!

 

[snb]

Waarom die overbodigheden ?

Sub macronaam()
  Documents.Add Options.DefaultFilePath(2) & "\naam sjabloon.dot"
End Sub