Word宏命令集.docx

Word宏命令集.docx

《Word宏命令集.docx》由会员分享，可在线阅读，更多相关《Word宏命令集.docx（11页珍藏版）》请在冰豆网上搜索。

Word宏命令集

Word宏命令集之欧侯瑞魂创作

创作时间：

二零二一年六月三十日

1、Word宏实现删除Word文档中的所有超链接,翻开Word的菜单工具->宏->VisualBasic编纂器,或直接按快捷键Alt+F11,翻开VisualBasic编纂器,“拔出”-“模块”.

代码：

SubRemoveHyperlinks（）

DimoFieldAsField

ForEachoFieldInActiveDocument.Fields

IfoField.Type=wdFieldHyperlinkThen

oField.Unlink

EndIf

Next

SetoField=Nothing

EndSub

2、Word中的图片批量统一年夜小及同比例缩放

有些时候,我们用Word来做一些图文混排的文档,需要正规的样式,例如图片年夜小一致.下面的方法就是告诉我们如何来实现很多的图片统一年夜小,“拔出”-“模块”.

代码：

Subsetpicsize（）'设置图片年夜小

Dimn'图片个数

OnErrorResumeNext'忽略毛病

Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片

ActiveDocument.InlineShapes（n）.Height=400'设置图片高度为400px

ActiveDocument.InlineShapes（n）.Width=300'设置图片宽度300px

Nextn

Forn=1ToActiveDocument.Shapes.Count'Shapes类型图片

ActiveDocument.Shapes（n）.Height=400'设置图片高度为400px

ActiveDocument.Shapes（n）.Width=300'设置图片宽度300px

Nextn

EndSub

按比例缩放的方法：

Subsetpicsize（）'设置图片年夜小

Dimn'图片个数

OnErrorResumeNext'忽略毛病

Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片

ActiveDocument.InlineShapes（n）.Height=400'设置图片高度为400px

ActiveDocument.InlineShapes（n）.Width=300'设置图片宽度300px

Nextn

Forn=1ToActiveDocument.Shapes.Count'Shapes类型图片

ActiveDocument.Shapes（n）.Height=400'设置图片高度为400px

ActiveDocument.Shapes（n）.Width=300'设置图片宽度300px

Nextn

EndSub

3、Word中英文标点符号互换-VBA源码实现

翻开“VisualBasic编纂器”或用快捷键Alt+F11,拔出一个新的“模块”.

SubToggleInterpunction（）'中英文标点互换

DimChineseInterpunction（）AsVariant,EnglishInterpunction（）AsVariant

DimmyArray1（）AsVariant,myArray2（）AsVariant,strFindAsString,strRepAsString

DimmsgResultAsVbMsgBoxResult,NAsByte

'界说一个中文标点的数组对象

ChineseInterpunction=Array（"、",".",",","；","：

","？

","！

","……","—","～","（","）","《","》"）

'界说一个英文标点的数组对象

EnglishInterpunction=Array（",",".",",",";",":

","?

","!

","…","-","~","（","）","<",">"）

'提示用户交互的MSGBOX对话框

msgResult=MsgBox（"您想中英标点互换吗?

按Y将中文标点转为英文标点,按N将英文标点转为中文标点!

",vbYesNoCancel）

SelectCasemsgResult

CasevbCancel

ExitSub'如果用户选择了取消按钮,则退出法式运行

CasevbYes'如果用户选择了YES,则将中文标点转换为英文标点

myArray1=ChineseInterpunction

myArray2=EnglishInterpunction

strFind="“（*）”"

strRep="""\1"""

CasevbNo'如果用户选择了NO,则将英文标点转换为中文标点

myArray1=EnglishInterpunction

myArray2=ChineseInterpunction

strFind="""（*）"""

strRep="“\1”"

EndSelect

Application.ScreenUpdating=False'关闭屏幕更新

ForN=0ToUBound（ChineseInterpunction）'从数组的下标到上标间作一个循环

WithActiveDocument.Content.Find

.ClearFormatting'不限定查找格式

.MatchWildcards=False'不使用通配符

'查找相应的英文标点,替换为对应的中文标点

.Executefindtext:

=myArray1（N）,WordStrwith:

=myArray2（N）,WordStr:

=wdWordStrAll

EndWith

Next

WithActiveDocument.Content.Find

.ClearFormatting'不限定查找格式

.MatchWildcards=True'使用通配符

.Executefindtext:

=strFind,WordStrwith:

=strRep,WordStr:

=wdWordStrAll

EndWith

Application.ScreenUpdating=True'恢复屏幕更新

EndSub

4、实现本机Word打印密码呵护：

SubFilePrint（）

pass$=InputBox（"请输入打印密码：

"）

Ifpass$="abcd"Then

Dialogs（wdDialogFilePrint）.Show

Else

MsgBox（"密码毛病,请与管理人员联系！

"）

EndIf

EndSub

SubFilePrintdefault（）

