ITPub博客

首页 > 应用开发 > IT综合 > Notes与Office的接口 (转)

Notes与Office的接口 (转)

原创 IT综合 作者:worldblog 时间:2007-12-10 09:55:30 0 删除 编辑
Notes与Office的接口 (转)[@more@]

 

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 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
file://设置Word用户名
  End If
End Function
 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-990826/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2449785