VBA宏替换Word中的尾注

Question

我希望使用宏替换Word文档中的尾注。 这是我的观点：

我有两个单词文档。 两个文件的尾注数量完全相同。 一个文档中包含正确的正文内容，但末尾有占位符。 另一个文档的内容已经过时，但是具有正确的尾注以填充第一个文档中的占位符。

我在下面设置了一个宏，该宏可以循环浏览正确文件中的所有尾注，然后在下面打开另一个名为“ old.docx”的文档。 我只是不知道如何用ftstr的值替换old.docx中的尾注（请参见下文）。

任何帮助将是巨大的！

Sub endnoteReplacer()

Dim ft As Endnote
Dim wrdApp As Object
Dim wrdDoc As Object

Dim r1 As Range, ftstr As String, mark

    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = False
    Set wrdDoc = wrdApp.Documents.Open("C:\Desktop\old.docx")

For Each ft In Word.ActiveDocument.Endnotes

    ftstr = ft.Range.Text

    wrdDoc.Endnotes(ft.Index).Range.Text = ftstr

Next ft

End Sub

Answer 1

如果我正确，您需要在循环中添加以下简单解决方案：

For Each ft In Word.ActiveDocument.Endnotes

    ftstr = ft.Range.Text
    'change value of corresponding footnote in old.docx to value of ftstr
    '!! new line !!
    wrdDoc.Endnotes(ft.Index).Range.Text = ftstr
Next ft

但是我假设您需要将endnotes（1）更改为endnotes（1），将2更改为2，依此类推...