在EXCEL中用VBA处理WORD表格常规属性文档格式.docx

在EXCEL中用VBA处理WORD表格常规属性文档格式.docx

《在EXCEL中用VBA处理WORD表格常规属性文档格式.docx》由会员分享，可在线阅读，更多相关《在EXCEL中用VBA处理WORD表格常规属性文档格式.docx（28页珍藏版）》请在冰豆网上搜索。

bgS=dkDOC.Tables.Count'

当前文档中的表格总数

dkDOC.Close'

关闭文档

SetdkDOC=Nothing'

释放存储空间

SetwdWORD=Nothing'

MsgBoxChr（10）&

Dir（dqM）&

文档中共有"

&

bgS&

个表格！

"

,"

计算WORD表格个数"

EndSub

提示：

嵌入式表格如WORD文档中插入的EXCEL表格、表格中插入的表格。

计算表格个数的代码格式——文档对象.Tables.Count

上述方法不能计算WORD文档中的嵌入式表格个数。

2．计算WORD文档中各个表格的行/列数

在EXCEL中，遍历WORD文档“成绩表.doc”中的表格，计算表格的行数和列数。

Sub计算指定WORD文档中表格行列数（）

Forg=1TobgS'

循环表格

WithdkDOC.Tables（g）'

逐个表格计算

hs=.Rows.Count'

行数

ls=.Columns.Count'

列数

MsgBoxChr（10）&

文档共有表格"

个"

_

Chr（10）&

第"

g&

个表格有"

hs&

行"

ls&

列"

计算WORD表格行列数"

计算信息提示

EndWith

Nextg

计算行数代码格式——文档对象.表格对象.Rows.Count

计算列数代码格式——文档对象.表格对象.Columns.Count

上述方法不能计算嵌入式表格的行/列数。

3．选定WORD表格的指定区域

⑴选定整个表格

Sub选择WORD文档的指定表格整体（）

wdWORD.Visible=True'

窗口可见

'

wdWORD.ActiveDocument.Tables

（1）.Select'

选择整个表格

wdWORD.ActiveDocument.Tables

（1）.Range.Select'

wdWORD.Quit'

关闭新建文档窗口

⑵选定一个单元格

Sub选择WORD表格的第一个单元格（）

SetwdBG=wdWORD.ActiveDocument.Tables

（1）'

创建表格对象

wdBG.Cell（1,1）.Select'

选择第一个单元格

wdBG.Cell（1,1）.Range.Select'

SetwdBG=Nothing'

⑶选定表格最后一个单元格

Sub选择WORD表格的最后一个单元格（）

hs=wdWORD.ActiveDocument.Tables

（1）.Rows.Count'

ls=wdWORD.ActiveDocument.Tables

（1）.Columns.Count'

wdBG.Cell（hs,ls）.Range.Select'

选择最后一个单元格

注意：

一个表格的最后一个单元格由表格的最后一行hs和最后一列ls围成的一个方格。

所以表格最后一个单元格的代码格式是.Cell（hs,ls）。

⑷选定指定行/列

Sub选择WORD表格指定行（）

wdWORD.ActiveDocument.Tables

（1）.Rows（3）.Select'

选择第3行

wdWORD.ActiveDocument.Tables

（1）.Rows（3）.Range.Select'

Sub选择WORD表格指定列（）

wdWORD.ActiveDocument.Tables

（1）.Columns（3）.Select'

选择第3列

【提示】

选择最后一行

wdWORD.ActiveDocument.Tables

（1）.Rows（hs）.Select

选择最后一列

wdWORD.ActiveDocument.Tables

（1）.Columns（ls）.Select

⑸选定WORD表格中任意连续区域

①选择连续行

Sub选择WORD表格指定的连续行（）

SetwDoc=wdWORD.Documents.Open（dqM）'

SetwBG=wDoc.Tables

（1）'

定义表格变量

wDoc.Range（wBG.Cell（2,1）.Range.Start,wBG.Cell（wBG.Rows.Count,wBG.Columns.Count）.Range.End）.Select'

选择第2行到最后一行

SetwBG=Nothing'

SetwDoc=Nothing'

②选择任意列

Sub选择WORD表格任意指定的连续列（）

wDoc.Range（wBG.Cell（1,4）.Range.Start,wBG.Cell（wBG.Rows.Count,7）.Range.End）.Select'

选择第4列到第7列

说明：

列没有Range对象属性。

所以在选择连续列时不能使用如下代码：

