用EXCEL表中的VBA生成Word文档，但是粘贴后超出边界了

碧海清流-传波

用EXCEL表中的VBA生成Word文档,程序自己摸出来了，但是粘贴到WORD后原内容超出边界了。能不能直接生成WORD时就把格式调整好。上下左右页边距分别为1，1，0.75，0.75。并且WORD表格内容可以完整的显示出来。感谢帮忙！
Sub 生成WORD文档()
    Dim rng As Range
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set rng = ActiveSheet.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.Close
        .Quit
    End With
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    MsgBox "订单已生成!"
End Sub

★子逸☆

请参考：
Sub 生成WORD文档()
   On Error Resume Next

    Dim rng As Range

    Set rng = ActiveSheet.UsedRange

   
    ChDir ThisWorkbook.Path
    ChDrive ThisWorkbook.Path
    Dim fileSaveName
    fileSaveName = Application.GetSaveAsFilename("武汉办2018年配件合同登记表1月", fileFilter:="Microsoft word Files (*.doc),*.doc")
    If fileSaveName = False Then Exit Sub

    Dim wdApp As Object
    Set wdApp = GetObject(, "Word.Application")
    If Err <> 0 Then
    Set wdApp = CreateObject("Word.Application")
    End If
    Set wddoc = wdApp.Documents.Add
    Set objSel = wddoc.Application.Selection

    wdApp.ActiveDocument.SaveAs fileSaveName


    Application.DisplayAlerts = False   '关闭提示框
    Application.ScreenUpdating = False      '停止屏幕刷新

    wddoc.Application.Visible = True


    With wdApp.ActiveDocument.PageSetup
    .LeftMargin = Application.CentimetersToPoints(0.75)
    .RightMargin = Application.CentimetersToPoints(0.75)
    .TopMargin = Application.CentimetersToPoints(1)  '上边距
    .BottomMargin = Application.CentimetersToPoints(1)  '上边距
    End With
   
   
     rng.Copy
    With objSel
    .EndKey Unit:=wdStory
    .Paste
    End With
   
   

    With wdApp.ActiveDocument.Tables(1)
    .Range.Font.Size = 9
    .Range.Font.Name = "宋体"
    .LeftPadding = CentimetersToPoints(0.15) '左右间距0.15
    .RightPadding = CentimetersToPoints(0.15) '

    '设置表格宽度
    .AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格
    .AllowPageBreaks = False
    .AllowAutoFit = False  '不允许自动调整尺寸以适应内容
    '.PreferredWidthType = wdPreferredWidthPercent
    '.PreferredWidth = 100      '宽度为100%
    End With


    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    MsgBox "订单已生成!"
End Sub

碧海清流-传波

★子逸☆ 发表于 2018-6-23 22:35
请参考：
Sub 生成WORD文档()
   On Error Resume Next

感谢，支援！

阿囡123

★子逸☆ 发表于 2018-6-23 22:35
请参考：
Sub 生成WORD文档()
   On Error Resume Next

出现这种是啥情况，希望大师帮我一下，谢谢

★子逸☆

阿囡123 发表于 2018-6-24 12:25
出现这种是啥情况，希望大师帮我一下，谢谢

“找不到工程或库”的解决方法，在VBE编辑器中，工具菜单---引用---在打开的引用窗口中找到含有“丢失的....”，并把它取消选取即可。

阿囡123

★子逸☆ 发表于 2018-6-24 20:17
“找不到工程或库”的解决方法，在VBE编辑器中，工具菜单---引用---在打开的引用窗口中找到含有“丢失的. ...

大师，帮我看一下，生成出来有问题，谢谢

★子逸☆

阿囡123 发表于 2018-6-24 23:37
大师，帮我看一下，生成出来有问题，谢谢

请参考一下