文章编号:74时间:2024-09-25人气:
对于许多程序员来说,掌握编程代码至关重要。对于Word VBA,许多新手可能还不熟悉常用的代码。因此,本文将为您提供Word VBA编程代码大全,帮助您轻松入门。
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
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
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
内容声明:
1、本站收录的内容来源于大数据收集,版权归原网站所有!
2、本站收录的内容若侵害到您的利益,请联系我们进行删除处理!
3、本站不接受违法信息,如您发现违法内容,请联系我们进行举报处理!
4、本文地址:https://www.y333.cn/article/fe461e4a1d931846b1a2.html,复制请保留版权链接!
非常大明星,是一档以唱歌、访谈和与歌迷互动为主的综艺节目,节目在每周五晚20,30首播,周六下午13,30复播,非常不一班,是一档以明星为卖点的节目,将课堂情境与综艺秀场、情景喜剧相结合,形成了新颖的节目类型,今晚大不同,是一档另类风格的日播、直播类晚间脱口秀节目,她以娱乐、民生、真实独树一帜,以主持人杨运为话趣核心,以最低的门...。
影视资讯 2024-10-13 09:28:49
播出平台中国的观众可以在以下平台观看,RunningMan,优酷视频人人视频优酷优酷作为中国领先的在线视频平台,提供了丰富的内容供观众选择,包括,RunningMan,的全部内容,用户可以在优酷网站或APP上观看最新和最全的节目,人人视频人人视频以提供海外的影视剧为主,也包括,RunningMan,等热门综艺节目,用户可以在人人视频...。
影视资讯 2024-10-13 09:27:37
湖南卫视快乐大本营,20,20播出,何炅、谢娜、李维嘉、杜海涛、吴昕主持的经典综艺节目,其他卫视旋风孝子,东方卫视,22,00播出,明星和父母共同体验生活,一路上有你,浙江卫视,22,00播出,明星夫妻档参与旅行真人秀,花样姐姐第二季,东方卫视,22,00播出,女星独自旅行,娜就这么说,爱奇艺,22,00播出,谢娜主持的脱口秀节目,燃...。
影视资讯 2024-10-13 08:29:57
以下是Energy团体从2002年到2009年的活动时间表,e日期活动名称2002,10,26TV三贱客2003,02,23超级星期天2003,07,20少年特工队2003,07,21开运鉴定团2003,07,24陶子娱乐秀2003,08,03食字路口2003,10,17G,club2003,12,312003年末实况2004,01...。
影视资讯 2024-10-13 07:58:39
简介,快乐向前冲,是山东广播电视台综艺频道推出的水上闯关节目,自2013年开播以来一直深受观众喜爱,节目由李鑫、张敏健、杨蕊、崔璀、丁喆主持,以其独特的户外竞技形式和轻松幽默的氛围吸引了大量观众,播放平台,快乐向前冲,的回放可以在以下平台观看,优酷视频,作为中国领先的在线视频平台之一,优酷与,快乐向前冲,的制作方达成合作协议,授权优酷...。
影视资讯 2024-10-13 06:31:21
随着电视剧行业的蓬勃发展,越来越多的演员涌现而出,他们为观众带来了精彩纷呈的视听盛宴,在追剧的过程中,我们也常常会遇到一个问题,剧中角色的年龄与演员的实际年龄相差甚远,这种现象在电视剧中十分常见,以至于许多观众已经见怪不怪了,但是,事实上,年龄差距过大的电视剧真的会带来各种各样的问题,影响观众的观剧体验,一、违和感强烈年龄差距最大的问...。
影视资讯 2024-10-13 03:45:44
想要下载韩国综艺,你可以参考以下网站和方法,BT下载哈韩部落,原情书网,网站地址,http,www.hahabanlu.com注册后即可下载全面的情书和X,MAN种子,网站下载皮皮播放器网站地址,http,www.pptv.com提供大量的韩国娱乐节目,可导出视频,下载速度较快,搜索引擎下载土豆、优酷直接在土豆或优酷搜索综艺节...。
影视资讯 2024-10-13 03:29:42
停牌原因根据公司在投资者互动平台上的回应,综艺股份停牌是因为存在重大事项需要公告,具体原因尚未公布,市场上有以下几种猜测,重大资产重组或并购事项,这类事项通常需要较长时间进行谈判和安排,为了确保信息的保密性和公平性,公司会采取停牌措施,其他重要事件,如股权激励计划、重大合同签署等,这些事件都需要公司进行充分的公告和解释,以确保投资者能...。
影视资讯 2024-10-12 23:30:10
对于喜爱惊悚与未知的读者来说,无限流恐怖小说是一场不容错过的狂欢,本文将推荐一些优秀的无限流恐怖小说,带你领略恐惧的魅力,精品推荐,全球高考,圈内公认的白月光,无需多言,死亡万花筒,攻是女装大佬,请注意排雷,地球上线,黑童话副本,网恋奔现的甜蜜与惊险,我在惊悚游戏里封神,大男主慢热,群像精彩,副本多样,惊悚练习生,双...。
影视资讯 2024-10-12 22:11:54
随着小程序的普及,越来越多的企业开通了小程序,但不少小程序的流量却少之又少,因此,小程序优化显得尤为重要,本文将从小程序的流量入口、搜索排名规则和优化方向等方面,为您提供全面的小程序优化指南,小程序的流量入口小程序的流量主要来自以下三个类型,被动型搜索附近的小程序用户分享主动型公众号关联门店二维码文章群发小程序跳转推广付费竞价排名区域...。
技术教程 2024-09-27 20:59:34
如何制作个人微信小程序注册微信小程序账号1.打开浏览器,访问微信公众平台官网,[https,mp.weixin.qq.com,],https,mp.weixin.qq.com,2.在帐号分类中,找到小程序,3.点击查看详情,进入小程序注册页面,4.按要求填写相关信息,包括邮箱、密码等,5.点击登陆邮箱,完成公众号激活,6...。
技术教程 2024-09-27 20:29:03
网站优化对于提供无缝的用户体验和提高业务成果至关重要,通过实施最佳实践,您可以显著提升网站的性能和用户满意度,避免弹窗和重定向,这些元素会干扰用户体验并降低可用性,用户体验优化响应式设计,确保您的网站在所有设备上都能良好显示,简化导航,创建直观的导航菜单,以便用户轻松找到他们需要的信息,提供即时反馈,让用户知道何时采取行动,例如提交表...。
技术教程 2024-09-25 11:44:53