Sarah有一个文档,需要将其保存在系统上的两个不同文件夹中。她想知道是否有一种方法可以自动将对文档一个副本的任何更新反映在文档的另一副本中。

实际上,有几种方法可以解决此问题。一种是创建一个实际上将文档保存到两个位置的宏。这是执行此操作的宏的示例。

Sub DualSave()

Dim FirstFolder As String     Dim SecondFolder As String     Dim DocName As String     Dim objF As Object     Dim retVal As Long

SecondFolder = "c:\MyLocation\"



With ActiveDocument         If Not .Saved Then             .Save             FirstFolder = .Path & "\"

DocName = .Name             If FirstFolder = SecondFolder Then                 MsgBox "WARNING! Second folder is the same as first folder."

Exit Sub             End If

Set objF = CreateObject("Scripting.FileSystemObject")

retVal = -1             On Error Resume Next             retVal = objF.CopyFile(FirstFolder & DocName, _               SecondFolder & DocName, True)

On Error GoTo 0             Set objF = Nothing             If retVal <> 0 Then                 MsgBox "File could not be copied to folder " & SecondFolder             End If         End If     End With End Sub

这样的宏非常简单,因为它从您现在所在的位置复制到第二个文件夹(在SecondFolder变量中指定)。这意味着,如果您在第二个文件夹中打开文档然后将其保存,则原始文档不会更新,并且运行DualSave宏将生成错误。 (发生错误是因为第一个和第二个文件夹的名称相同。)因此,如果要复制到第二个位置作为文档备份的一种方法,则这种宏方法更适合。由Word MVP Graham Mayor创建的加载项实际上具有相同的作用:

https://www.gmayor.com/SaveInTwoPlacesAddIn.htm

另一种方法(不需要宏)是创建主文档,然后使用“粘贴链接”

创建镜像文档。 Word的功能。您只需选择整个第一个文档,然后在镜像文档中使用“粘贴链接”来粘贴信息。结果是镜像文档始终反映主文档中的内容。 (有关如何链接Word文档的其他信息,请参见其他_WordTips_。)缺点是您无法在镜像文档中进行更改,而不能在主文档中反映这些更改。镜像仅在一个方向上。

但是,也许最好的解决方案是完全不依赖Word。

而是保存主文档,然后在Windows中创建该主文档的快捷方式。将快捷方式移动到第二个文件夹,您已经准备好。现在,有人可以打开原始文档或快捷方式,并且它将始终引用同一文档。要创建快捷方式,请执行以下操作:

。保存您的文档并完全退出Word。

。找到并右键单击刚保存的文档文件。 Windows将显示一个上下文菜单。

。选择创建快捷方式。快捷方式与原始文档位于同一文件夹中。

。打开第二个文件夹的窗口。

。将快捷方式从第一个文件夹拖到第二个文件夹。

您的快捷方式到位了。如果您双击它,Word将打开原始文档。现在,您基本上有了一个可以通过两个不同的文件夹访问的文档。当然,这种方法的缺点是第二个文件夹仅包含原始文档的快捷方式,这意味着您不应将快捷方式视为原始文档的备份。不是。如果您实际上正在寻找制作文档的备份副本的方法,请使用本技巧中讨论的其他解决方案之一。

注意:

如果您想知道如何使用此页面(或_WordTips_网站上的任何其他页面)上描述的宏,我准备了一个包含有用信息的特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

(Microsoft Word是世界上最流行的文字处理软件。)本技巧(12633)适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。