>
　　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后即可在“模板”窗体的“常用”栏中显示该向导的图标。

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 

在google里搜索更多转贴(电脑报):VBA开发实用指南

	Web www.51ec.org

上一篇信息学院： 蛙蛙推荐: 用web服务传递Dataset的一个简单例子…

下一篇信息学院： 一个自定义的可以分页,排序,扩展显示grid控件