Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

[5分]报表以word发布形式导出为word,导出后如何自动对word文件命名?另外如何在导出的word里加上表格?

恐龙的传人  发表于:2013-05-03 15:56:00  
复制

如题。由于工作需要,每天需要将运输资料发给客户,如果字段不多,用excel足够了,但问题在于车牌号码,订舱号,柜号,海关编号……甚至有工厂的PO编号,客户自己的工作号太多字段了……

如此多的字段只能用报表格式转换成PDF呈给客户,但客户现在也比较懒了,他(她们)更愿意从excel或是word里直接复制后录入他(她)们的系统…无奈以word发布形式转换成WORD,转换后有几个比较讨厌的地方:报表里的表格横线没了,LOGO位图丢失……

论坛上有很多word模版导出后替换的例子,但我的报表比较麻烦,估计采用word模版导出的话不太方便实现。下图为报表的样式:


需要请各位老师指点的是:我在报表激活事件里写了以下代码:

DoCmd.RunCommand acCmdOutputToRTF

这样打开报表可以直接转换成word,希望转换后直接以“客户名称+装货日期”的形式直接命名word文件。同时希望在word里对相关字段加上表格。



 

Top
恐龙的传人 发表于:2013-05-03 15:56:55

我晕,我的附件呢??

只好再发一遍了。点击下载此附件



煮江品茶 发表于:2013-05-04 14:37:37
肥明 发表于:2013-05-08 10:30:39

如果要将窗体某个文本框的内容导出到WORD中非表格位置,可以吗?上面的例子是导出到WORD中的表格里面



恐龙的传人 发表于:2013-05-09 12:07:30

伙计们,现在不要求那么多了,只希望能够对wrod重命名……



恐龙的传人 发表于:2013-05-09 23:29:58

 

找到解决办法了。

在报表激活事件里写入以下代码:

DoCmd.OutputTo acReport, "做柜资料", "RichTextFormat(*.rtf)", "D:\桌面\" & DataName & "资料.rtf", True, "", 0


这段代码是从OutputTo 宏里得到的。


dataname定义为全局变量,作为string,打开报表前,在打开报表的按扭单击事件中让dataname=客户名称+装货日期


强烈要求管理员把我自己的回复定义为最佳答案。尽管目前还不知道怎么操作word文件套用表格,以及删除多出的第一列。



殷小宝 发表于:2013-05-14 23:12:59
这只是导出报表到WORD文档而已。

叶海峰 发表于:2013-05-15 15:48:54
Selection.ConvertToTable Separator:=4, NumColumns:=4, NumRows:=2, _
        AutoFitBehavior:=wdAutoFitFixed
    With Selection.Tables(1)
        .Style = "网格型"
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
    End With


恐龙的传人 发表于:2013-05-16 13:20:48

 叶老大的方法有可能管用,下午试试看,先设为最佳答案吧。

昨天有一位朋友在QQ上问我要模块,我把弄好的贴上来。

需要说明的是,我把代码改到查询界面窗体的按扭双击事件上了,注释写得很明白了。

报表以rtf格式发布

 



殷小宝 发表于:2013-05-16 22:19:18
Separator及空格不好处理。好像需要手动处理。

恐龙的传人 发表于:2013-05-17 22:09:14

回9楼的版主,确实不好加表格啊。套用表格时,第一列全是空白的,需要手动删掉



总记录:10篇  页次:1/1 9 1 :