Из Access открыть файл Word, развернув окно на полный экран. Путь к файлу указать относительно файла Access - VBA

Формулировка задачи:

Здравствуйте, подскажите как сделать, или в каком направлении гуглить. Мне нужно запусть макрос в access, который открывает файл word. На просторах интернета нашел код.

Dim WD
    Set WD = CreateObject("Word.Application")
    WD.Visible = True
    WD.Documents.Open FileName:="G:\Users\NOUT\Desktop\1\1.doc"

Он запускает Word документ но:

Word свернут
Нужно указывать полный путь к файлу

Как можно исправить эти "но", и можно ли их вообще исправит?

Решение задачи: «Из Access открыть файл Word, развернув окно на полный экран. Путь к файлу указать относительно файла Access»

textual
                            Листинг программы 
                        
                            FileName:=CurrentProject.Path & "\1.doc"