wordvba编程代码大全

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)?'从数组的下标到上标间作一个循环?
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?
.Sections(1).Footers(1).LinkToPrevious?=?False?
With?.Sections(1).Footers(1).PageNumbers?
.RestartNumberingAtSection?=?True?.StartingNumber?=?1?
.Add?PageNumberAlignment:=wdAlignPageNumberCenter,?FirstPage:=True?
End?With?
End?With?
End?Sub??
5、实现图形的精确旋转?
Sub?图形旋转()?
Dim?blnIsInlineShape?As?Boolean?
If?Selection.Type?=?wdSelectionInlineShape?Then?
blnIsInlineShape?=?True?
Selection.InlineShapes(1).ConvertToShape?
End?If?
Dim?intTurn?As?Integer?
intTurn?=?InputBox("请输入图形要旋转的角度值"??vbCrLf??"正数表示顺时针，负数表示逆时针。",?"图形旋转",?30)?
Selection.ShapeRange.IncrementRotation?intTurn?
End?Sub? 上述就是wordvba编程代码大全，可以给你更高的使用效率，想知道更多的教程继续的关注深空游戏哦。2024-09-29