Notes与Office的接口

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