Excel Export To Word Macro Cuts Off on Right Side

[b_choplick]

I am currently creating a macro that exports all visible sheets in my workbook to a new Word document. My current code works fine for moving all of the correct sheets to the new Word document, but it is not properly formatting all of the pages. There are some that end up running off the right hand side of the page. Is there a way to reformat this code to properly format these pages? Here is my current code for this part:


' requires a reference to the Word Object library:
' in the VBE select Tools, References and check the Microsoft Word X.X object library
Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet

Application.ScreenUpdating = False
Application.StatusBar = "Creating new document..."
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Add
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible = True Then

Application.StatusBar = "Copying data from " & ws.Name & "..."

ws.UsedRange.Copy ' or edit to the range you want to copy
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste
Application.CutCopyMode = False
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter
' insert page break after all worksheets except the last one
If Not ws.Name = Worksheets(Worksheets.Count).Name Then
With wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range
.InsertParagraphBefore
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
End With
End If
End If

Next ws
Set ws = Nothing