您的位置: 锡林郭勒盟信息港 > 体育

Notes与Office的接口_a

发布时间:2020-01-16 22:45:55

---- 本文介绍了Notes 与 Office的三种接口程序的编制,它们可实现将 Notes数据引入Office程序中,实现在Notes中较难实现的标签打印、表格打印以及修订显示等功能。

利用Word“邮件合并”功能

----Word的邮件合并功能可以将数据源的数据与主文档的数据合并,主要用于生成标签和信封等具有固定格式的文档。我们可以利用这个功能,将 Notes数据库中的数据引出,生成固定格式的文档,如:图书的小标签、信封打印等。

----步骤如下:

建立邮件合并所需的数据源文档模板(Source.dot)和主文档模板(Main.dot)。

在Notes数据库中,建立视图、表单,将 Source.dot、Main.dot作为附件附加到表单中, 供后面的程序调用此模板生成文档。

通过Script编程实现用Notes文档内容生成Word文档。下面是源程序的主要部分,该程序在 Notes中点击“打印”按钮,或在操作菜单中选择“打印”时执行:

----①启动WORD。 Set wordapp=GetObject(“",“Word.Application.8") If Isempty(wordapp) Then Set wordapp = CreateObject(“Word.Application.8") If Isempty(wordapp) Then Messagebox “请先安装WORD 97。",0+64,“打印" Exit Sub End If End If

----②产生数据源文件。

Call wordapp.documents.add

Set WordSourceDoc= wordapp.activedocument

Set selection=wordapp.selection

Call WordSourceDoc.Tables.Add

(wordapp.selection.Range,2, 25)

Call selection.TypeText (“图书名称")

Call Selection.MoveRight(12)

Call selection.TypeText (“图书编号")

Call Selection.MoveRight(12)

Call selection.TypeText (“购入日期")

Call Selection.MoveRight(12)

……………

//生成数据源表头

Set CurDoc = uidoc.Document

Call selection.TypeText (CurDoc.Title(0))

Call Selection.MoveRight(12)

Call selection.TypeText (CurDoc.Code(0))

Call Selection.MoveRight(12)

Call selection.TypeText (CurDoc.Date(0))

Call Selection.MoveRight(12)

……………

//将 Notes文档中的数据填入数据源表中

FileName$=“c:\图书数据源.doc"

Call WordSourceDoc.SaveAs (“c:\ 图书数据源.Doc")

//保存数据源文件

----③产生邮件合并主文档。

Set view=CurDb.GetView(“图书打印配置 ")

Set tspzdoc=view.GetDocumentByKey(CurDoc.P_type(0),True)

If tslxpzdoc Is Nothing Then

Messagebox “找不到配置文档,请重新生成

"+key+“编辑配置文档。",0+64,“检测配置文档"

Exit Sub

End If

Set ts_label=tspzdoc.GetAttachment(“图书标签.dot")

If ts_label Is Nothing Then

Messagebox “配置文档中找不到 WORD"

Exit Sub

End If

FileName$=“c:\ 图书标签.dot"

Call ts_label.ExtractFile(FileName$)

WordApp.Documents.Open (“C:\ 图书标签.dot")

----④执行邮件合并。

With WordApp.ActiveDocument. MailMerge

.Destination =0

.Execute

End With

Call wordapp.Documents(“图书标签.dot").Close (0,0,False)

Call wordapp.Documents(“图书数据源.doc").Close (0,0,False)

利用Word表格实现接口

----表格在日常办公中经常用到,用Notes表单或视图打印表格,不仅格式简单,而且不够美观,很难满足需要。此时可将 Notes数据库文档引出,利用Word生成表格。

----步骤如下:

建立表格文档模板,如:科技档案案卷目录 .dot。

在Notes数据库中,建立视图、表单,表单中包括每页表格的行数、打印的起始行和列, 还包括一个RTF域,将文档模板引入这个RTF域,生成文档。

Script编程实现用Notes文档内容生成Word文档。下面是源程序的主要部分,该程序在 Notes中点击“打印”按钮,或在操作菜单中选择“打印”时执行。

----①获得打印设置以及打印模板。

Set doc = docs.Getfirstdocument

If doc Is Nothing Then

Msgbox “没有选中打印文档",

Mb_Ok+Mb_IconStop,“停止"

Exit Sub

End If

Set Worddoc = ExtractWord(“科技档案案卷目录.")

If Worddoc Is Nothing Then Exit Sub

//取得打印模板文档

Num_BeginH=Worddoc .Num_BeginH(0)

Num_BeginL=Worddoc.Num_BeginL(0)

Num_HS = Worddoc.Num_HS(0)

//取得打印设置,依次为开始行、开始列、每页打印行数

----②启动Word,根据Notes文档提供的表格模板生成Word 文档。

Set Tempdoc = CreateObject(“Word.Document.8")

Set Wordapp = Tempdoc.Application

Set WordBasic = Wordapp.WordBasic

WordBasic.FileNew Worddoc.Txt_PathName(0)

----③将Notes数据库的内容引入生成的Word文档中,生 成固定格式的表格。

Items = Worddoc.Txt_Items

Pageno = 1

Row = 1

While Not(doc Is Nothing)

If Row = 1 Then

If Pageno = 1 Then

Set Table = Wordapp.ActiveDocument.Tables(1)

WordBasic.EditSelectAll

Wordbasic.Editcop y

Table. Cell(Num_BeginH,Num_BeginL).Select

Else

wordapp.Selection.MoveRight 1,2

Wordbasic.InsertPagebreak

WordBasic.EditPaste

Set WordSelection = Wordapp.Selection

WordSelection.Delete 1,1

Set Table = Wordapp.ActiveDocument.Tables(Pageno)

Table.Cell(Num_BeginH, Num_BeginL).select

End If

Else

End If

For i = 0 To Ubound(Items)

InsertStr =doc.GetItemvalue(Items(i))

Wordbasic.insert Cstr(InsertStr(0))

End If

If i = Ubound(Items) And Row = Num_HS ThenElse

Wordbas ic.NextCell

End If

Next

Row = Row + 1

If Row > Num_HS Then

Row = 1

Pageno = Pageno +1

End If

Wend

WordBasic.Appshow

Wordapp.WindowState = 1

End Sub

利用Word“修订”功能 实现修改痕迹保留功能

---- 在办公自动化系统必需的公文子系统中,发文流程必然涉及到正文的修改。根据档案工作的要求,修改的原稿必需保留,这就要求发文正文的修改痕迹必需保留。要在Notes中做到这一点是非常困难的。在 Word中包含一个修订功能, 如果启用了修订功能, Microsoft Word 将使用修订标记来标记修订。文档审阅完毕之后, 可以根据不同的文本颜色区分出不同审阅者所做的修改。

----步骤如下:

----1. 建立一个Word文档,文档中包含以下宏。

----①查看痕迹。

Sub 查看痕迹()

With ActiveDocument

.TrackRevisions = False

//标记对指定文档的修改

.PrintRevisions = True

//在打印文档的同时打印修订标记

.ShowRevisions = True

//在屏幕上显示对指定文档的修订

End With

End Sub

----②不查看痕迹。< /SPAN>

Sub 不查看痕迹()

With ActiveDocument

.TrackRevisions = False

.PrintRevisions = False

.ShowRevisions = False

End With

End Sub

----③保存退出。

Sub 保存退出()

ActiveDocument.Save

ActiveDocument.Close

End Sub

----2.将该文档作为对象在表单中创建,注意将其显示为图表 形式。

----3.将Notes中的用户名转入Word中,以便生成标注。该程序可在数据库的PostOpen事件中触发,主要程序如下。

Dim Wordapp As Variant

Set Wordapp = CreateObject(“Word.Document.8")

If Wordapp.Application.UserName

< > Session.CommonUserName Then

Wordapp.Application.UserName =

Session.CommonUserName

//设置Word用户名

End If

End Function

小儿厌食挑食不吃饭怎么办
玉林正骨水疗效怎么样
老君炉藤黄健骨丸治骨质疏松吗
有止咳的儿童安全用药吗
猜你会喜欢的
猜你会喜欢的