Word VBA常用代碼合集

sub testSet tb = ActiveDocument.Tables.Add(Selection.Range, 1, 3)tb.Style?=?"網(wǎng)格型"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 設(shè)置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 判斷光標(biāo)是否在表格里()    If Selection.Information(wdWithInTable) = True Then        MsgBox "光標(biāo)在表格里"    Else        MsgBox "光標(biāo)不在表格里"    End IfEnd?Sub

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

Sub 向表格末尾插入內(nèi)容并居中()    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 '字號(hào) 四號(hào)            .Bold = 0 '加粗為1，不加粗為0        End With        With Selection.ParagraphFormat            .LineSpacing = 20 '行間距20磅            .Alignment = wdAlignParagraphCenter '居中顯示        End With    NextEnd?Sub

Sub 向表格末尾插入內(nèi)容并居中()    '將表格內(nèi)容調(diào)整為上下，左右居中    For Each oTable In oDoc.Tables        oTable.AutoFitBehavior (wdAutoFitWindow)               '根據(jù)窗口調(diào)整內(nèi)容        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