发布时间 : 2024/7/7 16:11:40 星期日 文章用VB如何在WORD指定位置上插入文字更新完毕开始阅读586d926bae45b307e87101f69e3143323968f501

'********************************************************************************

Set mywdapp = CreateObject(\ If Err.Number <> 0 Then C_ErrMsg = 1 RaiseEvent HaveError Exit Sub End If End Sub

Public Sub ViewDoc()

Attribute ViewDoc.VB_Description = \显示Word程序界面\ mywdapp.Visible = True End Sub

Public Sub AddNewPage()

Attribute AddNewPage.VB_Description = \插入分页符\ mysel.InsertBreak Type:=wdPageBreak End Sub

Public Sub WordCut()

Attribute WordCut.VB_Description = \剪切模板所有内容到剪切板\

'保存模板页面内容 mysel.WholeStory mysel.Cut

mysel.HomeKey Unit:=wdStory End Sub

Public Sub WordCopy()

Attribute WordCopy.VB_Description = \拷贝模板所有内容到剪切板\

mysel.WholeStory mysel.Copy

mysel.HomeKey Unit:=wdStory End Sub

Public Sub WordDel() mysel.WholeStory mysel.Delete

mysel.HomeKey Unit:=wdStory End Sub

Public Sub WordPaste()

Attribute WordPaste.VB_Description = \拷贝剪切板内容到当前位置\ '插入模块内容 mysel.Paste End Sub

Public Sub CloseDoc()

Attribute CloseDoc.VB_Description = \关闭Word文件模板\ '******************************************************************************** ' 关闭Word文件模本

'******************************************************************************** On Error Resume Next

mywdapp.ActiveDocument.Close False

If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub

End If End Sub

Public Sub QuitWord()

'******************************************************************************** ' 关闭Word程序

'******************************************************************************** On Error Resume Next

mywdapp.Quit

If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub End If End Sub

Public Sub SavetoDoc()

Attribute SavetoDoc.VB_Description = \保存当前文档为