oWord = CreateObject('Word.Application') oDoc = oWord.Documents.Add oDoc.Paragraphs.Add && just for the heck of it oRange = oDoc.Paragraphs(2).Range && get the range oFrame = oDoc.Frames.Add(oRange) && add a frame oTable = oDoc.Tables.Add(oFrame.Range,4,3) && add a 4 row, 3 col table to the frame * set some column widths - default for frame is to auto resize oTable.Columns(1).Width = 60 oTable.Columns(2).Width = 60 oTable.Columns(3).Width = 60 oFrame.WidthRule= 2 && wdFrameExact lnWidth = 0 For lnCount = 1 to oTable.Columns.Count lnWidth = lnWidth + oTable.Columns(lnCount).Width EndFor oFrame.Width = lnWidth oFrame.HorizontalPosition= ; (oDoc.PageSetup.pagewidth-oDoc.PageSetup.LeftMargin - ; oDoc.PageSetup.RightMargin - oFrame.Width)/2Alan