Word VBA常用代码合集-迅闻网

都说写VBA像累积木，除了核心部分的循环逻辑思路，其余都是再堆砌代码。这篇文章就罗列一下我在写WordVBA程序中，常用的一些代码。
今天先介绍操作Word表格部分。
新建表格
在光标位置，新建一个1行3列的表格，边框线设置为实线。
subtestSettb=ActiveDocument.Tables.Add(Selection.Range,1,3)tb.Style=”网格型”endsub
?向表格里面写入值
两种办法
Sub第一种写入办法()DimtAsTableSett=ActiveDocument.Tables(1)t.Cell(1,1).Range=1EndSubSub第二种写入办法()Sett=ActiveDocument.Tables(1).RangeFori=1Tot.Cells.Countt.Cells(i).Range=iNextEndSub
?设置表格列宽
设置表格的列宽，其间需要留意单位的转换。厘米和磅。
Sub设置word表格的宽度()DimtblAsTableSettbl=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)EndSub

Word
?判别光标是否在表格中
使用的是information办法判别
Sub判别光标是否在表格里()IfSelection.Information(wdWithInTable)=TrueThenMsgBox”光标在表格里”ElseMsgBox”光标不在表格里”EndIfEndSub
?表格中刺进多行
Sub表格最终刺进2行()DimmyTableAsTableSetmyTable=ActiveDocument.Tables(1)myTable.Rows.Last.SelectSelection.InsertRowsBelow2EndSub
?向表格结尾刺进内容并居中
使用move办法，移动光标，写内容
Sub向表格结尾刺进内容并居中()DimtblAsWord.TableForEachtblInSelection.Range.Tablestbl.Range.Cells(tbl.Range.Cells.Count).SelectSelection.MovewdCharacter,2Selection.TypeParagraphSelection.MovewdParagraph,-1Selection.TypeText”表格X”Selection.Extend’/字体格局WithSelection.Range.Font.Color=-16777216.NameFarEast=”宋体”.Size=10’字号四号.Bold=0’加粗为1，不加粗为0EndWithWithSelection.ParagraphFormat.LineSpacing=20’行间距20磅.Alignment=wdAlignParagraphCenter’居中显现EndWithNextEndSub
?表格居中
内容居中，表格全体居中
Sub向表格结尾刺进内容并居中()’将表格内容调整为上下，左右居中ForEachoTableInoDoc.TablesoTable.AutoFitBehavior(wdAutoFitWindow)’根据窗口调整内容oTable.Range.ParagraphFormat.Alignment=wdAlignParagraphCenter’水平居中oTable.Range.Cells.VerticalAlignment=wdCellAlignVerticalCenter’垂直居中oTable.Rows.Alignment=wdAlignRowCenter’表格全体居中NextEndSub
?选中第二页第一个表格
Subtest()WithSelection.GoTowdGoToPage,,2.Bookmarks(“\Page”).Range.Tables(2).Sel