欢迎来到天天文库
浏览记录
ID:40034453
大小:394.00 KB
页数:70页
时间:2019-07-18
《循环在WORD+VBA中的应用》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、循环在WORDVBA中的应用循环在WORDVBA中的应用[001]在活动文档的开头插入一张4列3行的表格。ForEach...Next结构用于循环遍历表格中的每个单元格。在ForEach...Next结构中,InsertAfter方法用于将文字添至表格单元格(单元格1、单元格2、以此类推)。SubCreateNewTable()DimdocActiveAsDocumentDimtblNewAsTableDimcelTableAsCellDimintCountAsIntegerSetdocActive=Acti
2、veDocumentSettblNew=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:=wdTable
3、FormatColorful2,_ApplyBorders:=True,ApplyFont:=True,ApplyColor:=TrueEndSub[002]在活动文档中第一张表格的第一个单元格中插入文字。Cell方法返回单独的Cell对象。Range属性返回一个Range对象。Delete方法用于删除现有的文字,而InsertAfter方法用于插入文字“Cell1,1”。SubInsertTextInCell()IfActiveDocument.Tables.Count>=1ThenWithActiveDo
4、cument.Tables(1).Cell(Row:=1,Column:=1).Range.Delete.InsertAfterText:="Cell1,1"EndWithEndIfEndSub[003]返回并显示文档中第一张表格的第一行中每个单元格的内容。SubReturnTableText()DimtblOneAsTableDimcelTableAsCell第70页共70页循环在WORDVBA中的应用DimrngTableAsRangeSettblOne=ActiveDocument.Tables(1)F
5、orEachcelTableIntblOne.Rows(1).CellsSetrngTable=ActiveDocument.Range(Start:=celTable.Range.Start,_End:=celTable.Range.End-1)MsgBoxrngTable.TextNextcelTableEndSubSubReturnCellText()DimtblOneAsTableDimcelTableAsCellDimrngTableAsRangeSettblOne=ActiveDocument.T
6、ables(1)ForEachcelTableIntblOne.Rows(1).CellsSetrngTable=celTable.RangerngTable.MoveEndUnit:=wdCharacter,Count:=-1MsgBoxrngTable.TextNextcelTableEndSub[004]在活动文档的开头插入用制表符分隔的文本,然后将这些文本转换为表格。SubConvertExistingText()WithDocuments.Add.Content.InsertBefore"one"&
7、vbTab&"two"&vbTab&"three"&vbCr.ConvertToTableSeparator:=Chr(9),NumRows:=1,NumColumns:=3EndWithEndSub[005]定义一个数组,该数组的元素个数等于文档中第一张表格(假定为OptionBase1)中的单元格数。ForEach...Next结构用于返回每个表格单元格的内容,并将文字指定给相应的数组元素。SubReturnCellContentsToArray()DimintCellsAsIntegerDimcelTa
8、bleAsCellDimstrCells()AsStringDimintCountAsIntegerDimrngTextAsRangeIfActiveDocument.Tables.Count>=1ThenWithActiveDocument.Tables(1).RangeintCells=.Cells.CountReDimstrCells(intCells)intCount=1第70页共70页循环
此文档下载收益归作者所有