以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  开源免费的.NET文档操作组件DocX  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127343)
--  作者：benwong2015
--  发布时间：2018/11/12 11:15:00
--  开源免费的.NET文档操作组件DocX
因在实际工作中EXCEL、word、专业报表，都是各有千秋但无法满足不同页码用不同数据表来合成，专业报表很强大可惜保存不能为word格式，请问系统可以直接这个组件嘛？以下为链接；

https://www.jb51.net/article/100044.htm
--  作者：有点甜
--  发布时间：2018/11/12 11:35:00
--  

1、可以在专业报表预览那里，手动另存为 word 或者其它格式的。

 

2、你可以直接用vba操作word，生成你所需要的文档。而没必要用其它控件。
--  作者：benwong2015
--  发布时间：2018/11/12 11:36:00
--  
专业报表预览保存word之后，图片会消失，格式会有变化，有没有与预览保存一致的做法；
--  作者：有点甜
--  发布时间：2018/11/12 11:40:00
--  

那你可以直接用vba操作word，生成你所需要的文档。而没必要用其它控件。

 

例如代码

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc As Object = app.Documents.Open(fileName)
   

    app.ActiveWindow.Selection.WholeStory
    If app.ActiveWindow.Selection.Find.Execute("[列名]")  Then
        app.ActiveWindow.Selection.TypeText(Text:="编号123")
    End If
   
    app.Visible = True
catch ex As exception
    msgbox(ex.message)   
app.Quit
finally
    \'app.Quit
End try
--  作者：benwong2015
--  发布时间：2018/11/12 11:49:00
--  
好的，我去深入学习一下VBA吧