Adding Autofit to window with my copy&paste Excel range to Word macro

[Jbone697]

This macro copies a range in excel and pastes to word, while Word opens up in landscape. I would also like it to autofit after pasting in Word. Any help would be appreciated.

[IMG]https://www.mrexcel.com/forum/newthread.php?do=postthread&f=10[/IMG]  <code>Sub PasteToWord()

    Dim wdApp As New Word.Application, wdDoc As Word.Document
    
        With wdApp
            .Visible = True
            
    Set wdDoc = .Documents.Add

        With wdDoc
        .PageSetup.Orientation = wdOrientLandscape
        Sheets("Sheet1").Range("A34:J178").Copy
    .Range.Paste
            Application.CutCopyMode = False
    
  End With
  
End With

Set wdDoc = Nothing: Set wdApp = Nothing

End Sub</code>

 

[PhilS2520]

Hello Jbone697,

I would suggest making the essential edits in Excel before sending the data to Word. I am not sure that Excel can control Word at this level.

Oh how I miss the old Camera tool in Excel.

Hope this helps.

 

[Jbone697]

It can control it at this level. I figured it out myself.

'Copy template and open in Word with landscape view
Sub PasteToWord()
    Dim wdApp As New Word.Application, wdDoc As Word.Document
    
        With wdApp
            .Visible = True
            
    Set wdDoc = .Documents.Add
        With wdDoc
        .PageSetup.Orientation = wdOrientLandscape
        Sheets("Sheet1").Range("A34:J178").Copy
    .Range.Paste
            Application.CutCopyMode = False
  
End With

'Autofit Table so it fits inside Word Document
  Set WordTable = wdDoc.Tables(1)
            WordTable.AutoFitBehavior (wdAutoFitWindow)

End With

Set wdDoc = Nothing: Set wdApp = Nothing

End Sub