以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在word文档中插入表中的合同编号？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127121)
--  作者：wohenguaia
--  发布时间：2018/11/6 10:46:00
--  如何在word文档中插入表中的合同编号？
在word文档中插入内部表中的某个字段内容，如合同编号，然后预览打印
[此贴子已经被作者于2018/11/6 10:47:24编辑过]
--  作者：有点甜
--  发布时间：2018/11/6 10:56:00
--  

参考

 

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
--  作者：wohenguaia
--  发布时间：2018/11/6 14:29:00
--  
您的方法是通过word打印，没法自动设置字体呀。能不能利用foxtable自带的报表打印功能呢？
--  作者：有点甜
--  发布时间：2018/11/6 14:54:00
--  
以下是引用wohenguaia在2018/11/6 14:29:00的发言：
您的方法是通过word打印，没法自动设置字体呀。能不能利用foxtable自带的报表打印功能呢？

 

不是可以用word报表？

 

http://www.foxtable.com/webhelp/scr/2878.htm

 

http://www.foxtable.com/webhelp/scr/2890.htm