vba format size in Word

[Wooly]

hello, I'm using the following codes to copy from Excel to Word. But the table in Word is really wide. What kind of codes do I need to minimize the table when they get copied over? Thanks


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

 

[Macropod]

You might try:

Sub Export_Excel_to_Word()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("Word.Application")
With wdApp
  .Visible = True
  Set wdDoc = .Documents.Add
  ActiveSheet.Range("A3:c40").Copy
  With wdDoc
    .Range.PasteExcelTable False, False, True
    Application.CutCopyMode = False
    .SaveAs Application.ActiveWorkbook.Path & "\" & ActiveSheet.Name & ".docx", 12, , , False
  End With
  .Activate
End With
Set wdDoc = Nothing: Set wdApp = Nothing
End Sub

 

[Macropod]

Cross-posted at: www.vbaexpress.com/forum/showthread.php?62717-VBA-paste-special-to-Word
and:
https://stackoverflow.com/questions/50280867/copy-usedrange-to-word-document
Please read Mr Excel's policy on Cross-Posting in rule 13: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html

 

[Wooly]

it works !!!! Thanks !!!