当前位置: 文档之家 › 使用VBA操作Word表格
使用VBA操作Word表格
- 格式:doc
- 大小:33.00 KB
- 文档页数:3
下载文档原格式
- 下载提示
- 文本预览
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
写入单元格使用如下代码:
TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter "文本"
上面代码的做用时在curRow行,curColumn列处插入字符“文本”。
其中TableObject为表格对象,如果使用了生成表格中的例子,那么可以用SelfGenTable来替代TableObject。
'折叠文字函数,mLen为折叠前的文字长度,mStr为文字的内容
Dim i As Integer
Dim tmpStr(0 To 1) As String '临时字符串
If Len(mStr) > mLen Then
Do While Len(mStr) > mLen
tmpStr(0) = Left(mStr, mLen)
三、调整单元格对齐方式
水平对齐设置
Selection.ParagraphFormat.Alignment=水平对齐常数(具体的常数可以查看帮助文件的说明)
如何选择单元格?
选定特定单元格
TableObject.Cell(Row:=1,Column:=1).Select’选定单元格1,1
选定行
TableObject.Rows(i).Select’选定第i行
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
选定列
TableObject.Columns(i).Select’选定第i列
选定整个表格
TableObject.Select
首先执行表格元素选择程序,然后再使用Selection.ParagraphFormat.Alignment设置对齐方式。
垂直对齐方式
Selection.Cells.VerticalAlignment=垂直对齐常数
End Function
================================================
下面是一个拆分字符串的代码,当插入表格的文本过长时,可以设定一个长度,超过这个长度就进行回车,这样保证在设定的单元格宽度内能够写下长文本。单元格的高度会自动调整以使文本能完整的显示,这也就是我为什么没有通过代码设置单元格高度的原因。
Private Function FoldText(mLen As Integer, mStr As String) As String
表格的行高请读者以此类推(实际上我还没设置过行高,都用自动生成的就够了)
===============================================
编写操作表格的程序时需要注意,Word表格的行列起始值为1,而不是0。
===============================================
SelfGenTable.Columns(i + 1).PreferredWidth = WidthP(j)
j = j + 1
Next
上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式,这里选择的是百分比列宽,可以根据自己的实际情况选择其他列宽形式,然后再设置相应的数值。
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
.Borders(wdBorderVertical).LineStyle = wdLinபைடு நூலகம்StyleSingle
End With
同样是对Selection进行设置,所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置,这里就不再列举了。
五、调整表格尺寸
下面的代码对一个六列的表格设置宽度,宽度采用百分比宽度,从左至右的宽度百分比依次为:30,10,10,30,10,10:
Dim WidthP(0 To 2) As Integer
Dim j As Integer
dim i as Integer
WidthP(0) = 30
WidthP(1) = 10
mStr = Right(mStr, Len(mStr) - mLen)
tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf
Loop
tmpStr(1) = tmpStr(1) + mStr
Else
tmpStr(1) = mStr
End If
FoldText = tmpStr(1)
WidthP(2) = 10
j = 0
For i = 0 To SelfGenTable.Columns.Count - 1
If j > 2 Then
j = 0
End If
SelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercent
也是首先选择表格元素,可以使单个单元格,单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列,有兴趣的朋友可以自行寻找答案。
四、设置表格边线类型
下面的代码对整个表格的所有边线设置成细实线:
SelfGenTable.Select
With Selection
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
Set SelfGenTable = ActiveDocument.Tables.Add(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns)
End Sub
上面过程的作用是在活动文档的末尾插入一个mRows行,mColumns列的表格。
二、在读写表格中的单元格
使用VBA操作Word表格
一、生成表格
Private Sub CreateTable(mRows As Integer, mColumns)
Dim mRange As Range
Set mRange = ActiveDocument.Range
mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.End
TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter "文本"
上面代码的做用时在curRow行,curColumn列处插入字符“文本”。
其中TableObject为表格对象,如果使用了生成表格中的例子,那么可以用SelfGenTable来替代TableObject。
'折叠文字函数,mLen为折叠前的文字长度,mStr为文字的内容
Dim i As Integer
Dim tmpStr(0 To 1) As String '临时字符串
If Len(mStr) > mLen Then
Do While Len(mStr) > mLen
tmpStr(0) = Left(mStr, mLen)
三、调整单元格对齐方式
水平对齐设置
Selection.ParagraphFormat.Alignment=水平对齐常数(具体的常数可以查看帮助文件的说明)
如何选择单元格?
选定特定单元格
TableObject.Cell(Row:=1,Column:=1).Select’选定单元格1,1
选定行
TableObject.Rows(i).Select’选定第i行
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
选定列
TableObject.Columns(i).Select’选定第i列
选定整个表格
TableObject.Select
首先执行表格元素选择程序,然后再使用Selection.ParagraphFormat.Alignment设置对齐方式。
垂直对齐方式
Selection.Cells.VerticalAlignment=垂直对齐常数
End Function
================================================
下面是一个拆分字符串的代码,当插入表格的文本过长时,可以设定一个长度,超过这个长度就进行回车,这样保证在设定的单元格宽度内能够写下长文本。单元格的高度会自动调整以使文本能完整的显示,这也就是我为什么没有通过代码设置单元格高度的原因。
Private Function FoldText(mLen As Integer, mStr As String) As String
表格的行高请读者以此类推(实际上我还没设置过行高,都用自动生成的就够了)
===============================================
编写操作表格的程序时需要注意,Word表格的行列起始值为1,而不是0。
===============================================
SelfGenTable.Columns(i + 1).PreferredWidth = WidthP(j)
j = j + 1
Next
上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式,这里选择的是百分比列宽,可以根据自己的实际情况选择其他列宽形式,然后再设置相应的数值。
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
.Borders(wdBorderVertical).LineStyle = wdLinபைடு நூலகம்StyleSingle
End With
同样是对Selection进行设置,所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置,这里就不再列举了。
五、调整表格尺寸
下面的代码对一个六列的表格设置宽度,宽度采用百分比宽度,从左至右的宽度百分比依次为:30,10,10,30,10,10:
Dim WidthP(0 To 2) As Integer
Dim j As Integer
dim i as Integer
WidthP(0) = 30
WidthP(1) = 10
mStr = Right(mStr, Len(mStr) - mLen)
tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf
Loop
tmpStr(1) = tmpStr(1) + mStr
Else
tmpStr(1) = mStr
End If
FoldText = tmpStr(1)
WidthP(2) = 10
j = 0
For i = 0 To SelfGenTable.Columns.Count - 1
If j > 2 Then
j = 0
End If
SelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercent
也是首先选择表格元素,可以使单个单元格,单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列,有兴趣的朋友可以自行寻找答案。
四、设置表格边线类型
下面的代码对整个表格的所有边线设置成细实线:
SelfGenTable.Select
With Selection
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
Set SelfGenTable = ActiveDocument.Tables.Add(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns)
End Sub
上面过程的作用是在活动文档的末尾插入一个mRows行,mColumns列的表格。
二、在读写表格中的单元格
使用VBA操作Word表格
一、生成表格
Private Sub CreateTable(mRows As Integer, mColumns)
Dim mRange As Range
Set mRange = ActiveDocument.Range
mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.End
合集下载
相关主题
最新文档
- 饭店包间名字大全
- word无法创建工作文件,请检查临时环境变量
- 自行车健身比赛开幕式讲话词
- 2018乡村医生个人工作总结
- MySQL测试题 SQL
- 合勤NXC5200
- 铁路集中箱空箱调度优化建模案例(案例2)
- 微分几何教学大纲-复旦大学数学科学学院
- 人教版九年级数学上册导学案:24.1.1_圆【精品】
- (整容后办护照用)医院整容证明