word 表格内容判断问题

Question

Private Sub Document_New() 
If Selection.Tables(1).Cell(1, 1).Range.Text = "shui" Then 
  Selection.Tables(1).Cell(2, 2).Range.Delete 
  Selection.Tables(1).Cell(2, 2).Range.InsertAfter "tu" 
End If End Sub 先在word文档中选中一个表格，执行本段，（cell(1,1)内容为“shui）为什么不能实现cell(2,2)内容为tu？？

Answer 1

Private Sub Document_New()If InStr(1, Selection.Tables(1).Cell(1, 1).Range.Text, "shui") > 0 Then
  Selection.Tables(1).Cell(2, 2).Range.Delete
  Selection.Tables(1).Cell(2, 2).Range.InsertAfter "tu"
End IfEnd Sub主要原因是Cell(1,1)中的内容为"shui"加一个结束符，也就是说你的程序根据没有执行到IF语句里边的部分。
改成以上判断语句即可实现你要的结果。