|
转贴(电脑报):VBA开发实用指南(17) Application.DisplayAutoCompleteTips = True '插入已创建的自动图文集 ActiveDocument.AttachedTemplate.AutoTextEntries("hk").Insert Selection.Range, True ActiveDocument.Select '调用替换书签的过程，将窗体中输入的内容在文档中进行替换 ReplaceBookmark "jr", frmHKWiz.lstjr.Text ReplaceBookmark "fsz", frmHKWiz.txtfsz.Text ReplaceBookmark "jsz", frmHKWiz.txtjsz.Text ReplaceBookmark "hc", frmHKWiz.txthc.Text '设置新文档的属性 With ActiveDocument .SpellingChecked = True .GrammarChecked = True .UndoClear End With Application.DisplayAutoCompleteTips = True Selection.HomeKey wdStory '恢复默认鼠标形状 System.Cursor = wdCursorNormal Application.ScreenUpdating = True '关闭窗体 Unload frmHKWiz '调用删除所有书签的过程 deleteallbookmark End Sub '替换书签内容的过程 Private Sub ReplaceBookmark(which As String, what As String) If Len(what) = 0 Then what = "" End If '选择指定的书签 Selection.GoTo what:=wdGoToBookmark, Name:=which '替换内容 Selection.TypeText what End Sub '删除所有书签的过程 Private Sub deleteallbookmark() Dim bm As Bookmark '遍历所有的书签 For Each bm In ActiveDocument.Bookmarks '删除书签 bm.Delete Next End Sub 4.设置向导入口 代码编写完毕后，在工程资源管理器中切换至“ThisDocument”对象，输入事件代码，如下所示： Private Sub Document_New() '调用模块(Common)中启动向导的过程 Common.StartWizard End Sub 5.后续工作 向导程序编制、调试无误后，可将其扩展名改为“WIZ”，然后搜索“Normal.dot”文件所在的文件夹，并将该向导程序放置于该目录，随后启动Word XP后即可在“模板”窗体的“常用”栏中显示该向导的图标。
|
