Не могу открыть документ с пробелом в имени файла - VB

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

При открытии документа, содержащего в имени пробел, программа (во время активации) выдает ошибку 4160 и пишет: "неправильное имя файла". Вот код процедуры:

oapp  
 dlg  

   oapp = CreateObject()
  oapp.Visible = True
   dlg = Dialogs(wdDialogFileOpen)
  oapp.ChangeFileOpenDirectory 
    
     dlg.Show = - 
         Documents. FileName:=dlg.
         Documents(dlg.).Activate
     

Константин

Решение задачи: «Не могу открыть документ с пробелом в имени файла»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Function</font> ActivateWord() <font color="blue">As</font> <font color="blue">Boolean</font>
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> labGetObj
<font color="blue">Set</font> WordObj = GetObject(, <font color="teal">"Word.Application"</font>)
<font color="blue">If</font> WordObj <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font>
    ActivateWord = False
    <font color="blue">Exit</font> <font color="blue">Function</font>
<font color="blue">Else</font>
    ActivateWord = True
    <font color="blue">Exit</font> <font color="blue">Function</font>
<font color="blue">End</font> <font color="blue">If</font>
labGetObj:
<font color="blue">Set</font> WordObj = CreateObject(<font color="teal">"Word.Application"</font>)
<font color="blue">Resume</font> <font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">Function</font>
                        