word vba编程代码有哪些

本篇内容主要讲解“word vba编程代码有哪些”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“word vba编程代码有哪些”吧!

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 vba编程代码有哪些”有了更深的了解，不妨来实际操作一番吧！这里是编程网网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！