当 Word Doc 位于服务器上时，如何从 Excel VBA 更改 Word Doc 中的文本？

Question

我有一个宏，可以根据 word 模板创建实验报告，然后将其保存到远程服务器。在我的 Excel 工作表中选择了一个单元格，运行宏，打开一个带有空白模板的 Word 实例，并根据所选单元格和其他数据保存文件。我要做的是编辑空白模板中的标题并将其更新为位于所选单元格行的第一列中的实验名称。

以下代码在我从本地文件打开文件时有效，但当文件位于服务器上时无效。

    Dim oWord As Object
    Set oWord = CreateObject("Word.Application")
    oWord.Visible = True
    oWord.Activate

    ' Open a new instance of the ExperimentTemplate and save it
    oWord.Documents.Add Template:="ExperimentTemplate", NewTemplate:=False, DocumentType:=0
    oWord.ActiveDocument.SaveAs FileName:=fPath & "example.docx", FileFormat:=wdFormatXMLDocument 'fPath is the path to the folder where file will be saved on the server
    oWord.ActiveDocument.Close

    ' Re-open file and change Experiment Name
    oWord.Documents.Open FileName:=fPath  & "example.docx"
    Set oSelection = oWord.Selection
    oSelection.Find.Text = "Experiment Name"
    oSelection.Find.Replacement.Text = name 'defined as the text in the first cell of the selected column
    oSelection.Find.Execute Replace:=wdReplaceAll
    oWord.ActiveDocument.Save
    oWord.Quit
    Set oWord = Nothing

我知道我的代码不是最优雅的，但这对我来说并不担心，除非它影响了我想要实现的功能。任何帮助将不胜感激。这已经让我头疼了两个星期了！

Answer 1

你能帮我试试这个代码吗？

Dim oWord As Object
Dim oSelection As Object
Dim sel As Object

Set oWord = CreateObject("Word.Application")
oWord.Visible = True
oWord.Activate

oWord.Documents.Add Template:="ExperimentTemplate", NewTemplate:=False, DocumentType:=0
oWord.ActiveDocument.SaveAs FileName:=fPath & "example.docx", FileFormat:=wdFormatXMLDocument 'fPath is the path to the folder where file will be saved on the server
oWord.ActiveDocument.Close

' Re-open file and change Experiment Name
oWord.Documents.Open FileName:=fPath  & "example.docx"

Set oSelection = oWord.Documents(1).Content

oSelection.Select

Set sel = oWord.Selection

With sel
    .Find.ClearFormatting
    .Find.Replacement.ClearFormatting
    With .Find
        .Text = "Experiment Name"
        .Replacement.Text = Name 'Hope you have declared it somewhere?
        .Forward = True
        .Wrap = 1 'wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        sel.Find.Execute Replace:=2  'wdReplaceAll
   End With
End With