Info

1 Format the table With wdDoc.Application.Selection .Paste

With wdDoc.Application.ActiveDocument.Tables(l) .Rows.Alignment = wdAlignRowCenter With .Rows(1)

.HeadingFormat = True .Select wdApp.Selection.Font.Bold = True End With End With

.HomeKey Unit:=wdStory, Extend:=Move End With

' Save the document with a unique title and then close it wdDoc.SaveAs "C:\Reports\" & ThisCust & ".doc" wdDoc.Close savechanges:=False

WSO.Select

Set wdApp = Nothing Set wdDoc = Nothing Set wdRng = Nothing

1 clear the output range, etc.

Cells(1, NextCol + 2).Resize(1, 10).EntireColumn.Clear Next cell

Application.ScreenUpdating = True Cells(1, NextCol).EntireColumn.Clear MsgBox FinalCust - 1 & " Reports have been created!" End Sub

0 0

Post a comment