word保存时，怎样将添加到超链接的文件一同保存？

ALT+F11
复制以下宏

Sub Macro1()
Dim myfilename As String
myfilename = Format(Date, "yyyy/m/d ", vbSunday, vbUseSystem)
myfilename = 零整联律化权胡主myfilename + ".doc"
ChangeFileOpenDirectory "C:"
***.saveas filename:=myfilename, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub

想要保存时
ALT+F8，运行MACRO1宏即可。

注意：上面宏默认保存到C:下，可根据自己的意愿将保存位置更改
方法：
把上面
ChangeFileOpenDirectory "C:"
中的C:替换为其他位置

ALT+F360问答11
复制以下宏

Sub Macro1()
Dim myfilename As String
myfilename = Format(Date, "yyyy/m/d ", vbSunday, vbUseSystem)
myfilename 罪血致= myfilename + ".doc"
ChangeFileOpenDirectory "C:\"
ActiveDocument.SaveAs filename:=myfilename, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub

想要保存时
ALT+F8，运行MACRO1宏即可。

注意：上面宏默认保存到C:\下，可根据自己的意愿将保存位置更改
方法：
把上面
ChangeFileOpenDirectory "C:\"
中的C:\替换为其他位置

在Word中，当你把文件添加到超链接后，保存时记得勾选链接对象选项。点击文件菜单，选择保存为，在弹出的对话框里找到工具或者选项（取决于你的版本），然后在其中确保嵌入对象或类似选项被启用。这样，你不仅保存了文档，连链接的文件也会一并包含进去