循环在word vba中的应用

循环在word vba中的应用

ID:8514962

大小:222.00 KB

页数:64页

时间:2018-03-30

循环在word vba中的应用_第1页
循环在word vba中的应用_第2页
循环在word vba中的应用_第3页
循环在word vba中的应用_第4页
循环在word vba中的应用_第5页
资源描述:

《循环在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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。