以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  WPS报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116155)
--  作者：qaz
--  发布时间：2018/3/20 17:01:00
--  WPS报表
单位现在不让使用office，要求使用wps。导致Word报表功能不能用了，应该怎么办？
现在可以编辑报表，但是编辑完后，一点生成报表，软件就卡死了。
--  作者：bohe
--  发布时间：2018/3/20 17:31:00
--  
用专业报表吧
--  作者：有点甜
--  发布时间：2018/3/20 17:44:00
--  

测试了一下，这个确实没办法。

 

如果确实需要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
--  作者：qaz
--  发布时间：2018/3/20 17:55:00
--  
好的，试试。上面的语句可以在没有office软件的情况下使用报表功能？
[此贴子已经被作者于2018/3/20 17:56:11编辑过]
--  作者：有点甜
--  发布时间：2018/3/20 18:34:00
--  
以下是引用qaz在2018/3/20 17:55:00的发言：
好的，试试。上面的语句可以在没有office软件的情况下使用报表功能？
[此贴子已经被作者于2018/3/20 17:56:11编辑过]

 

有wps应该就可以执行了。