- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
这里给大家提供一些比较常用的 WORD VBA代码,可以提高大家的办公效率,如果不知
道怎么使用这些代码,请自行上网查询 WORD 如何运行 VBA。
1、删除空行
Sub 删除空行()
Dim I As Paragraph, n As Integer
= False
For Each I In
If Len(Trim) = 1 Then
n = n + 1
End If
Next
MsgBox 共删除空白段落 n 个
= True
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, strFindAs String, strRepAs String
Dim msgResult As VbMsgBoxResult, N As Byte
定义一个中文标点的数组对象
ChineseInterpunction = Array(、,。, ,, ;, :, , !, ……, —
, ~, (, ), 《, 》)
定义一个英文标点的数组对象
EnglishInterpunction = Array(,,., ,, ;, :, , !, …, -, ~, (,
1
), , )
注意这里的英文,转换为了中文、,如果希望将,转换为中文,请自行修改!
提示用户交互的 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
= False 关闭屏幕更新
For N = 0 To UBound(ChineseInterpunction) 从数组的下标到上标间作一个循环
With
.ClearFormatting 不限定查找格式
.MatchWildcards = False 不使用通配符
查找相应的英文标点,替换为对应的中文标点
.Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace:=wdReplaceAll
End With
Next
With
.ClearFormatting 不限定查找格式
.MatchWildcards = True 使用通配符
.Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAll
End With
= True 恢复屏幕更新
End Sub
4、任意页插入页码
Sub 任意页插入页码()
Dim p As Integer
On Error Resume Next
p =
您可能关注的文档
最近下载
- 秋冬季常见传染病预防 ppt课件.pdf
- GB 55009-2021 燃气工程项目规范.pdf
- 液体石油产品烃类的测定-荧光指示剂吸附法(GB-T11132-2008).ppt
- 上海市病媒生物密度控制水平评估技术方案.doc VIP
- 高空作业车售后服务方案.docx
- 2024-2025学年河北省沧州市泊头市第一中学高二(上)月考物理试卷(9月)(含答案).docx
- 自-机械制造技术基础课程设计说明书 .doc VIP
- 53个经典病例分析及答案.doc VIP
- [职高 对口升学] 2021年重庆高职分类考试 文化素质测试 真题.pdf VIP
- 电子技术基础数字部分(第7版)康华光习题解析.pdf
文档评论(0)