老师给看一下这个表格，为什么后面的不能按表变呢？

mgzbs

各位大师们给看一下这个表格吧，这也是别人的想改一下，但是由于技术有限没法改。

QQ214189912

1. Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
   
2.     If StrComp(ContentControl.Tag, "名字", vbTextCompare) = 0 Then
   
3.         Dim tblSource As Word.Table
   
4.         Dim oCell As Word.Cell
   
5.         Set tblSource = Me.Tables(1)
   
6.         For Each oCell In tblSource.Columns(1).Cells
   
7.             If StrComp(Me.ContentControls(1).Range.Text, Split(oCell.Range.Text, Chr(13))(0), vbTextCompare) = 0 Then
   
8.                 Me.ContentControls(2).Range.Text = Replace$(oCell.Row.Cells(2).Range.Text, Chr$(13) & Chr$(7), Empty)
   
9.                 Me.ContentControls(3).Range.Text = Replace$(oCell.Row.Cells(3).Range.Text, Chr$(13) & Chr$(7), Empty)
   
10.                 Me.ContentControls(4).Range.Text = Replace$(oCell.Row.Cells(4).Range.Text, Chr$(13) & Chr$(7), Empty)
    
11.                 Exit Sub
    
12.             Else
    
13.                 Me.ContentControls(2).Range.Text = "Unknow"
    
14.                 Me.ContentControls(3).Range.Text = "Unknow"
    
15.                 Me.ContentControls(4).Range.Text = "Unknow"
    
16.             End If
    
17.         Next
    
18.     End If
    
19. End Sub

复制代码