VBA Macro для замены концевых сносок в Word

Question

Я надеюсь использовать макрос, чтобы заменить концевые сноски в текстовом документе. Вот мое место:

У меня есть два слова docs. Оба документа имеют одинаковое количество концевых сносок. Один документ заполнен правильным содержанием тела, но имеет место для концевых заметок. Другой документ имеет устаревший контент, но имеет правильные сноски для заполнения заполнителей в первом документе.

У меня есть макрос ниже, который может проходить через все концевые сноски в правильном файле, а затем открывает другой документ под названием «old.docx» ниже. Я просто не знаю, как заменить заметок в old.docx значением ftstr (см. Ниже).

Любая помощь будет замечательной!

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 

Но я предполагал, что вам нужно изменить сноски (1) в сноски (1), 2 в 2 и т. Д.