wordvba编程代码大全 _睿知

很多的程序员都离不开编程的代码，但是对于wordvba肯定有很多的新手不知道常用代码有哪些，所以下面就给你们提供了wordvba编程代码大全，快来一起看看吧。

文章插图
wordvba编程代码有哪些：1、删除空行?
Sub?删除空行()?
Dim?I?As?Paragraph,?n?As?Integer?
Application.ScreenUpdating?=?False?
For?Each?I?In?ActiveDocument.Paragraphs?
If?Len(Trim(I.Range))?=?1?Then?
I.Range.Delete?
n?=?n? ?1?
End?If?
Next?
MsgBox?"共删除空白段落"?&?n?&?"个"?
Application.ScreenUpdating?=?True?
End?Sub?
2、奇偶页打印?
Sub?奇偶页打印()?
Dim?x,?j,?i?As?Integer?
On?Error?Resume?Next?
x?=?ExecuteExcel4Macro("Get.Document(50)")?
For?i?=?1?To?Int(x?/?2)? ?1?
ActiveWindow.SelectedSheets.PrintOut?From:=2?*?i?-?1,?To:=2?*?i?-?1?
Next?i?
If?x?=?1?Then?
MsgBox?"无偶数页"?
Else?
MsgBox?"请将打印出的纸张反向装入纸槽中",?vbOKOnly,?"打印另一面"?
For?j?=?1?To?Int(x?/?2)? ?1?
ActiveWindow.SelectedSheets.PrintOut?From:=2?*?j,?To:=2?*?j?
Next?j?
End?If?
End?Sub??

文章插图
3、中英文标点互换
Sub?中英文标点互换()?
Dim?ChineseInterpunction()?As?Variant,?EnglishInterpunction()?As?Variant?
Dim?myArray1()?As?Variant,?myArray2()?As?Variant,?strFind?As?String,?strRep As?String?
Dim?msgResult?As?VbMsgBoxResult,?N?As?Byte?
’定义一个中文标点的数组对象?
ChineseInterpunction?=?Array("、"," 。",?"，",?";",?"：",?"?",?"！",?"??",?"
—",?"～",?"（",?"）",?"《",?"》")?
’定义一个英文标点的数组对象?
EnglishInterpunction?=?Array(",",".",?",",?";",?":",?"?",?"!",?"?",?"-",?"~",?"(",?")",?"<",?">")?’
注意这里的英文,转换为了中文、，如果希望将,转换为中文，请自行修改！?
’提示用户交互的MSGBOX对话框?
msgResult?=?MsgBox("您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点
转为中文标点!",?vbYesNoCancel)?
Select?Case?msgResult?
Case?vbCancel?
Exit?Sub?’如果用户选择了取消按钮,则退出程序运行?
Case?vbYes?’如果用户选择了YES,则将中文标点转换为英文标点?
myArray1?=?ChineseInterpunction?
myArray2?=?EnglishInterpunction?strFind?=?"“(*)”"?
strRep?=?"""1"""?Case?vbNo?’如果用户选择了NO,则将英文标点转换为中文标点?myArray1?=?EnglishInterpunction?myArray2?=?ChineseInterpunction?
strFind?=?"""(*)"""?
strRep?=?"“1”"?
End?Select?
Application.ScreenUpdating?=?False?’关闭屏幕更新?
For?N?=?0?To?UBound(ChineseInterpunction)?’从数组的下标到上标间作一个循环?
【wordvba编程代码大全】With?ActiveDocument.Content.Find?
.ClearFormatting?’不限定查找格式?
.MatchWildcards?=?False?’不使用通配符?
’查找相应的英文标点,替换为对应的中文标点?
.Execute?findtext:=myArray1(N),?replacewith:=myArray2(N),?Replace:=wdReplaceAll?
End?With?
Next
With?ActiveDocument.Content.Find?
.ClearFormatting?’不限定查找格式?
.MatchWildcards?=?True?’使用通配符?
.Execute?findtext:=strFind,?replacewith:=strRep,?Replace:=wdReplaceAll?
End?With?
Application.ScreenUpdating?=?True?’恢复屏幕更新?
End?Sub??
4、任意页插入页码?
Sub任意页插入页码()?
Dim?p?As?Integer?
On?Error?Resume?Next?
p?=?InputBox("请输入起始编排页码的页次")?
With?Selection?
.GoTo?What:=wdGoToPage,?Count:=p?
.InsertBreak?Type:=wdSectionBreakContinuous?