如何使用VBA自动调整我导出到WORD的内容的大小

Question

我编写了一个VBA代码，将我的内容导出到word文档，但是一旦执行该命令，word文档中的内容就会过大。有谁可以看看我的代码并提供帮助？

Sub export_excel_to_word()

Set obj = CreateObject("Word.Application")
obj.Visible = True
Set newObj = obj.Documents.Add
ActiveSheet.UsedRange.Copy
newObj.Range.Paste
Application.CutCopyMode = False
obj.Activate
newObj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & ActiveSheet.Name

结束子

Answer 1

粘贴单元格（newObj.Range.Paste）后键入：

newObj.Range.Tables(1).Range.ParagraphFormat.SpaceAfter = 0
newObj.Range.Tables(1).AutoFitBehavior wdAutoFitWindow

它会使细胞“正常”大小。