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?

相关文章： word常见问题汇总 | word工具栏隐藏显示

上述就是wordvba编程代码大全，可以给你更高的使用效率，想知道更多的教程继续的关注系统之家哦。

打出分数方法	批量删除空格	怎么加拼音 hot
下划线对齐 hot		调整图片像素
自动换行在哪里		行高无法调整
自动填充序号		图片旋转教程