守柔WORD-VBA讲座[2005-9-13日更新]

konggs

学了老大的三课

我试做了一个常用的排版事例，可第三段，运行不了，帮我看看，好吗？

Sub 三课试做() Dim firstrange As Range, centrange As Range, endrange As Range, n As Integer, b As Integer Set firstrange = ActiveDocument.Paragraphs(1).Range '设置第一段的区域为firstrange With firstrange .Font.Size = 22 .Font.Bold = True .Font.Name = "黑体" .ParagraphFormat.Alignment = wdAlignParagraphCenter '居中对齐 .ParagraphFormat.LineUnitBefore = 0.5 '段前0.5行距 .ParagraphFormat.LineUnitAfter = 1.5 '段前1.5行距 End With '--------------------- For n = 2 To ActiveDocument.Paragraphs.Count - 1 '在第二段与倒数第二段中循环 Set centrange = ActiveDocument.Paragraphs(n).Range With centrange .Font.Size = 14 .Font.Name = "仿宋_GB2312" .ParagraphFormat.CharacterUnitFirstLineIndent = 2 '首行缩进二个字符 .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle '单倍行距 .ParagraphFormat.Alignment = wdAlignParagraphJustify '对齐方式两端对齐 End With Next '--------------------- Set endrange = activdedocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range '设置最后一段的区域为endrange With endrange .Font.Size = 14 .Font.Name = "宋体" .ParagraphFormat.Alignment = wdAlignParagraphRight '对齐方式右对齐 .ParagraphFormat.LineUnitBefore = 3 '段前距3行距 End With End Sub

守柔

TO 孔兄，请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-7-30 15:47:17 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub 三课试做() Dim FirstRange As Range, CentRange As Range, LastRange As Range With ActiveDocument Set FirstRange = .Paragraphs.First.Range '设置第一段的区域为firstrange '等同Set FirstRange = .Paragraphs(1).Range With FirstRange .Font.Size = 22 .Font.Bold = True .Font.Name = "黑体" .ParagraphFormat.Alignment = wdAlignParagraphCenter '居中对齐 .ParagraphFormat.LineUnitBefore = 0.5 '段前0.5行距 .ParagraphFormat.LineUnitAfter = 1.5 '段前1.5行距 End With Set CentRange = .Range(.Paragraphs(2).Range.Start, .Paragraphs.Last.Range.Start) With CentRange .Font.Size = 14 .Font.Name = "仿宋_GB2312" .ParagraphFormat.CharacterUnitFirstLineIndent = 2 '首行缩进二个字符 .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle '单倍行距 .ParagraphFormat.Alignment = wdAlignParagraphJustify '对齐方式两端对齐 End With Set LastRange = .Paragraphs.Last.Range '设置最后一段的区域为LastRange With LastRange .Font.Size = 14 .Font.Name = "宋体" .ParagraphFormat.Alignment = wdAlignParagraphRight '对齐方式右对齐 .ParagraphFormat.LineUnitBefore = 3 '段前距3行距 End With End With End Sub '----------------------

'可以使用样式更好,另外,象这样的对象变量,通常定义一个MyRange 就可以了,每次刷新其Range对象范围,可以减少内存调用(三个变量与一个变量,所占内存是不一样的)

[此贴子已经被作者于2005-7-30 15:46:15编辑过]

konggs

再问：“.Paragraphs.Last.Range.Start”这个的字面意思是最后段落的开始。从运行来看则是倒数第二段的未尾？

一个是开始，一个是未尾？我不能理解？老大，指点一下！

还有一个疑问，放在附件中！这个问题我已想了很久，就是想不通。请老大，明示。

gKBQPLAf.rar (52.86 KB, 下载次数: 89)

2005-7-30 16:35 上传

点击文件名下载附件

[此贴子已经被作者于2005-7-30 16:36:02编辑过]

守柔

答复孔兄:

"我们进入WORD DOCUMNT对象的三个重要事件: 注意,DOCUMENT对象仅隶属于THISDOCUMENT类模块中,也就是当前工程下的"THISDOCUMENT"模块,它是一个类模块.而我们通常录制宏时,WORD会自动新建一个模块,它是标准模块."

第一个问题:

1、“它是一个类模块”？是否就是箭头指的thisdocument。底下不是有类模块吗？

这个类模块同底下的类模块同属类模块,但Thisdocument类模块是WORD自带的,而插入/模块/类模块,是用户向VBE工程添加的,两者不同.THISDOCUMENT类模块也可以用EXCEL中的SHEET和WORKBOOK的类模块同样理解.这是<守柔WORD编程代码集>中关于该模块的类型数据:

Select Case Avs.Type

Case 1

ComType = "标准模块"

Case 2

ComType = "类模块"

Case 3

ComType = "用户窗体"

Case 100

ComType = "ThisDocument"

Case Else

ComType = "未知模块"

End Select

2、“隶属于thisdocument类模块”，是否就是箭头指的类模块。

标准模块又是何意？

由于目前我也没有找到更适合的解释理论依据，以下是一些

模块基本上是由声明、语句和过程组成的集合，它们作为一个已命名的单元存储在一起，对 Microsoft Visual Basic代码进行组织。Microsoft标准模块 （标准模块：在该模块中，可以放置希望供WORD文档的其他过程使用的 Sub 和 Function 过程。）和类模块 （类模块：可以包含新对象的定义的模块。一个类的每个实例都新建一个对象。在模块中定义的过程成为该对象的属性和方法。类模块可以单独存在，也可以与窗体和报表一起存在。）。

关于这些情况的探讨，可以参见：http://club.excelhome.net/dispbbs.asp?boardid=2&star=2&replyid=47630&id=22237&skin=0&page=1

3、“自动新建一个模块,它是标准模块”，是否就是箭头指的newmacros，还是上一层次的“模块”。

上层次的“模块”相当于一个集合对象，而每个NewMacros，则是一个标准模块，也就是“模块”的一个元素。

4：“.Paragraphs.Last.Range.Start”这个的字面意思是最后段落的开始。从运行来看则是倒数第二段的未尾？

一个是开始，一个是未尾？我不能理解？老大，指点一下！

在下一讲中，我会详细讲述RANGE对象。这里简单说一下，RANGE对象是一个连续对象，有起始位置和结束位置构成一个区域，在这个区域中的由每一个字构成，它是在运行状态下存在的一个对象。比如说，光标位置，其SELECTION.START=SELECTION.END,对于段落而言,回车(段落标记)意味着旧段落的终止和新段落的开始,旧段落终止于段落标记之后,而新旧段则开始于段落标记之后,两者的值是一致的.

konggs

谢谢老大的回复，看来我又要好好研究研究了。有问题再请教。

有时候，我是不是很烦？(别的会员不问，就我问。)[em24]

是的话，请老大原谅！[em27]

布衣铁剑

真是不好意思,这么好的教程,小弟居然才看到．柔兄辛苦了,虽然我WORD用的少,但是VBA是一定要学的,谢谢!

我也希望能用使用word格式做说明,方便打印．

支持柔兄版主!

janeyb

我也想好好学学,不知WORD能否做成这种形式,比如说,我输入产品的名称,就把该产品的工序过程自动生成.

不知可行吗?

jeep869

热烈欢迎!!!!!!!!!!!!!!!!111

办公之星

最近忙得不可开交，才看到守柔的教程。

janeyb

守柔版主,我想了解WORD里里关于表格的VBA,即菜单表格里的主要功能,你能讲讲吗?