简介很多程序员都离不开编程代码，但是肯定有很多wordvba新手不知道常用代码有哪些，所以下面是wordvba编程代码完整合集。许多程序员离不开编程。代码，但是肯定有很多wordvba新手不知道常用的代码有哪些，所以下面为大家整理了一些wordvba编程代码，快来看看吧。

wordvba编程代码是什么：

1.删除空行

Sub删除空行()

Dim I 作为段落，n 作为整数

应用程序.ScreenUpdating=False

对于ActiveDocument.Paragraphs 中的每个I

如果Len(Trim(I.Range))=1 那么

I.范围.删除

n=n + 1

万一

下一个

MsgBox '删除空白段落' n '数字'

应用程序.ScreenUpdating=True

结束子

2、奇偶页打印

分奇偶页打印()

Dim x, j, i 作为整数

出错时继续下一步

x=ExecuteExcel4Macro('Get.Document(50)')

对于i=1 至Int(x/2) + 1

ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1，To:=2 * i - 1

接下来我

如果x=1 那么

MsgBox '没有偶数页'

别的

MsgBox '请将已打印的纸张向后装入纸槽', vbOKOnly, '打印另一面'

对于j=1 至Int(x/2) + 1

ActiveWindow.SelectedSheets.PrintOut From:=2 * j，To:=2 * j

下一个

万一

结束子

3.中英文标点互换

子中英文标点互换()

Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Variant

Dim myArray1() 作为变体，myArray2() 作为变体，strFind 作为字符串，strRep 作为字符串

Dim msgResult As VbMsgBoxResult，N As Byte

'定义一个中文标点符号数组对象

ChineseInterpunction=Array(',','.', ',', ';', ':', '?', '!', '', '

—', '~', '（', ')', '《","》 ')

'定义英文标点符号数组对象

EnglishInterpunction=Array(',','.', ',', ';', ':', '?', '!', '', '-', '~', '(', ') ', '', '') '

注意这里的英文是转换成中文的。如果要转换成中文请自行修改！到

'MSGBOX 对话框提示用户交互

msgResult=MsgBox('是否要交换中英文标点符号？按Y键将中文标点符号转换为英文标点符号，按N键转换英文标点符号

转换为中文标点符号！', vbYesNoCancel)

选择案例msgResult

案例vb 取消

Exit Sub '如果用户选择取消按钮，则退出程序。

case vbYes '如果用户选择YES，则将中文标点符号转换为英文标点符号

myArray1=中文插句

myArray2=EnglishInterpunction strFind='"(*)"'

strRep='''\1''' Case vbNo '如果用户选择NO，则将英文标点符号转换为中文标点符号myArray1=EnglishInterpunction myArray2=ChineseInterpunction

strFind='''(*)'''

strRep='"\1"'

结束选择

Application.ScreenUpdating=False '关闭屏幕更新

For N=0 To UBound(ChineseInterpunction) '从数组的下标到上标做一个循环

使用ActiveDocument.Content.Find

.ClearFormatting '不限制搜索格式

.MatchWildcards=False '不要使用通配符

'找到对应的英文标点符号，并替换为对应的中文标点符号

.执行findtext:=myArray1(N),replacewith:=myArray2(N),Replace:=wdReplaceAll

结束于

下一个

使用ActiveDocument.Content.Find

.ClearFormatting '不限制搜索格式

.MatchWildcards=True '使用通配符

.执行findtext:=strFind,replacewith:=strRep,Replace:=wdReplaceAll

结束于

Application.ScreenUpdating=True '恢复屏幕更新

结束子

4. 在任意页面上插入页码

Sub insert page number() 到任意页面

将p 变暗为整数

出错时继续下一步

p=InputBox('请输入起始页码')

有选择

.GoTo What:=wdGoToPage, Count:=p

.InsertBreak Type:=wdSectionBreakContinously

.Sections(1).Footers(1).LinkToPrevious=False

使用.Sections(1).Footers(1).PageNumbers

.RestartNumberingAtSection=True .StartingNumber=1

.Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=True

结束于

结束于

结束子

5.实现图形的精确旋转

子图形旋转()

Dim blnIsInlineShape As Boolean

如果Selection.Type=wdSelectionInlineShape 那么

blnIsInlineShape=True

Selection.InlineShapes(1).ConvertToShape

万一

Dim intTurn As Integer

intTurn=InputBox('请输入要旋转的图形的角度值' vbCrLf '正数表示顺时针，负数表示逆时针。', '图形旋转', 30)

Selection.ShapeRange.IncrementRotation intTurn

结束子

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

以上是wordvba编程代码完整合集，可以给你更高的效率。如果您想了解更多教程，请继续关注。