1: 2: 3: 4: 5: 6: 7:
Function GetStartupFolder() As String Dim wdApp As Word.Application Set wdApp = CreateObject("Word.Application") GetStartupFolder = wdApp.Options.DefaultFilePath(wdStartupPath) wdApp.Quit End Function