wordvba编程代码有哪些 (wordvba)

对于许多程序员来说，掌握编程代码至关重要。对于Word VBA，许多新手可能还不熟悉常用的代码。因此，本文将为您提供Word VBA编程代码大全，帮助您轻松入门。

Word VBA编程代码

1. 删除空行

   Sub 删除空行()
   Dim I As Paragraph, n As Integer
   Set I = ActiveDocument.Paragraphs.First
   Do Until I Is Nothing
     If Len(Trim(I.Range.Text)) = 0 Then
       n = n + 1
     End If
     Set I = I.Next
   Loop
   MsgBox "共删除空白段落" & n & "个"
   End Sub
   

2. 奇偶页打印

   Sub 奇偶页打印()
   Dim x, j, i As Integer
   On Error Resume Next
   x = ExecuteExcel4Macro((50))
   for i = 1 To Int(x / 2) + 1
     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
       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, strRepAs 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
   
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   
   '关闭屏幕更新
   Selection.ScreenUpdating = False
   
   For N = 0 To UBound(ChineseInterpunction)
     '从数组的下标到上标间作一个循环
     With Selection.Find
       .NoHighlight = True '不限定查找格式
       .MatchWildcards = False '不使用通配符
       .FindText := myArray1(N)
       .ReplaceWith := myArray2(N)
       .Replace
     End With
   Next N
   
   Selection.ScreenUpdating = True
   MsgBox "标点转换已完成！", vbInformation + vbOKOnly
   End Sub
   

结论

以上列出的代码只是Word VBA编程中众多常用代码的示例。掌握这些代码将极大地提升您的Word VBA编程技能。随着您技能的不断提升，您可以探索更多高级的代码功能，进一步拓展您的Word VBA编程能力。

---

---

相关标签： wordvba编程代码有哪些、

上一篇：结尾的单词从使用个单词的列表中查找以QBAS

下一篇：C语言编程入门者的学习宝典初学编程100个代