主题：请教

就是运行word中右键中的一个命令“自动调整---根据窗口调整表格“，如何写代码？

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

谢谢！wordvba的教科书哪里的有？

1、无法强制换页；

 

2、你可以先加入空格，然后再拷贝内容进去。

我要全自动的，一键了事的代码没有么？我看到过人家的软件，全是全自动的，自动排版美观的一键可以自动打印所有选定的excel表的，且不管您原来的表格多大，都能调整到一页显示。有的字就像蚂蚁一样？

去学vba

 

http://www.foxtable.com/help/topics/2121.htm