Word宏无法保存文件名> 255 个字符

发布于 2024-08-05 23:53:23 字数 830 浏览 1 评论 0原文

我的 Word 宏中有这个

ActiveDocument.SaveAs FileName:="D:\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\Ug F Blug and Bug f Goo - Blank Address - 2009-09-25 093614.doc", FileFormat:=wdFormatDocument, _
     LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
    :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
    False

(注意长文件名)

当我运行它时,我得到: “运行时错误'9105':

字符串长度超过255个字符”

Word Automation真的无法保存长文件名吗?这是一个相当严重的限制,但谷歌搜索该错误却没有发现任何结果。

有解决方法吗?

这是怎么回事!??!?

使困惑..

I have this in my Word Macro

ActiveDocument.SaveAs FileName:="D:\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\Ug F Blug and Bug f Goo - Blank Address - 2009-09-25 093614.doc", FileFormat:=wdFormatDocument, _
     LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
    :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
    False

(note the long filename)

When I run it, I get :
"Run-time error '9105':

String is longer than 255 characters"

Is it really the case that word automation cannot save long filenames? This is a pretty serious limitation, yet a google search on the error has brought up nothing..

Is there a workaround?

Whats going on!??!?

Confused..

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(4

纵性 2024-08-12 23:53:23

尝试使用 dir 函数进入所需的文件夹,然后保存:

ChDir "D:\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\"

ActiveDocument.SaveAs FileName:="Ug F Blug and Bug f Goo - Blank Address - 2009-09-25 093614.doc", _
    FileFormat:=...

Try using dir function to get into the folder you want and then save it:

ChDir "D:\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRock\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\GrooveAndRockAndRoll\\"

ActiveDocument.SaveAs FileName:="Ug F Blug and Bug f Goo - Blank Address - 2009-09-25 093614.doc", _
    FileFormat:=...
哆兒滾 2024-08-12 23:53:23

您可以通过将路径转换为旧的 8.3 格式来解决此问题:

    strFolder = "D:\GrooveAndRock\GrooveAndRock\GrooveAndRock\GrooveAndRock\GrooveAndRock\GrooveAndRock\GrooveAndRockAndRoll\GrooveAndRockAndRoll\GrooveAndRockAndRoll\GrooveAndRockAndRoll\GrooveAndRockAndRoll\GrooveAndRockAndRoll"
    ActiveDocument.SaveAs _
        FileName:=CreateObject("Scripting.FileSystemObject").GetFolder(strFolder).ShortPath & "Ug F Blug and Bug f Goo - Blank Address - 2009-09-25 093614.doc", _
        FileFormat:=...

You can workaround this by converting the path to the old 8.3 format:

    strFolder = "D:\GrooveAndRock\GrooveAndRock\GrooveAndRock\GrooveAndRock\GrooveAndRock\GrooveAndRock\GrooveAndRockAndRoll\GrooveAndRockAndRoll\GrooveAndRockAndRoll\GrooveAndRockAndRoll\GrooveAndRockAndRoll\GrooveAndRockAndRoll"
    ActiveDocument.SaveAs _
        FileName:=CreateObject("Scripting.FileSystemObject").GetFolder(strFolder).ShortPath & "Ug F Blug and Bug f Goo - Blank Address - 2009-09-25 093614.doc", _
        FileFormat:=...
~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文