Notes与Office的接口的详细介绍
Notes与Office的接口
本文Notes与Office的接口介绍了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) …………… file://生成数据源表头 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) …………… file://将 Notes文档中的数据填入数据源表中 FileName＄=“c:/图书数据源.doc" Call WordSourceDoc.SaveAs (“c:/ 图书数据源.Doc") file://保存数据源文件③产生邮件合并主文档。
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 file://取得打印模板文档 Num_BeginH=Worddoc .Num_BeginH(0) Num_BeginL=Worddoc.Num_BeginL(0) Num_HS = Worddoc.Num_HS(0) file://取得打印设置，依次为开始行、开始列、每页打印行数②启动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.Editcopy 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 Then Else Wordbasic.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 file://标记对指定文档的修改 .PrintRevisions = True file://在打印文档的同时打印修订标记 .ShowRevisions = True file://在屏幕上显示对指定文档的修订 End With End Sub②不查看痕迹。
Sub 不查看痕迹()
With ActiveDocument .TrackRevisions = False .PrintRevisions = False .ShowRevisions = False End With End Sub③保存退出。
Sub 保存退出()
ActiveDocument.Save ActiveDocument.Close End Sub2.将该文档作为对象在表单中创建，注意将其显示为图表形式。
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 file://设置Word用户名 End If End Function