VBA ActiveDocument.Tables(2).单元格(1,2)，范围问题

Question

下面的代码有问题。

objTable.Cell(1, 1).Range.Text = "Link:"
Dim rngTable As Range
Set rngTable = ActiveDocument.Tables(2).Cell(1, 2).Range
rngTable.MoveEndWhile Chr(7) & Chr(13), wdBackward
objTable.Cell(1, 2).Range.FormattedText = rngTable

Set rngTable = ActiveDocument.Tables(2).Cell(1, 2).Range
rngTable.MoveEndWhile Chr(7) & Chr(13), wdBackward

我读取了一个插件链接"{link 2134}"到rngTable

和

objTable.Cell(1, 2).Range.FormattedText = rngTable

我把它写在Word的另一个地方。

我的问题是链接没有完全复制和写入。实际链接"{link…}"。所以结果总是"{Link…"。

所以word不识别链接。

我已经用wdForward试过了，它可以工作，但是它把所有的Word行都打乱了，以至于它们无法使用。有人知道吗?

Answer 1

变化:

rngTable.MoveEndWhile Chr(7) & Chr(13), wdBackward
objTable.Cell(1, 2).Range.FormattedText = rngTable

:

rngTable.End = rngTable.End - 1
objTable.Cell(1, 2).Range.FormattedText = rngTable.FormattedText