VBA ActivedOcument.TableS（2）.cell（1，2）。
我对以下代码有问题。
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
我将一个addin链接“ {link 2134}”读取到rngtable中
，然后
objTable.Cell(1, 2).Range.FormattedText = rngTable
我在我的话语中以不同的位置写下它。
我的问题是链接未完全复制和编写。从实际链接“ {link ...}”中总是缺少背面支架。因此，结果始终是“ {link ...”。
因此，Word无法识别链接。
我已经尝试了WDForward，它可以使用它，但是它以无法使用的方式将所有单词线路调整。有人有主意吗？
I have a problem with the following code.
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
With
Set rngTable = ActiveDocument.Tables(2).Cell(1, 2).Range
rngTable.MoveEndWhile Chr(7) & Chr(13), wdBackward
I read an AddIn link "{ Link 2134 }" into rngTable
and with
objTable.Cell(1, 2).Range.FormattedText = rngTable
I write it in a different place in my Word.
My problem is the link is not fully copied and written. The back bracket is always missing from the actual link "{ Link... }". So the result is always "{ Link... ".
So word does not recognize the link.
I've already tried it with wdForward, it works, but it shuffles all the Word lines in such a way that they aren't usable. Does anyone have an idea?
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
更改：
到：
Change:
to: