Set oShape = oDoc.Bookmarks("\endofdoc").( _ Loop While Pos >= oRng.Information(wdVerticalPositionRelativeToPage) Set oRng = oDoc.Bookmarks("\endofdoc").Range ODoc.Bookmarks("\endofdoc").Range.InsertParagraphAfter OTable.Columns(2).Width = oWord.InchesToPoints(3) OTable.Columns(1).Width = oWord.InchesToPoints(2) 'Change width of columns 1
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
June 2023
Categories |