wDoc.Range（wBG.Columns（4）.Range.Start,wBG.Columns（7）.Range.End）.Select'

③选择任意连续单元格区域

Sub选择WORD表格任意指定的连续单元格区域（）

wDoc.Range（wBG.Cell（5,4）.Range.Start,wBG.Cell（7,7）.Range.End）.Select'

选择第5行4列到第7行7列构成的单元格区域

【小结】

选择WORD表格中的任意连续区域，关键是确定起始位置和终止位置。

选择任意连续单元格区域的关键代码格式如下：

文档对象.Range（表格对象.Cell（起始行,起始列）.Range.Start,表格对象.Cell（终止行,终止列）.Range.End）.Select

4．设置WORD表格的单元格格式

设置WORD表格的单元格格式，包括单元格中的文本对齐格式和文字的字体、字号、是否加粗等格式。

WORD表格单元格中的文本的对齐格式，是指段落在水平方向的对齐方式和在垂直方向的对齐方式。

所以在设置单元格的对齐方式时，一要设置单元格中的文本段落在水平方向的对齐方式即左对齐、居中、右对齐，二要设置文本在垂直方向的对齐方式即靠上、居中、靠下。

【问题】

以WORD文档“成绩表.doc”为例，设置标题行各单元格数据“中部居中（即水平居中且垂直居中）”、“华文新魏”、字号“12”、“加粗”。

Sub设置WORD表格的单元格格式（）

WithwdBG.Rows

（1）.Range'

表格第1行

.Font.Bold=True'

加粗

.Font.Size=12'

字号

.Font.Name="

华文新魏"

字体

.ParagraphFormat.Alignment=1'

水平居中

.Cells.VerticalAlignment=1'

垂直居中

EndWith

单元格数据居中即WORD程序菜单命令“表格/单元格对齐方式”的“中部居中”，指水平居中和垂直居中。

代码如下：

水平居中——单元格对象.ParagraphFormat.Alignment=1

垂直居中——单元格对象.Cells.VerticalAlignment=1

单元格对齐方式常量一览表

名称

常量代码

赋值

靠上两端对齐

wdAlignParagraphJustify

3

wdCellAlignVerticalTop

靠上居中

wdAlignParagraphCenter

1

靠上右对齐

wdAlignParagraphRight

2

中部两端对齐

wdAlignParagraphJustify

wdCellAlignVerticalCenter

中部居中

中部右对齐

靠下两端对齐

wdCellAlignVerticalBottom

靠下居中

靠下右对齐

注意哦，表中的常量代码，在EXCEL中操作WORD时，由于后期绑定原因，必须用对应的赋值取代方可体现效果！

5．设置WORD表格的对齐格式

在WORD文档中的表格对齐，主要是指表格在页面水平方向的对齐，即左对齐、居中、右对齐。

对应WORD程序菜单命令“表格/表格属性/表格”中的三种对齐方式。

Sub设置WORD文档中的表格对齐（）

\放假通知.doc"

dkDOC.Tables

（1）.Rows.Alignment=1'

6．在WORD表格中插入（删除）行/列

⑴插入行/列

与当前操作的EXCEL文件保存在同一位置的WORD文档“放假通知.doc”中，第一个表格有2行10列，在表格选定行的上/下方或者左/右侧插入新行/列（一行/列或多行/列）。

①在指定行的上/下插入行

Sub在指定行的上下插入行（）

SetwApp=CreateObject（"

）'

创建WORD对象

SetwDoc=wApp.documents.Open（dqM）'

wApp.Visible=True'

wDoc.Tables

（1）.Rows

（2）.Select'

选择指定行（第2行，可以根据表格实际行数修改此数字值）

wDoc.Application.Selection.InsertRowsAbove3'

指定行上方插入3行

wDoc.Application.Selection.InsertRowsBelow3'

指定行下方插入3行

Zh=wDoc.Tables

（1）.Rows.Count'

计算插入新行后的表格总行数

MsgBox"

成功新插入3行,当前表格共有"

Zh&

行"

在指定列的上下插入行"

wDoc.CloseTrue

wApp.Quit

SetwApp=Nothing

SetwDoc=Nothing

wDoc.Application.Selection.InsertRowsAbove3——在所选择行的上方新插入3行。

如果执行代码——wDoc.Application.Selection.InsertRowsBelow3，则是在所选择行的下方新插入3行。

②在指定列的左/右插入列

Sub在指定列的左右插入列（）

wApp.Visible=T