title image


Smiley Re: WORD 2003: Speicherort abhängig von DOT-Vorlage?
Hallo,



das ginge z.B. mit einem Makro in der Normal.dot.

Sub mDateiSpeichernUnter()

CustomizationContext = ActiveDocument

Dim DocPath As String

'

Select Case ActiveDocument.AttachedTemplate

Case "Bericht.dot"

DocPath = "C:\Eigene Dateien\Berichte"

Case "Angebot.dot"

DocPath = "C:\Eigene Dateien\Angebote"

Case "Rechnung.dot"

DocPath = "C:\Eigene Dateien\Rechnungen"

Case Else

'alle anderen ins Standardverzeichnis

DocPath = Dialogs(wdDialogToolsOptionsFileLocations).Setting

End Select

'

ChangeFileOpenDirectory DocPath

'

With ActiveDocument

With Dialogs(wdDialogFileSaveAs)

If .Show = 0 Then Exit Sub

End With

End With

End Sub      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: