PB中word和excel的打印,替换,另存为操作如何进行，急急，问题真解决还可以再给100分

本人在PB中使用ole控件打开word和excel文件(使用了两个不同的控件)，

word控件可以对word文档进行替换操作。
ole_word.object.application.Selection.find.Execute(ls_find_string,false,true,false,false,false,true,1,true,ls_replace_string,2)
但不知调用哪个函数可以打印此word文档？
如何对打开的word文件进行“另存为”操作?

ole控件打开的excel文件如何进行替换操作和打印操作
如何对打钱的excel文件进行“另存为”操作？

8 个解决方案

#1

另存:
ole_word.object.application.ActiveDocument.SaveAs( "filename.doc")

打印:
ole_word.object.application.printout ()

excel:
ole_word.object.application.ActiveWorkbook.SaveAs ("filename.xls")
ole_word.object.application.ActiveWindow.SelectedSheets.PrintOut()
大概就是这个样子吧.你只要在word中录制一个宏,然后编辑,这样就可以看到很多可以用的函数了.我也没有试过. 我试过使用宏里面的一些关于书签,打印的函数.还是很好用.好运

#2

完全同意楼上的贴子

#3

#4

ole_excel.object.application.worksheets("sheet1").cells.replace(...)
语法

expression.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte)

expression   必选。该表达式返回 Range 对象。

What   String 类型，必选。Microsoft Excel 要查找的字符串。

Replacement   String 类型，必选。替换字符串。

LookAt   Variant 类型，可选。可为下列 XlLookAt 常量之一： xlWhole 或 xlPart。

SearchOrder   Variant 类型，可选。可为下列 XlSearchOrder 常量之一： xlByRows 或 xlByColumns。

MatchCase   Variant 类型，可选。若指定为 True，就进行区分大小写的查找。

MatchByte   Variant 类型，可选。只有当在 Microsoft Excel 中选择或安装了双字节语言支持时，才可以使用本参数。若指定为 True，则使双字节字符仅匹配双字节字符。若指定为 False，则双字节字符可匹配其等价的单字节字符

#5

ole_excel.object.application.activeworkbook.saveas(filename)

#6

ole_excel.object.application.worksheets("sheet1").printout()

#7

同意！
双手双脚赞成！

#8

帮顶!!因为我也要的!^_^

#1

#2