WORD宏简单应用解析.docx
- 文档编号:10379811
- 上传时间:2023-02-10
- 格式:DOCX
- 页数:11
- 大小:16.79KB
WORD宏简单应用解析.docx
《WORD宏简单应用解析.docx》由会员分享,可在线阅读,更多相关《WORD宏简单应用解析.docx(11页珍藏版)》请在冰豆网上搜索。
WORD宏简单应用解析
WORD宏的简单应用
一、了解宏2
二、创立空白宏3
三、编写宏代码6
四、创立快捷按钮8
五、代码实例〔以题库一段文字为例〕14
1/17
一、了解宏
我们在word中执行的每一步按键操作,在背后都会执行一串代码,正是这
串代码实现了我们要到达的效果。
而宏那么是跳过那些复杂的按键操作,直接执行
VBA代码,因此我们可以将一连串复杂操作整合到一个宏里,用一个快捷按键一
键完成〔如图1〕。
图1宏原理图
PS:
本文表达均为通俗语言,仅介绍了局部常用功能。
如想深入完整地学习或
查看官方释义请搜索相关资料和编程手册。
本人也为初学者,如有错误请见谅。
2/17
二、创立空白宏
创立宏的方式有两种:
一种是代码宏〔直接编写VBA代码〕;另一种是录制宏〔点击录制后将你要执行的操作执行一遍进行录制,下次直接点击宏按钮就可顺序执行〕。
录制宏虽然容易入手,但精确度不如代码宏,本文介绍代码宏。
视图——宏——查看宏——输入宏名——创立
即得一个空白宏。
1〕点击视图
2〕点击宏
3/17
3〕查看宏
4〕输入宏名
4/17
5〕点击创立
6〕空白宏创立成功
5/17
三、编写宏代码
1、设置格式模板〔以宋体小四1.5行距为例〕
‘全选
‘去除全文格式
Selection.Font.Name="宋体"’设置字体
Selection.Font.Size=12‘设置字号〔其它字号见表1〕
‘以下为设置行距
Selection.ParagraphFormat.LineSpacingRule=wdLineSpaceExactly
’以宋体小四1.5倍行距为例,字号〔磅值〕为12,那么1.5倍行距的行距值为12*1.5=18
Selection.ParagraphFormat.LineSpacing=18
Selection.ParagraphFormat.Alignment=wdAlignParagraphJustify‘设置文本两端对齐Application.ScreenUpdating=True’刷新
初号
42
小初
36
一号
26
小一
24
二号
22
小二
18
三号
16
小三
15
四号
14
小四
12
五号
小五
9
六号
小六
七号
八号
表1字体与字号对应表
PS:
想要不同的对齐方式用以下任一代码替换模板中红色文本即可。
wdAlignParagraphCenter居中
wdAlignParagraphDistribute分散对齐
wdAlignParagraphJustify两端对齐
wdAlignParagraphLeft左对齐
wdAlignParagraphRight右对齐
表2对齐方式库
6/17
2、替换模板〔以去除空格为例〕
'去除空格
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text=""'双引号之间输入一个空格
.Replacement.Text=""’替换为空即删掉空格
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
任意单个字符
^?
1/4长划线
^+
任意数字
^#
长划线
^j
任意英文字母
^$
短划线
^q
段落标记〔硬回车〕
^p
制表符
^t
手动换行符(软回车)
^l
脱字号
^
图形
^g或^1
分栏符
^v
表3
word特殊字符代码库〔标记为常用代码〕
注:
编写的宏代码插入到Sub与EndSub之间。
7/17
四、创立快捷按钮
为写好代码的宏创立快捷按钮可以一键调用宏命令,快速方便。
创立方式如下:
文件——选项——快速访问工具栏——点击常用命令——宏——选择要制作按钮的宏——添加——修改——选择一个图标——确定
过程图解如下:
1〕点击文件
2〕点击选项
8/17
3〕点击快速访问工具栏
4〕点击常用命令
9/17
5〕点击宏
6〕选中你所创立的宏
10/17
7〕点击添加
8〕选中刚刚添加的宏
11/17
9〕点击修改
10〕选择一个图标并确定
12/17
11〕快捷按钮创立成功
13/17
五、代码实例〔以题库一段文字为例〕
原格式如图5.1所示:
图例如文字
需实现:
宋体小四1.5倍行距,去除多余空行及空格,去掉制表符〔此窗口
中不可见〕,半角圆点改为全角圆点,括号内固定四个空格,最后将此段文本复
制到剪切板并清空当前word。
实例代码:
Selection.Font.Name="宋体"
Selection.Font.Size=12
Selection.ParagraphFormat.LineSpacingRule=wdLineSpaceExactly
Selection.ParagraphFormat.LineSpacing=18
Selection.ParagraphFormat.Alignment=wdAlignParagraphJustify
Application.ScreenUpdating=True
'替换空格
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text=""'被替换的字符
.Replacement.Text=""
14/17
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
'替换空格
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text=""'被替换的字符
.Replacement.Text=""
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
'所有硬回车替换为软回车
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text="^p"'被替换的字符
.Replacement.Text="^l"
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
'去掉多余空行
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text="^l^l"'被替换的字符
.Replacement.Text="^l"
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
'去掉多余空行〔重复去空行更彻底〕
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text="^l^l"'被替换的字符
.Replacement.Text="^l"
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
15/17
'去掉最后多余行
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text="^l^p"'被替换的字符
.Replacement.Text=""
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
'替换半角圆点为全角圆点
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text="."'被替换的字符
.Replacement.Text="."
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
'去除制表符
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text="^t"'被替换的字符
.Replacement.Text=""
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
'括号加空格
WithActiveDocument.Content.Find'在当前文档中进行查找
.Text="〔〕"'被替换的字符
.Replacement.Text="〔〕"
.ExecuteReplace:
=wdReplaceAll,Forward:
=True'替换全部
EndWith
16/17
‘复制到剪贴板
’清空当前word
格式处理后效果如图4.2:
图格式处理效果图
17/17
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- WORD 简单 应用 解析