资源描述：
《一些常用的WORD VBA代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、这里给大家提供一些比较常用的WORDVBA代码，可以提高大家的办公效率，如果不知道怎么使用这些代码，请自行上网查询WORD如何运行VBA。1、删除空行Sub删除空行()DimIAsParagraph,nAsIntegerApplication.ScreenUpdating=FalseForEachIInActiveDocument.ParagraphsIfLen(Trim(I.Range))=1ThenI.Range.Deleten=n+1EndIfNextMsgBox"共删除空白段落"&n&"个"Application.Scre
2、enUpdating=TrueEndSub2、奇偶页打印Sub奇偶页打印()Dimx,j,iAsIntegerOnErrorResumeNextx=ExecuteExcel4Macro("Get.Document(50)")Fori=1ToInt(x/2)+1ActiveWindow.SelectedSheets.PrintOutFrom:=2*i-1,To:=2*i-1NextiIfx=1ThenMsgBox"无偶数页"ElseMsgBox"请将打印出的纸张反向装入纸槽中",vbOKOnly,"打印另一面"Forj=1ToInt
3、(x/2)+1ActiveWindow.SelectedSheets.PrintOutFrom:=2*j,To:=2*jNextjEndIfEndSub3、中英文标点互换Sub中英文标点互换()DimChineseInterpunction()AsVariant,EnglishInterpunction()AsVariantDimmyArray1()AsVariant,myArray2()AsVariant,strFindAsString,strRepAsStringDimmsgResultAsVbMsgBoxResult,NAs
4、Byte'定义一个中文标点的数组对象ChineseInterpunction=Array("、","。","，","；","：","？","！","……","—","～","（","）","《","》")'定义一个英文标点的数组对象EnglishInterpunction=Array(",",".",",",";",":","?","!","…","-","~","(",")","<",">")'注意这里的英文,转换为了中文、，如果希望将,转换为中文，请自行修改！'提示用户交互的MSGBOX对话框msgResult=MsgBox(
5、"您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!",vbYesNoCancel)SelectCasemsgResultCasevbCancelExitSub'如果用户选择了取消按钮,则退出程序运行CasevbYes'如果用户选择了YES,则将中文标点转换为英文标点myArray1=ChineseInterpunctionmyArray2=EnglishInterpunctionstrFind="“(*)”"strRep="""1"""CasevbNo'如果用户选择了NO,则将英文标点转换为中文标点m
6、yArray1=EnglishInterpunctionmyArray2=ChineseInterpunctionstrFind="""(*)"""strRep="“1”"EndSelectApplication.ScreenUpdating=False'关闭屏幕更新ForN=0ToUBound(ChineseInterpunction)'从数组的下标到上标间作一个循环WithActiveDocument.Content.Find.ClearFormatting'不限定查找格式.MatchWildcards=False'不使用通
7、配符'查找相应的英文标点,替换为对应的中文标点.Executefindtext:=myArray1(N),replacewith:=myArray2(N),Replace:=wdReplaceAllEndWithNextWithActiveDocument.Content.Find.ClearFormatting'不限定查找格式.MatchWildcards=True'使用通配符.Executefindtext:=strFind,replacewith:=strRep,Replace:=wdReplaceAllEndWithApp
8、lication.ScreenUpdating=True'恢复屏幕更新EndSub4、任意页插入页码Sub任意页插入页码()DimpAsIntegerOnErrorResumeNextp=InputBox("请输入起始编排页码的页次")WithSe
