当前位置:文档之家› lotus script 操纵word文档

lotus script 操纵word文档

lotus script 操纵word文档
lotus script 操纵word文档

Office 文档集数据库是以嵌入对象的方法嵌入word文档的,该文档在body域中,发送传真时,页眉、页脚发不出来,其他格式能正常发出来.而且可以做到不发传真封面,另外,这种方式也可以避免附件方式那样发出来还会出现一个附件图标,故现在的任务是如何往该文档中写内容了。

往该文档中写内容,有两种方式:一种是用VB写一个DLL,有关word文档的操作,包括插入一个表格、插入一个字符串、插页眉等等。这些函数都放在Dll中,然后被lotus script调用。

另一种方式是用lotusscript 直接操纵该嵌入文档,但操纵嵌入文档的lotusscript语法与VB语法差异很大。所能获得的例子代码和帮助都是VB语法,只能从lotusscript提取的ole对象库中去察看个函数的语法,至于个函数中的参数的意义只能从msdn中获得,而msdn中对参数的讲解也不是很详细,所有VB常量在lotusscript中没有定义,只能半猜半试的直接使用数值。

下面的例子是lotus script 操纵word文档:

'获取嵌入文档的句丙

Set thisdoc = source.getobject("oleobject"

'设置该文档的页面设置的左边距为20个单位(象素)

With thisdoc.pagesetup

.leftmargin = 20

End With

'插入页眉(由于真正的页眉在传真时无法显示,这里的页眉是模拟的)

'插入一幅图

Set thispicture = thisdoc.shapes.Addpicture("d:\学习\cassiatb.jpg"

'设置文字的插入点thisrange

Set thisrange = thisdoc.range(1,1)

pageheadstring = "CAISSA Touristic GmbH" & Chr(10) & "HAMBURG·BEIJING·SHANGHAI·BARCELONA" & Chr(10) &Chr(10) & Chr(10)

'插入一段文字:pageheadstring

thisrange.insertbefore (pageheadstring)

'获取一段文字:从字符1到24

Set thisrange = thisdoc.range(1,24)

'设置该段文字的属性:

With thisrange

.bold = True '加粗

.ParagraphFormat.Alignment = 1'wdAlignParagraphCenter 行居中.font.size = 20 '字体大小为20

End With

Set thisrange = thisdoc.range(25,59)

With thisrange

.bold = True

.ParagraphFormat.Alignment = 1'wdAlignParagraphCenter

.font.size = 16

End With

'thispicture.wrapformat.side = wdwrapright

'设置图像属性

With thispicture.wrapformat '环绕方式

.type = wdwrappicture '类型为picture

.side = wdwrapright '文字右环绕

End With

相关主题
相关文档 最新文档