请教：由于文件许可权错误，word无法完成保存文件

wdwc

以下宏代码用于选中文档首行文字，并以首行文字重命名另存，可是有错误，因此向大家请教

Sub word文件改名()

'

' Macro3 Macro

' 宏在 2007-10-9 由 User 录制

'

    Selection.WholeStory

    Selection.Cut

    Documents.Add DocumentType:=wdNewBlankDocument

    Selection.Paste

    Selection.WholeStory

    Selection.HomeKey Unit:=wdLine

    Selection.Expand wdLine

    Selection.Copy

    i = Selection

    ActiveDocument.SaveAs FileName:="C:\" & i & ".doc"

    ActiveWindow.Close

    ActiveWindow.Close

End Sub

这段代码不正确，总出现由于文件许可权错误，word无法完成保存文件可是我不知道怎样改，谢谢大家，能帮我改一下吗

wdwc

请问选中光标所在行的文字而不选中段落标记的宏代码是什么？这个问题解决了我的问题就解决了。谢谢

hixiaocao

1）在保存文档时，跳出对话框信息如下：“由于文件许可权错误，word无法完成保存文件”。
这种情况往往是因为同时无意打开了一个副本，关掉那个文件副本，就可以保存了。

Chiyuen

楼主解决没，，我也遇到 这个问题  Sub 一键另存()     
ActiveDocument.SaveAs2 FileName:="D:\" & ActiveDocument.Paragraphs(1).Range.Sentences(1) & ".docx"
End Sub

chendeyan126

i=selection，变量中应该是包括了回车符，而回车符不能用于文件名。https://www.tuicool.com/articles/73qmuu