以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169395) |
-- 作者:siyugege -- 发布时间:2021/6/15 11:13:00 -- [求助] 备注型列内容中含换行,自动生成的word文档中,多出几个?号,如何去除? [此贴子已经被作者于2021/6/15 11:16:15编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/6/15 11:55:00 -- 要使用代码处理,替换一下换行符 Dim tm As String = ProjectPath & "Attachments\\test.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\test.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("表A"),tm,fl) \'定义一个WordReport wrt.Replace("[第一列]",Tables("表A").Current("第一列").replace(chr(10),"")) wrt.BuildOne(Tables("表A").Current) wrt.Show() \'显示报表 |
-- 作者:siyugege -- 发布时间:2021/6/15 14:32:00 -- 在哪输代码啊 |
-- 作者:siyugege -- 发布时间:2021/6/15 14:33:00 -- 在哪输代码呀,刚接触就要用代码啊 |
-- 作者:有点蓝 -- 发布时间:2021/6/15 15:44:00 -- 可以设计一个窗口,放到按钮中。或者设计菜单放到菜单按钮中 |
-- 作者:siyugege -- 发布时间:2021/6/15 16:22:00 -- 谢谢,慢慢学吧,刚开始学使用 |