Word VBA输入表格填充输出表格无响应问题求助

核心问题：单元格文本包含隐藏结束标记 #

Word表格单元格的Range.Text会自动附加单元格结束符（Chr(13) + Chr(7)），导致你读取的input1实际是"PiP" & Chr(13) & Chr(7)，input2是" 13Cr" & Chr(13) & Chr(7)，和你条件判断里的纯字符串完全不匹配，所以不会进入任何分支，output始终为空，自然看不到效果。

其他潜在问题 #

• 字符串首尾空格：你的示例中13Cr前面有空格，条件判断里写的是"13Cr"，即使去掉结束符，空格也会导致匹配失败。
• 表格索引准确性：如果文档中还有其他隐藏表格，ActiveDocument.Tables(1)或Tables(2)可能不是你预期的input/output表格，导致读取或写入对象错误。

修复方案 #

1. 清理单元格文本 #

读取单元格内容时，去掉结束符和首尾空格：

' 替换原读取文本的代码
If row = 1 Then
    input1 = Trim(Left(rng.Text, Len(rng.Text) - 2)) ' 去掉最后2个字符（结束符）并 Trim 空格
ElseIf row = 2 Then
    input2 = Trim(Left(rng.Text, Len(rng.Text) - 2))
End If

2. 匹配时兼容空格（可选） #

或者修改条件判断，对判断值也做Trim处理：

If Trim(input1) = "PiP" And Trim(input2) = "13Cr" Then
    output = "13Cr is the best"
End If

3. 验证表格索引 #

可以先添加调试代码确认表格对象是否正确：

' 在设置tbl1和tbl2后添加
MsgBox "Table1行数：" & tbl1.Rows.Count & vbCrLf & "Table2列数：" & tbl2.Columns.Count

如果弹出的数值和你预期的2列10行、3列20行不符，说明表格索引错了，需要调整Tables(n)的n值。

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