循环在word vba中的应用

《循环在word vba中的应用》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、循环在WORDVBA中的应用[001]在活动文档的开头插入一张4列3行的表格。ForEach...Next结构用于循环遍历表格中的每个单元格。在ForEach...Next结构中，InsertAfter方法用于将文字添至表格单元格（单元格1、单元格2、以此类推）。SubCreateNewTable()DimdocActiveAsDocumentDimtblNewAsTableDimcelTableAsCellDimintCountAsIntegerSetdocActive=ActiveDocumentSet

2、tblNew=docActive.Tables.Add(_Range:=docActive.Range(Start:=0,End:=0),NumRows:=3,_NumColumns:=4)intCount=1ForEachcelTableIntblNew.Range.CellscelTable.Range.InsertAfter"Cell"&intCountintCount=intCount+1NextcelTabletblNew.AutoFormatFormat:=wdTableFormatColorf

3、ul2,_ApplyBorders:=True,ApplyFont:=True,ApplyColor:=TrueEndSub[002]在活动文档中第一张表格的第一个单元格中插入文字。Cell方法返回单独的Cell对象。Range属性返回一个Range对象。Delete方法用于删除现有的文字，而InsertAfter方法用于插入文字“Cell1,1”。SubInsertTextInCell()IfActiveDocument.Tables.Count>=1ThenWithActiveDocument.Tabl

4、es(1).Cell(Row:=1,Column:=1).Range.Delete.InsertAfterText:="Cell1,1"EndWithEndIfEndSub[003]返回并显示文档中第一张表格的第一行中每个单元格的内容。SubReturnTableText()DimtblOneAsTableDimcelTableAsCellDimrngTableAsRangeSettblOne=ActiveDocument.Tables(1)ForEachcelTableIntblOne.Rows(1).C

5、ellsSetrngTable=ActiveDocument.Range(Start:=celTable.Range.Start,_End:=celTable.Range.End-1)MsgBoxrngTable.TextNextcelTableEndSubSubReturnCellText()DimtblOneAsTableDimcelTableAsCellDimrngTableAsRangeSettblOne=ActiveDocument.Tables(1)ForEachcelTableIntblOne

6、.Rows(1).CellsSetrngTable=celTable.RangerngTable.MoveEndUnit:=wdCharacter,Count:=-1MsgBoxrngTable.TextNextcelTableEndSub[004]在活动文档的开头插入用制表符分隔的文本，然后将这些文本转换为表格。SubConvertExistingText()WithDocuments.Add.Content.InsertBefore"one"&vbTab&"two"&vbTab&"three"&vbCr

7、.ConvertToTableSeparator:=Chr(9),NumRows:=1,NumColumns:=3EndWithEndSub[005]定义一个数组，该数组的元素个数等于文档中第一张表格（假定为OptionBase1）中的单元格数。ForEach...Next结构用于返回每个表格单元格的内容，并将文字指定给相应的数组元素。SubReturnCellContentsToArray()DimintCellsAsIntegerDimcelTableAsCellDimstrCells()AsStrin

8、gDimintCountAsIntegerDimrngTextAsRangeIfActiveDocument.Tables.Count>=1ThenWithActiveDocument.Tables(1).RangeintCells=.Cells.CountReDimstrCells(intCells)intCount=1ForEachcelTableIn.CellsSetrngText=celTable.Ran