pass$=InputBox（"请输入打印密码：

"）

Ifpass$="abcd"Then

Dialogs（wdDialogFilePrint）.Show

Else

MsgBox（"密码毛病,请与管理人员联系！

"）

EndIf

EndSub

5、Word宏实现记录本机打印历史记录

SubFilePrint（）

Dialogs（wdDialogFilePrint）.Show

DName=ActiveDocument.Path+"\"+ActiveDocument.Name

IfActiveDocument.Path=""ThenDName="未保管文档"

Tim=Str（Date）+"日"+Str（Time）

Open"c:

\print.txt"ForAppendAs#1

Print#1,"于"+Tim+"打印"+DName

Close#1

EndSub

6、在显示屏上看到Word文档的真实打印效果：

套勒索据表格及进行某些特殊的版式排版时,很希望屏幕上显示的年夜小与打印结果完全相同,以便进行精确的套打把持.但能够“所见即所得”的Word显示的结果与打印出来的结果虽然格式上能够做到看到什么获得什么,但由于各人所用的显示器的尺寸分歧,而且相同尺寸的显示器其可视面积也有所不同,因此显示与打印结果的年夜小比例很难做到完全一致.如果能够给Word添加一个1:

1全真显示的工具按钮就好了!

这样即使我们不需要进行精确的套打,也可以在文稿完成后按一下这个按钮,看看最终输出的字体年夜小设置得是否合适.实现这个目的只需三步：

　　一、取得与真实打印完全一致的屏幕显示比例

　　由于各人使用的显示器尺寸分歧及画幅调整的习惯分歧,因此在此无法给出一个固定的数据.请先将显示器的画幅调整妥当,以能够最年夜限度地显示出完整的全屏幕窗口为准.找一张A4纸,用尺子量下该纸的宽度,要求精确到毫米（我测的是29.4*21.8）,因为标称为某种开本的纸张,其实际年夜小其实纷歧定与标称值相同.然后,翻开Word新建一空白文档,并设置为“页面”视图,将打印设置中的“纸型”设置为与准备的纸张相同的纸型,如在此为A4,再将“纸型”选项卡中的纸张宽度设置为与刚才量好的值完全一致,确定后返回编纂界面.

 　　现在我们就以这张纸为依据,确定屏幕显示比例.在工具栏的“显示比例”输入框中反复手工调整显示比例的年夜小,注意系统自己只提供若干种固定的显示比例,其实我们完全可以直接输入任意一个整数,比如笔者的19英寸宽屏显示器在设置为65％后,屏幕上的页面年夜小与真实纸张完全一致,这个“65”就是我们下一步需要的数据.

　　二、编写一个宏命令

　　1）请在Word的编纂界面按Alt＋F8,翻开“宏”对话框,在“宏名”编纂框中输入“yitoyi”,然后单击[创立]按钮.

2）翻开VisualBasic编纂器,在代码编纂窗口输入下列代码：

PublicSub全真1:

1显示（）

ActiveWindow.ActivePane.View

Zoom.Percentage=65

EndSub

注意：

代码中即是号后面的数字应灵活更改为与你的显示器对应的真实比例数字.

三、创立1:

1全真显示的工具栏按钮

　　按Alt＋V＋T＋C,调收工具栏“自界说”对话框,选择“命令/宏”,右边的列表框中会显示出所有已经存在的宏.找到刚才编纂的那个“yitoyi”的宏,将它拖入Word主界面的工具栏中的任意位置,这时工具栏中会呈现一个与宏名对应的按钮,请右击新按钮,在弹出的快捷菜单的“命名”编纂框中更改按钮名称为“1:

1”.按[关闭]按钮退出设置.

7、Word宏实现快速打印以后页

一般来说,如果只想打印Word文档中的以后页面时,我们必需进入打印属性设置窗口,然后将该窗口“页面范围”处的“以后页”项目选中,再单击一下“确定”按钮才可以.

很显然,如果每次打印以后页面都按上面的方法来把持的话,不单麻烦不说,而且也晦气于提高文档打印效率.那我们有没有法子跳过打印属性设置窗口,来直接“命令”打印机去打印以后页面呢？

其实要做到这一点其实不是一件十分困难的事情,我们完全可以借助Word应用法式的“录制新宏”功能,来创建一个可以直接让打印机去打印目标文档中以后页面的快捷命令,下面就是具体的实现步伐：

1）翻开“工具”-“宏”-“录制新宏”命令.

设置好后,单击“指定”,“关闭”.

--[endif]-->

2）在宏名中输入：

"printpage",“将宏指定到”,我们选择“健盘”

--[if!

supportLineBreakNewLine]-->

快捷键用“Ctrl+Alt+/”

3）开始“录制”.

这个时候光标上会显示一个磁带的形状,在左侧还用一个控制录制的小工具.录制好后,再想打以后文档时,直接用快捷键"Ctrl+Alt+/",就可以了.

创作时间：

二零二一年六月三十日