Word VBA按选中内容命名导出PDF时报错2147467259如何解决

运行时错误2147467259 (8004005)在当前场景下的核心触发原因有两个，对应修复方案如下：

1 文件名非法问题 #

你通过Selection.Text获取的选中行内容包含2类非法内容：

• 行尾默认携带的换行/回车符，会直接导致路径拼接失败
• 可能包含Windows文件名禁止使用的特殊字符：< > / \ | : " * ?
  修复方法：拼接路径前先清理文件名：

' 清理选中内容中的非法字符与换行符
strDocName = Selection.Text
' 先移除换行回车符
strDocName = Replace(Replace(strDocName, vbCr, ""), vbLf, "")
' 替换所有文件名非法字符
arrInvalidChars = Array("<", ">", "/", "\", "|", ":", """", "*", "?")
For Each char In arrInvalidChars
    strDocName = Replace(strDocName, char, "")
Next

2 路径权限问题 #

你使用的远程桌面共享路径\\tsclient\D\需要满足2个前提才可以正常写入：

• 当前远程桌面会话已开启本地D盘的共享映射
• 共享路径有可写入权限，无安全软件拦截写入操作
  你可以先将路径替换为本地磁盘路径（比如D:\）测试，排除路径本身的访问问题。

完整修正后的代码 #

Selection.MoveDown Unit:=wdLine, Count:=20
Selection.Expand wdLine
Selection.Font.Color = -603914241
    
' 处理文件名
strDocName = Selection.Text
strDocName = Replace(Replace(strDocName, vbCr, ""), vbLf, "")
arrInvalidChars = Array("<", ">", "/", "\", "|", ":", """", "*", "?")
For Each char In arrInvalidChars
    strDocName = Replace(strDocName, char, "")
Next

' 定义导出路径，可根据需要修改
Const exportPath As String = "\\tsclient\D\"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
    exportPath & strDocName & ".pdf", ExportFormat:=wdExportFormatPDF, _
    OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
    wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
    IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
    wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
    True, UseISO19005_1:=False
ChangeFileOpenDirectory exportPath

额外排查建议 #

如果修改后仍报错，可以在拼接完OutputFileName后加一行Debug.Print OutputFileName，在立即窗口查看生成的完整路径是否符合预期，进一步定位问题。

内容的提问来源于stack exchange，提问作者Kamil Kostrubiec