主题：请教

无法显示vars变量因为不能遍历

1、不可以；

 

2、可以使用设计器的；

 

3、窗口表，可以显示啊。

参考代码。

 

Dim wapp As New MSWord.Application
Dim eApp As New MSExcel.Application

try
    Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open("d:\test.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
    Ws.UsedRange.Copy
   
    Dim fileName = "d:\test.doc"
    Dim doc = wapp.Documents.Open(fileName)
    wapp.ActiveWindow.Selection.WholeStory
    wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    wapp.ActiveWindow.Selection.TypeParagraph
    wapp.ActiveWindow.Selection.paste
    wapp.Visible = True
catch ex As exception
    msgbox(ex.message)
    wapp.Quit
finally
    eapp.quit
End try

不行，excel怎样就是怎样

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

1、无法强制换页；

 

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

去学vba

 

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