- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问报表,如何依某自段值,导入不同格式,再填入数据? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72713)
-- 发布时间：2015/8/5 7:35:00
-- 请问报表,如何依某自段值,导入不同格式,再填入数据?
如题: 有没有范例?
注:不同格式(overlay) 已事先画好.
-- 发布时间：2015/8/5 7:37:00
--
什么意思?有范例吗?
-- 发布时间：2015/8/5 9:15:00
--
没看懂。要做的东西，先做例子上来看是什么情况。
-- 发布时间：2015/8/5 13:13:00
--
如附结构要产生如test.doc
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目18.rar |
-- 发布时间：2015/8/5 14:29:00
--
1、word中创建表格参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70762&skin=0
2、word中插入文字参考
Dim app As New MSWord.Application
try
Dim fileName = "d:\\test.doc"
Dim doc = app.Documents.Open(fileName)
app.ActiveWindow.Selection.WholeStory
app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
app.ActiveWindow.Selection.TypeParagraph
Dim c As Color = Color.Red
app.ActiveWindow.Selection.TypeText(Text:="123456")
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
3、自己要做什么样的东西都可以，去学习一下word的vba的知识
-- 发布时间：2015/8/7 13:59:00
--
3Q!! 如何将数据指定在某位置,及动态汇入表格
-- 发布时间：2015/8/7 14:09:00
--
读取某个单元格的值，赋值一样的意思。参考
Dim app As New MSWord.Application
try
Dim fileName = "d:\\黄某某.doc"
Dim doc = app.Documents.Open(fileName)
Dim t = doc.Tables(1)
Dim text = t.Cell(1, 2).Range.Text.ToString()
text = text.Substring(0, text.Length - 2)
msgbox(text)
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
-- 发布时间：2015/8/7 14:18:00
--
3Q!!
此主题相关图片如下：err.jpg
-- 发布时间：2015/8/7 14:22:00
--
7楼的代码有问题？
你的doc要有一个表格
-- 发布时间：2015/8/7 15:10:00
--
能否以4楼做一例子