欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

求关于lotusscript兑现所有数据导入word并把它导出来的代码

更新时间: 2014-01-05 03:01:07 责任编辑: Author_N1

 

求关于lotusscript实现所有数据导入word并把它导出来的代码
问题描述:用lotusscript写关于导出word,且把整张单的所有数据都导进去,包括附件也导入到WORD里的具体代码。
--参考方法--
Class CWord
'当前用户会话
s As NotesSession
'当前数据库对象
currDb As NotesDatabase
'对象是否有效
isValid As Variant
'文件保存相对路径
FilePath As String
'Word模版保存目录
WordModelPath As String
'Word文件保存目录
WordDocPath As String
'路径分隔符
sep As String
'析构函数中是否自动删除Word应用程序
bAutoExitWordApp As Variant
'在自动删除Word应用程序时是否保存Word文档
bSaveChanges As Variant

'Word 应用程序对象
Public wordApp As Variant

fileNameList List As String
filePathList List As String

Function CreatedWordDocByWordModelDoc(wordModelDoc As NotesDocument,sWordModelNameItemName As String,sRTItemNameContainsWordModel As String,wordDocObject As Variant) As Variant
CreatedWordDocByWordModelDoc=False

If isValid Then
Dim item As Variant
'word 应用程序 Documents 集合
Dim documents As Variant
'Word模板名
Dim wordModelName As String
'Word模板路径名(含文件名)
Dim wordModelFilePath As String
Dim key As String

If wordModelDoc.HasItem(sWordModelNameItemName) Then
Set item=wordModelDoc.GetFirstItem(sWordModelNameItemName)
If Trim(item.Text)<>"" Then key=item.Text
End If

wordModelFilePath=GetFilePathByKey(key)

If ""=wordModelFilePath Then
Dim rtItem As Variant
Dim wordModelFileName As String

'提取以 sRTItemNameContainsWordModel 的值为名的RTF域中的第一个附件(Word模板)
If wordModelDoc.HasItem(sRTItemNameContainsWordModel) Then
Set rtItem =wordModelDoc.GetFirstItem(sRTItemNameContainsWordModel)
If ( rtItem.Type = RICHTEXT ) Then
Forall o In rtItem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
wordModelFileName = o.Source

key=wordModelFileName
wordModelFilePath=GetFilePathByKey(key)
If ""=wordModelFilePath Then
wordModelFilePath = WordModelPath$ & wordModelFileName

fileNameList(key) = wordModelFileName
filePathList(key) = wordModelFilePath

Call o.ExtractFile( wordModelFilePath )

Set o = Nothing
End If

Exit Forall
End If
End Forall
End If
End If
End If

If ""<>wordModelFilePath Then
Set documents = wordApp.Documents

'生成新的Word文档
Set wordDocObject = documents.Add(wordModelFilePath)

If Not wordDocObject Is Nothing Then CreatedWordDocByWordModelDoc=True
End If
End If
End Function

'把Notes文档转换为Word文档
Function ConvertNotesToWord(toConvertedDoc As NotesDocument,wordDocObject As Variant,bookMarkFieldNamesOdd List As String) As Variant
On Error Goto LblErrorHandler

'初步判断所传参数的正确性
If (wordDocObject Is Nothing) Or (toConvertedDoc Is Nothing) Then
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:01:07
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/17325/
本文WWW.DOC100.NET DOC100.NET版权所有。