|
各位大佬,EXCEL转换成word的时候能不能同时对word自动调整宽度呢?谢谢
在EH中找了下面一段程序,里面没有做调整,
试过加.AutoFitBehavior (wdAutoFitWindow)这段,提示没定义
Sub 生成word()
Dim rng As Range, sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Worksheets
Set rng = sht.UsedRange
With CreateObject("Word.Application")
.Visible = False
.Documents.Add
rng.Copy
.Selection.PasteExcelTable False, False, False
'.ActiveDocument.SaveAs Filename:=Replace(ThisWorkbook.FullName, "xls", "doc")
.ActiveDocument.SaveAs ThisWorkbook.Path & "\" & sht.Name & ".doc"
.ActiveDocument.Close
.Quit
End With
Application.CutCopyMode = False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "完成Word转换"
End Sub
|
|