Question

word vba 判断表格

例子：---------------------------------------------
标题
1 XX
1.1 XXX
1.1.1 XXXX
表格标题
|--------|--------|
|--------|--------|
|--------|--------|
注：这是一个表格--------------------------------

目前用的ActiveDocument.Paragraphs判断的标题级别，请问如何能在读取文档时判断这里有个表格？
ActiveDocument.Tables应该不能实现这个功能的样子。。。

Answer 1

步骤如下：

1.打开word文档后，选中图表，鼠标右键，在自动调整中有三个选项；

2.“根据内容调整表格”命令，Word将根据表格中的内容来调整表格的大小；

3.“根据窗口调整表格”命令，Word将根据当前文档页面的大小调整表格的大小，使表格与页面等宽；

4.如果不需要列宽自动调整，选择表格并右击，选择快捷菜单中的“自 动调整”一“固定列宽”命令即可。

Answer 2

'一、表格标题一般应该是题注，判断题注内容
Selection.Paragraphs(1).Style = "题注"
InStr(1,Selection.Paragraphs(1).Range.Text,"表") <> 0   '这里方法很多，可以通过域判断，也可以根据其他规则判断
'二、获取题注的结尾
styleEnd = Selection.Paragraphs(1).Range.End
'三、判断表注后面是否为表格
'参考2#
ActiveDocument.Range(styleEnd, styleEnd + 1).Information(wdWithInTable)
'四、请尽量少使用Selection
'Selection使用得越少，代码效率越高

Answer 3

判断焦点是否表格可以用以下代码：
If Selection.Information(wdWithInTable) Then

Answer 4

网上搜一下，判断Paragraph（i) 是在表格内还在在表格外的语句就行了，我就不给你发了，我写过你这样的。