主题：WPS报表

单位现在不让使用office，要求使用wps。导致Word报表功能不能用了，应该怎么办？

用专业报表吧

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

 

如果确实需要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

好的，试试。上面的语句可以在没有office软件的情况下使用报表功能？

 

有wps应该就可以执行了。