Question

WORD(vba?)表格选择，选择分表时自动添选主表格？

一个word有几个主表格，跨页之后，担心复制错了主表。这个有什么办法？
一般是选择一个分表带上主表。。

Answer 1

Sub SetCell()
Dim inp As String
Dim r As Row, c As Cell
Dim CELL_ENDING As String
CELL_ENDING= vbCr & Chr(7) 'word表格单元格文本结束符
inp = CELL_ENDING
For Each r In ThisDocument.Tables(1).Rows '查找文档中第1个表格
For Each c In r.Cells
If inp = c.Range.Text Then '这里也是完全相同，也可用instr'InStr(1, c.Range.Text, inp, vbTextCompare) = 1
MsgBox Replace(r.Range.Text, CELL_ENDING, vbTab)
Exit Sub
End If
Next
Next
End Sub