Visualbasic Codeschnipsel

Sub Vorlagenordner_Excel()

 MsgBox _ 
 "Current Path  - ActiveWorkbook.Path"         & vbNewLine & ActiveWorkbook.Path         & vbNewLine & vbNewLine & _
 "Standard Path - CurDir()"                    & vbNewLine & CurDir()                    & vbNewLine & vbNewLine & _
 "Vorlagen      - Application.TemplatesPath"   & vbNewLine & Application.TemplatesPath   & vbNewLine & vbNewLine & _
 "Programm      - Application.Path"            & vbNewLine & Application.Path            & vbNewLine & vbNewLine & _
 "Bibliothek    - Application.LibraryPath"     & vbNewLine & Application.LibraryPath     & vbNewLine & vbNewLine & _
 "Bibl. User    - Application.UserLibraryPath" & vbNewLine & Application.UserLibraryPath & vbNewLine & vbNewLine & _
 "Startordner   - Application.StartupPath"     & vbNewLine & Application.StartupPath

End Sub

Sub Vorlagenordner_Word()
 
 MsgBox _ 
 "Programm    - Application.Path"                         & vbNewLine & Application.Path            & vbNewLine & vbNewLine & _
 "Startordner - Application.StartupPath"                  & vbNewLine & Application.StartupPath     & vbNewLine & vbNewLine & _
 "Vorlagen    - ActiveDocument.AttachedTemplate.FullName" & vbNewLine & ActiveDocument.AttachedTemplate.FullName

End Sub