时间戳

首页 > 解决方案 > Documents.Open FIleName:=StrIssueNext (defined) 生成 Bad File Name 错误

vba - Documents.Open FIleName:=StrIssueNext (defined) 生成 Bad File Name 错误

问题描述

Documents.Open FIleName:=StrIssueNext - 字符串已定义为完整路径文件名 - D:\SInkers\OneDrive\Vol1\Winword\Bulletins\2099-11d.docx =- 生成错误文件名错误 4160（Office 365 Home字VBA）

它来自注释代码的这一部分：

' 公告问题文件名 ' strEdition ' 仅 2099-11c.docx 文件名（strIssueNow 有路径） ' strNextIssue ' 仅 2099-11d.docx 文件名（strIssueNext 包括路径） strIssueNow = strODbullpath & strEdition ' C/D:\Sinkers\ OneDrive\VOL1\winword\bulletins\2099-11c.docx strIssueNext = strODbullpath & strNextIssue ' C/D:\Sinkers\OneDrive\VOL1\winword\bulletins\2099-11d.docx strIssueNow2 = strNObullpath & strEdition ' C/D:\ vol1\winword\bulletins\2099-11c.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

标签： vbams-word

解决方案

推荐阅读