Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1Ī Range:=Selection.Range, NumRows:=4, NumColumns:= _Ģ, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend I promise to post my results for everyone.ĭocuments.Add DocumentType:=wdNewBlankDocument When I get home tonight, I'll try tweaking the code and see if your fix is the magic answer. I just can't get it to do it in the table cell.įumei - Thanks! As you can see in my code below, I tried using extend to tell VBA where to format, but it didn't really work. Alternatively, sometimes when I tweak the code, it inserts all the text after the table and formats it too. Then it ignores all the insert text and "TypeParagraph" code. I had no trouble whatsoever creating a new blank document, setting the margins, creating the table, setting the vertical alignment for the rows and creating, coloring and placing two drawing shapes in the document however, when it hits the paragraph alignment center code it just stops or ignores it. I started the whole thing by recording it, and I've been debugging it ever since.
0 Comments
Leave a Reply. |