vb源代码 vb初学者编程代码大全

子文档初始化()& # 39;文档格式初始化

选择。整个故事& # 39;选择word中的所有文档。

选择。ClearFormatting & # 39文档格式清除

选择。range . highlight colorindex = wdNoHighlight & # 39;突出显示文本取消

有选择。段落& # 39;段落设置

。alignment = wdAlignParagraphLeft & # 39;左对齐

。LineSpacingRule = wdLineSpaceExactly & # 39;固定行距28.8

。行距= 28.8

。IndentFirstLineCharWidth 3 & # 39第一行缩进2个字符

以…结尾

有选择。字体& # 39;字体设置

。Name = & # 34仿宋_ GB2312 & # 34'字体

。Size = 16 & # 39三号字体

。ColorIndex = wdBlack & # 39黑色

以…结尾

末端接头

子标题正文设置()

有选择。页面设置& # 39;页面设置

。TopMargin =厘米topoints(3.7)& # 39;书眉

。BottomMargin =厘米点(3.5)& # 39;底部边距

。left margin = centdinterstopoints(2.8)& # 39;左端

。right margin = centdinterstopoints(2.6)& # 39;右边距

'。page width = centdinterstopoints(18.2)& # 39;页面宽度

'。page height = centdinterstopoints(25.7)& # 39;页面高度

以…结尾

'字体设置

Dim title_reg,f_reg,s_reg,th_reg,fr_reg,k,mh,strA$

设置myRange = ActiveDocument。内容

'获取文档内容的正则表达式

strA = myRange。文本

set title _ reg = CreateObject(& # 34;vbscript.regexp & # 34)

set f _ reg = CreateObject(& # 34;vbscript.regexp & # 34)

set s _ reg = CreateObject(& # 34;vbscript.regexp & # 34)

set th _ reg = CreateObject(& # 34;vbscript.regexp & # 34)

选择。HomeKey单位:= wdStory & # 39光标返回到文章的开头。

t = 0

标题_注册。模式= & # 34;\\ r \\ r & # 34

'[\\ r]除换行符以外的所有字符

标题_注册。全局=真

Set Title = title_reg。执行(strA)

有选择。发现

。清除格式

。文本=标题。项目(0)

。向前执行:=True

选择。HomeKey单位:=wdStory,Extend:=wdExtend

以…结尾

'用两个换行符从头开始选择所有段落。

有选择。字体

。Name = & # 34创始人宋晓标简体& # 34;

。尺寸= 22

。ColorIndex = wdBlack

以…结尾

有选择。段落& # 39;设置行距

。first line indent = centdinterstopoints(0)& # 39;取消第一行的缩进

。alignment = wdAlignParagraphCenter & # 39;段落居中

。LineSpacingRule = wdLineSpaceExactly & # 39;固定行距

。行距=字。应用程序. LinesToPoints(2.3)& # 39;行距是行距的2.3倍。一行间距=12。

以…结尾

'下面是设置一级标题

t1 = 0 & # 39将t1初始化为一级标题是否为是、是、是、否、是的标志。

选择。HomeKey单位:=wdStory

联邦区。模式= & # 34;(1) | 2, | 3, | 4, | 5, | 6, | 7, | 8, | 9, | 10, | 11, | 12, | 13, | 14, | 15, | 16, | 17, | 18, | 19, | 20, | 21.

联邦区。全局=真

设置f_titles = f_reg。执行(strA)

如果f_titles。Count = 0那么& # 39;如果一级标题是一个是,两个是,三个是,则匹配。

联邦区。模式= & # 34;(1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | ])*。"

设置f_titles = f_reg。执行(strA)

t1 = 1

如果…就会结束

对于f_titles中的每个f_title

有选择。发现

。清除格式

。Text = f _标题。价值

调试。打印& # 34;一级标题遍历项目:& # 34;;f_title。价值

。向前执行:=True

以…结尾

有选择。字体

。Name = & # 34Bold & # 34

。Size = & # 3416"

。ColorIndex = wdBlack

以…结尾

选择。HomeKey单位:=wdStory

然后

'下面是设置二级标题。

如果t1 = 0,那么& # 39;p判断一级标题是不是一、二、三的yes标志。如果是0,不是一、二、三是,然后执行;如果不是,则不执行。

t2 = 0

选择。HomeKey单位:=wdStory

s_reg全局=真

s_reg模式= & # 34;(1)|(2)|(3)|(4)|(5)|(6)|(7)|(8)|(9)|(10)|(11)|(12)|(13)|(14)|(15)|(16)\\ r:])*[.| \\ r:]& # 34;'排除句点和段落符号,查找全部,并在找到句点或段落符号时停止。

Set s_titles = s_reg。执行(strA)

如果s_titles。Count = 0那么& # 39;如果第二个标题是一个是、两个是和三个是,则匹配成功。

s_reg模式= & # 34;(1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | ])*。"

Set s_titles = s_reg。执行(strA)

t2 = 1

如果…就会结束

对于s_titles中的每个s_title

有选择。发现

。清除格式

。Text = s_title。价值

调试。打印& # 34;二级标题遍历项目:& # 34;;s_title。价值

。向前执行:=True

以…结尾

有选择。字体

。Name = & # 34楷书& # 34;

。Size = & # 3416"

。ColorIndex = wdBlack

。粗体=真

以…结尾

选择。HomeKey单位:=wdStory

然后

如果…就会结束

'下面是设置三级标题。

如果t2 = 0,则

选择。HomeKey单位:=wdStory

th_reg。全局=真

th_reg。模式= & # 34;\\r\\d{1,2}。([^。])*。"

设置th_titles = th_reg。执行(strA)

如果th_titles。Count = 0那么& # 39;如果三级标题是一、二、三是,则匹配。

th_reg。模式= & # 34;(1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | ])*。"

设置th_titles = th_reg。执行(strA)

如果…就会结束

对于第个标题中的每个第个标题

有选择。发现

。清除格式

。Text = th_title。价值

调试。打印& # 34;三级标题遍历项目:& # 34;;th_title。价值

。向前执行:=True

以…结尾

有选择。字体

。粗体=真

。ColorIndex = wdBlack

以…结尾

选择。HomeKey单位:=wdStory

然后

如果…就会结束

末端接头

子页码设置()

ActiveDocument第(1)节。footers(wdHeaderFooterPrimary). page numbers . add page number alignment:= wdAlignPageNumberCenter,FirstPage:=True

使用ActiveDocument。第(1)节。页脚(wdHeaderFooterPrimary)& # 39;进入页脚编辑状态。

. Range.Font.Size = 15

. range . font . name = & # 34;仿宋& # 34;

. Range.Collapse方向:=wdCollapseEnd

以…结尾

末端接头

子删除标题水平线()

使用ActiveDocument。第(1)节。头(wdHeaderFooterPrimary)。范围& # 39;进入页脚编辑状态。

。删除& # 39;删除标题的内容

. paragraphformat . borders(wdBorderBottom)。LineStyle = wdLineStyleNone & # 39段落底部边框线

以…结尾

末端接头

子文档格式排版()

调用文档初始化

呼叫标题正文设置

呼叫页码设置

呼叫删除标题水平线

末端接头

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。

发表回复

登录后才能评论