PDA

View Full Version : Fit Table content



dossfm0q
03-03-2009, 09:35 AM
Hi sir
I try with Code below to fit Table content after coy to Word Doc .But fail
wod you please if you can to convert some row to text .
Thanks




Public Sub copy_to_word()
Dim varDoc As Object
Set varDoc = CreateObject("Word.Application")
varDoc.Visible = True
Sheets("Sheet1").Range("A1:T17").Copy
varDoc.Documents.Add
varDoc.Selection.Paste

varDoc.ActiveDocument.SaveAs ThisWorkbook.Path & "/" & "testWord.doc"
varDoc.Windows("testWord").Activate
varDoc.ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitContent ' to Fit Content not working
varDoc.Documents("testWord.doc").Tables(1).AutoFitBehavior wdAutoFitContent 'or to Fit Content also not working
' varDoc.documents.Close
'varDoc.Quit
End Sub

p45cal
03-03-2009, 01:45 PM
try replacing
wdAutoFitContent
with
1