Word2003 VBA 小代码集粹.doc

Word2003 VBA 小代码集粹 1．完美显示图片表格的普通视图 　　2．完美显示图片表格的页面视图 　　3．彻底删除页眉页脚 　　4．切换纵横向页面 　　5．禁用“改写”模式 　　6．无格式粘贴 　　7．与设备无关的位图 　　8．全文编号转文本 　　9．将包含指定字符的段落设为标题1样式 　　10．全文全角字母和数字转为半角 　　11．以选定文本从文档首查找__弹出查找对话框 　　12．以选定文本从选区后发生一次查找__不出现查找对话框 　　13．全文段首加段号 　　14．全选当前页 　　15．删除指定文件夹下所有Word文档的前三段 　　16．复制指定文件夹下所有文档至同目录新文档 1． Sub 完美显示图片表格的普通视图() 此宏为雨雪霏霏特别奉献的小偏方，欢迎各位朋友测试。 如果文档中的嵌入式图片、表格显示迟滞、错位，运行此宏，将在普通视图下完美显示它们。 ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview ActiveWindow.View.Type = wdNormalView End Sub 2． Sub 完美显示图片表格的页面视图() 此宏为雨雪霏霏特别奉献的小偏方，欢迎各位朋友测试。 如果文档中的各种图片、表格显示迟滞、错位，运行此宏，将在页面视图下完美显示它们。 ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview ActiveWindow.View.Type = wdNormalView ActiveWindow.View.Type = wdPrintView End Sub 3． Sub 彻底删除页眉页脚() 此宏为雨雪霏霏试写。思路来自： ①konggs版主于2005-7-26 20:38、2005-7-27 08:51发表的帖子， 链接为/viewthread.php?tid=112178； ②守柔版主于2005-7-27年发表于站内的文章《Word中鲜为人知的三招》， 链接为/Article/ShowArticle.asp?ArticleID=439。 此宏不足处在于： ①刪除页眉页脚后不能再恢复； ②本地文档进行删除操作后不保存退出的话，会在下次启动Word时出现文档恢复窗格。 Dim w, y As String Application.ScreenUpdating = False Set w = ActiveDocument.HTMLProject.HTMLProjectItems(2) If ActiveDocument.HTMLProject.HTMLProjectItems.Count = 2 Then If w.Name = header.htm Then w.Text = ActiveDocument.HTMLProject.RefreshProject ActiveDocument.HTMLProject.RefreshDocument If ActiveDocument.Name Like *.doc Then MsgBox 本文档页眉页脚已彻底清除，请及时保存。 Chr(13) _ 若退出本地文档时未保存，重新启动Word时将出现恢复窗格。, vbExclamation, ExcelHome Else Exit Sub End If End If Else MsgBox 本文档当前未设置页眉页脚，不需要进行删除操作。, vbOKOnly, ExcelHome End If Application.ScreenUpdating = True End Sub 4． Sub 切换纵横向页面() 在纵向页面与横向页面间切换。 If ActiveDocument.PageSetup.Orientation = wdOrientLandscape Then ActiveDocument.PageSetup.Orientation = wdOrientPortrait Else ActiveDocument.PageSetup.Orientation = wdOrientLandscape