Word VBA遍历表格问题：插入Excel值时原有文本被截断

你的问题出在Selection.TypeText方法——默认编辑模式下它会覆盖单元格原有文本，而不是追加。要实现追加需求，直接操作单元格的文本属性即可，不用依赖TypeText。

修改现有代码（基于Selection） #

把原代码中的Selection.TypeText替换为直接拼接单元格文本：

For i = 2 To 10
    res = xlApp.VLookup(srch, xlWb.Worksheets("Sheet1").Range("AO:CR"), i, False)
    ' 直接将新内容追加到单元格现有文本末尾
    Selection.Range.Text = Selection.Range.Text & " " & res
    Selection.MoveRight Unit:=wdCell
Next i

更稳定的写法（不依赖Selection） #

如果要避免选区变动导致的错误，建议直接定位表格单元格，示例如下（假设操作文档中第一个表格的某一行）：

Dim targetTbl As Table
Set targetTbl = ActiveDocument.Tables(1) ' 指定要操作的表格
Dim targetRow As Integer
targetRow = 1 ' 替换成你实际要操作的行号

For i = 2 To 10
    res = xlApp.VLookup(srch, xlWb.Worksheets("Sheet1").Range("AO:CR"), i, False)
    ' 定位到指定单元格，追加内容
    With targetTbl.Cell(targetRow, i - 1).Range
        .Text = .Text & " " & res
    End With
Next i

说明 #

• 直接操作Range.Text属性可以确保新内容是追加到原有文本之后，不会触发改写模式的覆盖问题。
• 不依赖Selection的写法更可靠，尤其在复杂操作场景下，不会因为用户交互改变选区而导致代码执行异常。

内容的提问来源于stack exchange，提问作者gurtej