一些常用的WORD VBA代码.doc

1、删除空行Sub删除空行()DimIAsParagraph,=(Trim())==n+1EndIfNextMsgBox"共删除空白段落"&n&"个"=TrueEndSub2、奇偶页打印Sub奇偶页打印()Dimx,j,iAsIntegerOnErrorResumeNextx=ExecuteExcel4Macro("(50)")Fori=1ToInt(x/2)+:=2*i-1,To:=2*i-1NextiIfx=1ThenMsgBox"无偶数页"ElseMsgBox"请将打印出的纸张反向装入纸槽中",vbOKOnly,"打印另一面"Forj=1ToInt(x/2)+:=2*j,To:=2*jNextjEndIfEndSub3、中英文标点互换Sub中英文标点互换()DimChineseInterpunction()AsVariant,EnglishInterpunction()AsVariantDimmyArray1()AsVariant,myArray2()AsVariant,strFindAsString,strRepAsStringDimmsgResultAsVbMsgBoxResult,NAsByte'定义一个中文标点的数组对象ChineseInterpunction=Array("、","。",",",";",":","?","!","……","—","~","(",")","《","》")'定义一个英文标点的数组对象EnglishInterpunction=Array(",",".",",",";",":","?","!","…","-","~","(",")","<",">")'注意这里的英文,转换为了中文、,如果希望将,转换为中文,请自行修改!'提示用户交互的MSGBOX对话框msgResult=MsgBox("您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!",vbYesNoCancel)SelectCasemsgResultCasevbCancelExitSub'如果用户选择了取消按钮,则退出程序运行CasevbYes'如果用户选择了YES,则将中文标点转换为英文标点myArray1=ChineseInterpunctionmyArray2=EnglishInterpunctionstrFind="“(*)”"strRep="""\1"""CasevbNo'如果用户选择了NO,则将英文标点转换为中文标点myArray1=EnglishInterpunctionmyArray2=ChineseInterpunctionstrFind="""(*)"""strRep="“\1”"=False'