出错：答案从Excel分别回灌到word文档相对位置

weiyingde

要求：答案从Excel分别回灌到word文档相对位置‘
问题：错误地将Excel所有答案回灌word文档第一个位置。
代码如下：
Sub 文档回灌()
Dim xlapp As New Excel.Application, arr
n = 0 '给题和题枝干加别加题号编号
With ActiveDocument
     For Each par In .Paragraphs
         If Len(par) > 1 Then n = n + 1
     Next
     For i = 2 To n
        If (i - 2) Mod 5 = 0 Then
           tx1 = .Paragraphs(i).Range.Text
           .Paragraphs(i).Range.Text = 1 + Int((i - 2) / 5) & "." & tx1
        Else
           ys = (i - 2) Mod 5
           tx2 = .Paragraphs(i).Range.Text
           .Paragraphs(i).Range.Text = Chr(64 + ys) & "、" & tx2
        End If
    Next
With xlapp.Workbooks.Open(Left(.FullName, Len(.FullName) - 4) & "xlsx").ActiveSheet
         arr = .Range("G1:G" & .Cells(65536, 7).End(xlUp).Row)
     End With
     xlapp.Quit
    .Range(0, Len(.Paragraphs(1).Range.Text) - 1) = Left(.Name, Len(.Name) - 5)
End With

ActiveDocument.Content.Find.Execute "([\(（])[" & ChrW(12288) & ChrW(32) & ChrW(160) & "]{1,}([）\)])", , , 1, , , , , , "\1\2", 2
With ActiveDocument.Content.Find '回灌答案
     Do While .Execute("\][\(（]", , , 1)
        txt$ = .Parent.Text
         k = k + 1
        .Parent.Text = txt$ & arr(k , 1)
     Loop
End With
End Sub
注意，附件代码中红字部分笔误了，特此提醒。

weiyingde

再求大侠援助，在线等。

duquancai

weiyingde 发表于 2017-8-22 08:00
再求大侠援助，在线等。

          在      .Parent.Text = txt$ & arr(k, 1)    这句后面 加一句 如下代码：
            .Parent.Collapse 0

weiyingde

duquancai 发表于 2017-8-22 08:55
在      .Parent.Text = txt$ & arr(k, 1)    这句后面 加一句 如下代码：
            .Pare ...

谢谢，这个collapse，不好理解，到现在还没搞懂

duquancai

weiyingde 发表于 2017-8-22 08:58
谢谢，这个collapse，不好理解，到现在还没搞懂

另一种说法：改变指针的指向

weiyingde

duquancai 发表于 2017-8-22 09:13
说得专业一点：改变指针

我理解为“遮盖”。
Do While .Execute("\][\(（]", , , 1)
        txt$ = .Parent.Text
         k = k + 1
        .Parent.Text = txt$ & arr(k , 1)
     Loop
我理解为，搜到一个符合要求的第一个地方，然后用第一个 txt$ & arr(k , 1)的值来替换，直到替换搜有的
可为什么老在原地方替换，而没有继续往后搜索呢并相应地替换呢？是Do While ……loop循环的问题，还是在word本身的特殊性呢？

duquancai

weiyingde 发表于 2017-8-22 09:24
我理解为“遮盖”。
Do While .Execute("\][\(（]", , , 1)
        txt$ = .Parent.Text

没有那么多的空闲时间来为你解释复杂的理论

weiyingde

duquancai 发表于 2017-8-22 09:29
没有那么多的空闲时间来为你解释复杂的理论

杜老师请便。
已经浪费了你够多的时间了，谢谢你！
若有时间，还要向你请教。
跟你学了不少知识，也掌握了一些word的技能。

jiminyanyan

weiyingde 发表于 2017-8-22 09:40
杜老师请便。
已经浪费了你够多的时间了，谢谢你！
若有时间，还要向你请教。

给杜大侠发点辛苦费………………

weiyingde

首先感谢杜大虾，也要感谢你，虽不曾给你们什么报酬，祈愿好人一生平安！！！