主题：请问报表,如何依某自段值,导入不同格式,再填入数据?

如题: 有没有范例? 

注:不同格式(overlay) 已事先画好.

什么意思?有范例吗?

如附结构要产生如test.doc

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目18.rar

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的知识

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

3Q!!

7楼的代码有问题？

你的doc要有一个表格

能否以4楼做一例子