作者：乔山办公网日期：
返回目录：word文档
Dim tb As Table
For Each tb In ThisDocument.Tables()
For i = 1 To tb.Columns.Count
tb.Cell(1, i).Range.Text = tb.Columns(i).Width / 28.35 'cm
'MsgBox tb.Columns(i).Width / 28.35
Next
For j = 1 To tb.Rows.Count
tb.Cell(j, 1).Range.Text = tb.Cell(j, 1).Range.Text & tb.Rows(j).Height / 28.35 '厘米
'MsgBox tb.Rows(j).Height / 28.35
Next
Next
以上百是读取每度一行列的宽问、高，但合并单元答格之后，版就可能会出权现错误。
网上有现成的代码：
========要判断 以上表格中如果有空时，则弹出对话框页面==========
'当打开Word时弹出对话框 要用户输入内容
Private Sub Document_Open()
Dim flag As Boolean
flag = True
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Range
For i = 2 To 9 Step 1
If Len(.Cells(i).Range.Text) = 2 Then
flag = False
End If
Next
If flag = False Then
AddHeader.Show
End If
End With
End Sub
=====点确定后将页面对话框中的值 插入到word 的页眉表格中====
Private Sub CommandButton1_Click()
With ActiveDocument.Sections(1)
'Cell(4, 2).Range.InsertBefore (TextBox4.value)
' .Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range.InsertAfter ("aaa")
.Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 3).Range.Delete
.Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 3).Range.InsertAfter (TxtFileName.Value)
.Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(2, 2).Range.Delete
.Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(2, 2).Range.InsertAfter (TxtSecrecy.Value)
.Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(2, 4).Range.Delete
.Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(2, 4).Range.InsertAfter (TxtRev.Value)
.Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(2, 6).Range.Delete
.Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(2, 6).Range.InsertAfter (TxtID.Value)
'页尾的做法
' .Footers(wdHeaderFooterPrimary).Range.Text = "Copyright BYD Company Limited"
End With
AddHeader.Hide
End Sub
========提问 =================
比如说sheet1 中A1:A10不为空，用代码判断不为空后，光标移向e799bee5baa6e59b9ee7ad94330A11，并且A11=11，B11=22
再录入数据后光标又光标移向A12，并且A12=22，B12=23，依此类推
========解决方法：===============================
Sub Text()
If IsEmpty([A1]) Then
[A1] = "你的数据"
Else
[A65536].End(xlUp).Offset(1, 0).Value = "你的数据"
End If
End Sub
========提问 =================
判断word中表格是否为空
========解决方法：===============================
'a.Cells.Count=41,46,41+5*7
Dim list%
'你的要求可能是这样
With ActiveDocument.Tables(1).Range
For i = 41 To 41 + 5 * 7 Step 5 '测得第一项的后面对应的是第41个单元格，相差是5。所以，step=5
list = list + 1 '利用list来得到是第几项没有加项
If Len(.Cells(i).Range.Text) = 2 Then '因为类回车加+竖线加在一起是2个长度。所以。。这样判断
'n = .Cells(i - 4).Range.Text '取得单元格的内容+回车+竖线
'n = Mid(n, 1, Len(n) - 2) '去掉回车+竖线的，即我们所看到的内容
MsgBox "提示：没有给第" & list & "项打分！", vbOKOnly, "www.excelhome.net"
.Cells(i).Range.Select '选中所在的单元格
Exit Sub
End If
Next
End With
弱弱的问一句，什么叫“识别”？ 是说读音，还是解释意思呢？
'一、表格标题一般应该是题注百，判断题注内容度
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使用得越少，代码效率越高