在word文档中加入书签标题和报告人 程序执行后会在书签位置插入自定义的字符串Private Sub cmd打印_Click() dim strTitle as string dim strName as string strTitle="我的报告" strName="ouyangfeng" Dim WordTemps As New Word.Application '定义WORD类 WordTemps.Documents.Add App.Path + "\测试文档.doc", False
'显示word出来 WordTemps.Visible = True '显示WORD窗口End Sub
dim sTitle as string dim sContent as string sTitle="这里是标题" sContent="这里是内容" Dim AppWord As New Word.Application Dim DocWord as New Document set DocWord=AppWord.Documents.Add
DocWord.Selection.TypeText sTitle DocWord.Selection.TypeText vbcrlf '分行 DocWord.Selection.TypeText sContent ' '显示word出来 AppWord.Visible = True '显示WORD窗口 set DocWord=nothing set AppWord=nothing
程序执行后会在书签位置插入自定义的字符串Private Sub cmd打印_Click()
dim strTitle as string
dim strName as string strTitle="我的报告"
strName="ouyangfeng" Dim WordTemps As New Word.Application '定义WORD类
WordTemps.Documents.Add App.Path + "\测试文档.doc", False
WordTemps.Selection.GoTo wdGoToBook, , , "标题"
WordTemps.Selection.TypeText strTitle
WordTemps.Selection.GoTo wdGoToBook, , , "报告人"
WordTemps.Selection.TypeText strName
'显示word出来
WordTemps.Visible = True '显示WORD窗口End Sub
dim sTitle as string
dim sContent as string sTitle="这里是标题"
sContent="这里是内容" Dim AppWord As New Word.Application
Dim DocWord as New Document
set DocWord=AppWord.Documents.Add
DocWord.Selection.TypeText sTitle
DocWord.Selection.TypeText vbcrlf '分行
DocWord.Selection.TypeText sContent ' '显示word出来
AppWord.Visible = True '显示WORD窗口
set DocWord=nothing
set AppWord=nothing