主题：[求助]如何让WORD报表的表格根据窗口调整表格

 

不理解你的意思，如果内容较多，页面较小，装不下自然会变形。

 

可以自己调整一下页面的宽度等等设置。

呃，根据窗口调整表格，意思是根据可输入页面可宽度调整，而不是你理解的根据窗口的大小......

 无法理解你的意思......

 

 既然是word报表，你的模板是怎样设置的，最后生成就是什么样的。

 

 具体问题，请详细说明或上传例子

 你做个例子发上来的，可能用vba可以解决。

用vba控制，看这里，自己去扩展

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\ts.doc"
    app.Documents.Open(fileName)
    Dim count = app.Documents(fileName).Characters.Count
    Dim rng As MSWord.Range = app.Documents(fileName).Range(Start:=0, End:=count)

    msgbox(rng.Text)
    'rng.Select()   '全选
    'rng.Copy()   '拷贝
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

 

参考 http://msdn.microsoft.com/zh-cn/library/tcyt0y1f%28v=vs.80%29.aspx

 有空，帮你写了一下，红色地方换一下

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc As object = app.Documents.Open(fileName)
    Doc.Tables(1).AutoFitBehavior(MSWord.WdAutoFitBehavior.wdAutoFitWindow)
    Doc.save
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

 

http://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.word.wdautofitbehavior.aspx