word vba编程 wordvba编程代码大全

wordvba编程代码大全

关于这个wordvba编程代码大全IT技巧方面的经验，关于 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