Word VBA常用代码合集

sub testSet tb = ActiveDocument.Tables.Add(Selection.Range, 1, 3)tb.Style = "网格型"end sub

Sub 第一种写入方法()    Dim t As Table        Set t = ActiveDocument.Tables(1)        t.Cell(1, 1).Range = 1End Sub
Sub 第二种写入方法()    Set t = ActiveDocument.Tables(1).Range    For i = 1 To t.Cells.Count        t.Cells(i).Range = i    NextEnd Sub

Sub 设置word表格的宽度()     Dim tbl As Table    Set tbl = ActiveDocument.Tables(2)    tbl.Columns(1).Width = Application.CentimetersToPoints(1.42)    tbl.Columns(2).Width = Application.CentimetersToPoints(5.07)    tbl.Columns(3).Width = Application.CentimetersToPoints(2.13)    tbl.Columns(4).Width = Application.CentimetersToPoints(4.33)    tbl.PreferredWidth = Application.CentimetersToPoints(18.99)End Sub

Sub 判断光标是否在表格里()    If Selection.Information(wdWithInTable) = True Then        MsgBox "光标在表格里"    Else        MsgBox "光标不在表格里"    End IfEnd Sub

Sub 表格最后插入2行()   Dim myTable As Table    Set myTable = ActiveDocument.Tables(1)    myTable.Rows.Last.Select    Selection.InsertRowsBelow 2End Sub

Sub 向表格末尾插入内容并居中()    Dim tbl As Word.Table    For Each tbl In Selection.Range.Tables        tbl.Range.Cells(tbl.Range.Cells.Count).Select        Selection.Move wdCharacter, 2        Selection.TypeParagraph        Selection.Move wdParagraph, -1        Selection.TypeText "表格X"        Selection.Extend        '/字体格式        With Selection.Range.Font            .Color = -16777216            .NameFarEast = "宋体"            .Size = 10 '字号 四号            .Bold = 0 '加粗为1，不加粗为0        End With        With Selection.ParagraphFormat            .LineSpacing = 20 '行间距20磅            .Alignment = wdAlignParagraphCenter '居中显示        End With    NextEnd Sub

Sub 向表格末尾插入内容并居中()    '将表格内容调整为上下，左右居中    For Each oTable In oDoc.Tables        oTable.AutoFitBehavior (wdAutoFitWindow)               '根据窗口调整内容        oTable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter    '水平居中        oTable.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter    '垂直居中        oTable.Rows.Alignment = wdAlignRowCenter               '表格整体居中    NextEnd Sub

Sub test()  With Selection    .GoTo wdGoToPage, , 2    .Bookmarks("\Page").Range.Tables(2).Select  End WithEnd Sub