怎样用VB在Word中区分段落，以及修改字体、颜色、大小、居中、下划、斜体等，在线等待中
怎样用VB在Word中区分段落，以及修改字体、颜色、大小、居中、下划、斜体等，并查找出特定文字以便修改 问题点数：100、回复次数：20Top
1 楼AxeLion（真我的风采）回复于 2002-03-06 09:47:56 得分 0
没有人愿意说吗？Top
2 楼AxeLion（真我的风采）回复于 2002-03-06 10:02:56 得分 0
UPTop
3 楼donotbesilent（惊叹不已）回复于 2002-03-06 10:27:05 得分 0
在Word中录制一段宏,看看代码就知道了,和VB中的代码差不多的.
Top
4 楼AxeLion（真我的风采）回复于 2002-03-06 10:34:44 得分 0
to donotbesilent(惊叹不已) :
能说的详细一点吗？是帮我一个朋友问的，我用的是C++ Builder,不怎么懂VBA.Top
5 楼yangzhaoyu（老妖）回复于 2002-03-06 10:36:02 得分 0
Selection.Find.Execute "a" 'find "a" from startposition
Selection.Font.Color = wdColorRed 'set color of font
Selection.Font.Size = 12 'set size of font
Selection.Font.Name = "Arial Black" 'set name of font
Top
6 楼yangzhaoyu（老妖）回复于 2002-03-06 10:40:59 得分 0
Selection.ParagraphFormat.Alignment = _
wdAlignParagraphCenter 'set center
Selection.Font.Underline = wdUnderlineSingle'set underline
Selection.InsertBreak Type:=wdSectionBreakContinuous'set break of section
Top
7 楼AxeLion（真我的风采）回复于 2002-03-06 10:45:59 得分 0
to yangzhaoyu(老妖):
多谢了，现在明白许多了，能说一下怎么选择标题和文章中的特定文字吗？Top
8 楼AxeLion（真我的风采）回复于 2002-03-06 10:48:08 得分 0
to yangzhaoyu(老妖):
刚才Selection.InsertBreak Type:=wdSectionBreakContinuous 'set break of section 这句没看懂，选择文字现在知道了
Top
9 楼yangzhaoyu（老妖）回复于 2002-03-06 10:54:50 得分 0
Selection.Find.Execute "a" 'find "a" from startposition
If Selection.Style = ActiveDocument.Styles("标题1") Then 'if the type of selection is 标题1
Selection.Font.Color = wdColorRed 'set color of font
Selection.Font.Size = 12 'set size of font
Selection.Font.Name = "Arial Black" 'set name of font
end ifTop
10 楼AxeLion（真我的风采）回复于 2002-03-06 10:59:14 得分 0
怎么老是：贴子回复次数大于跟给分次数Top
11 楼yangzhaoyu（老妖）回复于 2002-03-06 11:06:35 得分 0
i dont knowTop
12 楼AxeLion（真我的风采）回复于 2002-03-06 11:06:56 得分 0
可以给分了，但是If Selection.Style = ActiveDocument.Styles( "标题1 ") Then 出错了，我改成If Selection.Style = ActiveDocument.Styles("正文") Then 可以运行，但是正文却没有改变Top
13 楼AxeLion（真我的风采）回复于 2002-03-06 11:09:13 得分 0
系统出错说：集合所要求的成员不存在
但是WORD中我加了标题1属性的文字Top
14 楼yangzhaoyu（老妖）回复于 2002-03-06 11:10:00 得分 0
我这里可以运行
给出你的程序看一看
Top
15 楼AxeLion（真我的风采）回复于 2002-03-06 11:13:15 得分 0
谢谢yangzhaoyu(老妖) ，现在可以修改正文了，但是标题1还是出错，还有怎样查找某一段的特定文字，例如第2段的特定文字？Top
16 楼yangzhaoyu（老妖）回复于 2002-03-06 11:15:57 得分 100
请用
Debug.Print Selection.Style
找出真确的名字
Top
17 楼AxeLion（真我的风采）回复于 2002-03-06 11:31:46 得分 0
哎，低级错误，现在可以了，要把标题1=>标题 1Top
18 楼yangzhaoyu（老妖）回复于 2002-03-06 11:34:16 得分 0
第2段的特定文字？一时想不出来Top
19 楼AxeLion（真我的风采）回复于 2002-03-06 11:41:55 得分 0
怎样查找某一段的特定文字，例如第2段的特定文字“AbC"？Top
20 楼AxeLion（真我的风采）回复于 2002-03-06 11:43:47 得分 0
to:yangzhaoyu(老妖)
多谢你了，分全给你，如果想出来，告诉我一声，不胜感激！Top
