Documents.Open FIleName: = StrIssueNext (определено) генерирует ошибку неверного имени файла

Question

Documents.Open FIleName: = StrIssueNext - строка уже определена как полностью измененное имя файла - D: \ SInkers \ OneDrive \ Vol1 \ Winword \ Bulletins \ 2099-11d.docx = - генерирует ошибку неверного имени файла 4160 ( Office 365 Home Word VBA)

Это из этого раздела с комментариями:

'Имена файлов выпуска бюллетеня' strEdition '2099-11 c только имя файла .docx (strIssueNow имеет путь) 'strNextIssue' только имя файла 2099-11d.docx (strIssueNext включает путь) strIssueNow = strODbullpath & strEdition 'C / D: \ Sinkers \ OneDrive \ VOL1 \ winword \ bulletins \ 2099-11 c .docx strIssue strIssue 'C / D: \ Sinkers \ OneDrive \ VOL1 \ winword \ bulletins \ 2099-11d.docx strIssueNow2 = strNObullpath & strEdition' C / D: \ vol1 \ winword \ bulletins \ 2099-11 c .docx

' open next issue Word file to keep Word open, then open the current issue Word file for SaveAs

Documents.Open FileName:=strIssueNext    ' opening next issue to keep Word up
Documents.Open FileName:=strIssueNow     ' opening this issue for HTM conversion
Documents(strIssueNow).Activate          ' Focus on this issue for making HTM

' Doing it once in the OneDrive folder

ActiveDocument.SaveAs2 FileName:=strHTM, FileFormat:= _
    wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles:= _
    True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
    True, SaveNativePictureFormat:=True, SaveFormsData:=False, _
    SaveAsAOCELetter:=False, CompatibilityMode:=0

' Documents(strThisIssue).Close

Documents(strIssueNext).Activate
ActiveDocument.ActiveWindow.View.Type = wdPrintView
ActiveDocument.Save
Documents(strHTM).Close                                 ' close MHT file

' repeating for traditional

Documents.Open FileName:=strIssueNow ' opening this issue for HTM conversion
Documents(strIssueNow).Activate                        ' Focus on this issue for making HTM

ActiveDocument.SaveAs2 FileName:=strHTM2, FileFormat:= _
    wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles:= _
    True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
    True, SaveNativePictureFormat:=True, SaveFormsData:=False, _
    SaveAsAOCELetter:=False, CompatibilityMode:=0

Documents(strIssueNext).Activate
ActiveDocument.ActiveWindow.View.Type = wdPrintView
ActiveDocument.Save
Documents(strHTM2).Close                                 ' close MHT file