![]() The document contains two pages of formatted paragraphs, tables, and a chart. Press F5 to run the program and then click Command1.Īfter the code completes, examine the document that was created for you. OShape.Height = oWord.InchesToPoints(3.57) OShape.Width = oWord.InchesToPoints(6.25) 'Object model on the oChart object to make additional changes to the If desired, you can proceed from here using the Microsoft Graph :="", LinkToFile:=False, DisplayAsIcon:=False) 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
December 2022
Categories |