Adjust Microsoft Word table width via LotusScript
Here is the script:
Set wrdApp = CreateObject ("Word.Application") wrdApp.documents.add (xtempDrive$+"mydoc.doc") wrdApp.Visible = True ' Add a new document Set wrddoc = wrdapp.Application.ActiveDocument Set wrdSelection = wrdApp.Selection Set range = wrdSelection.range Set tables = wrdApp.Selection.tables.add (range, 1,7) Dim wdAdjustProportional As Integer Dim wdAdjustNone As Integer Dim wdAdjustFirstColumn As Integer wdAdjustProportional = 1 wdAdjustNone = 0 wdAdjustFirstColumn = 2 wrdDoc.Tables(1).Columns(1). SetWidth 1.18, wdAdjustProportional wrdDoc.Tables(1).Columns(2). SetWidth 0.02, wdAdjustProportional wrdDoc.Tables(1).Columns(3). SetWidth 2.5, wdAdjustProportional wrdDoc.Tables(1).Columns(4). SetWidth "0,02", wdAdjustProportional wrdDoc.Tables(1).Columns(5). SetWidth "1,3", wdAdjustProportional wrdDoc.Tables(1).Columns(6). SetWidth "0,02", wdAdjustProportional wrdDoc.Tables(1).Columns(7). SetWidth "1,12", wdAdjustProportional wrdDoc.Tables(1).Rows.Alignment 1 ' wrdDoc.Tables(1).Rows.SetLeftIndent -21.6
But LotusScript gives me this error, "Value out of range" when it hits the first "wrdDoc.Tables(x).Columns(x).SetWidth "xxxx", wdAdjustProportional."
Which is incorrect? Thank you very much.
I would also check the Microsoft sites and forums.
Do you have comments on this Ask the Expert question and response? Let us know.