守柔SHOUROU WORD编程代码大全

5星 · 超过95%的资源 需积分: 48 10 下载量 67 浏览量 更新于2024-12-03 收藏 875KB PDF 举报
"守柔(SHOUROU)WORD 编程代码集" 守柔(SHOUROU)的WORD编程代码集是一份详尽的资料,涵盖了从基础操作到高级功能的各种VBA(Visual Basic for Applications)编程技巧,旨在帮助用户更高效地利用Microsoft Word进行文档处理和自动化工作。这份资料包含122页的内容,涉及多个关键知识点,以下是其中的一些重点: 1. **空白段落的删除**:讲解如何通过VBA代码删除Word文档中多余的空白段落,提高文档整洁度。 2. **段落样式与格式的应用**:介绍了如何利用VBA设置和应用预定义的段落样式,以及如何插入目录,使文档结构化和易于导航。 3. **表格集合中的循环与单元格边框设置**:讲解如何遍历文档中的表格并对单元格边框进行自定义,实现复杂格式的设定。 4. **查找与替换的基本代码用法**:从基本的替换操作到批量替换和全文件夹替换,提供了一系列实用的VBA代码,用于批量修改文档内容。 5. **光标位置判断**:演示如何判断光标所在行是否存在手动分页符,这对于控制文档布局非常有用。 6. **自定义右键菜单**:展示如何通过VBA修改Word的右键菜单,增加个性化功能。 7. **修改WORD命令**:允许用户自定义Word的命令栏和控件,以适应个人工作流程。 8. **邮件合并条件格式设置**:介绍在邮件合并过程中如何设置条件格式,实现个性化打印。 9. **分页保存**:提供了保留格式设置的代码,使得保存文档时保持原有的排版效果。 10. **密码保护**:涵盖如何设置文档打开密码,增强文档安全性。 11. **汉字拼音解决方案**:解决在Word中获取汉字拼音的问题,对于多语言文档处理很有帮助。 12. **引用动态链接库**:展示了如何在Word中创建和使用DLL文件,扩展Word的功能。 13. **语音朗读**:通过VBA实现文档内容的语音朗读,方便有视觉障碍的用户。 14. **图形绘制与编辑**:包括画直角坐标系、交点自动绘制等,为文档添加复杂的图表和图形。 15. **汉字笔画数获取**:通过VBA计算汉字的笔画数,可用于教学或研究用途。 16. **后台解除已知密码的VBA工程**:提供了解除已知密码保护的VBA代码,但需谨慎使用,以遵循合法和道德的使用原则。 这份代码集不仅包含了大量实用的代码示例,还讲解了相应的理论知识,是学习Word VBA编程的宝贵资源。通过学习和实践这些代码,用户可以大大提高工作效率,实现Word的自动化和定制化功能。
2012-09-14 上传
OfficeTips Home || VBA Section || General Section || Download Section || Privacy Policy Useful PowerPoint VBA code snippets More Sharing Services Share | Share on gmail Share on google Share on facebook Share on twitter Determine the current slide in the Slide View mode: Sub SlideIDX() MsgBox "The slide index of the current slide is:" & _ ActiveWindow.View.Slide.SlideIndex End Sub Determine the current slide in Slide Show mode: Sub SlideIDX() MsgBox "The slide index of the current slide is:" & _ ActivePresentation.SlideShowWindow.View.Slide.SlideIndex End Sub Difference between SlideIndex property and SlideNumber property: The SlideIndex property returns the actual position of the slide within the presentation. The SlideNumber property returns the PageNumber which will appear on that slide. This property value is dependent on "Number Slide from" option in the Page Setup. Go to Page Setup and Change the value of "Number Slide from" to 2 and then while on the 1st slide in Slide View run the following Macro Sub Difference() MsgBox "The Slide Number of the current slide is:" & _ ActiveWindow.View.Slide.SlideNumber & _ " while the Slide Index is :" & _ ActiveWindow.View.Slide.SlideIndex End Sub Macro to exit all running slide shows: Sub ExitAllShows() Do While SlideShowWindows.Count > 0 SlideShowWindows(1).View.Exit Loop End Sub Code to refresh current slide during the slide show: Sub RefreshSlide() Dim lSlideIndex As Long lSlideIndex = SlideShowWindows(1).View.CurrentShowPosition SlideShowWindows(1).View.GotoSlide lSlideIndex End Sub Code to reset animation build for the current slide during the slide show: Sub ResetSlideBuilds() Dim lSlideIndex As Long lSlideIndex = SlideShowWindows(1).View.CurrentShowPosition SlideShowWindows(1).View.GotoSlide lSlideIndex, True End Sub Insert a slide after current slide Sub InsertSlide() Dim oView As View With ActivePresentation.Slides Set oView = ActiveWindow.View oView.GotoSlide .Add(oView.Slide.SlideIndex + 1, _ ppLayoutTitleOnly).SlideIndex Set oView = Nothing End With End Sub Copyright 1999-2011 (c) Shyam Pillai. All rights reserved.