expression.StartupPath
expression Required. An expression that returns an Application object.
Remarks
Templates and add-ins located in the Startup folder are automatically loaded when you start Word.
Example
This example displays the complete path of the Startup folder.
MsgBox Application.StartupPath
This example enables the user to change the path of the Startup folder.
x = MsgBox("Do you want to change the startup path?", vbYesNo, _
"Current path = " & Application.StartupPath)
If x = vbYes Then
newStartup = InputBox("Type a startup path")
Application.StartupPath = newStartup
End If