If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
How to mass format 50 over tables
Hi all,
Probably this was discussed many times, but I can't seem to find it. Please help. I have a 100 pages long report with over 50 tables. However, there is a need to format all the tables such that each is 90% of the page width, the sides are made transparent, and each cell pad with 0.4 pt. Hope someone can guide with macros etc to automate the process. |
#2
|
|||
|
|||
How to mass format 50 over tables
Try this:
' Throw Away Macro created by Doug Robbins ' Dim i As Long, j As Long j = ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin - ActiveDocument.PageSetup.RightMargin For i = 1 To ActiveDocument.Tables.Count With ActiveDocument.Tables(i) .PreferredWidth = j * 0.9 .LeftPadding = 0.4 .RightPadding = 0.4 .Borders.InsideColor = wdColorWhite .Borders.OutsideColor = wdColorWhite .Rows.Alignment = wdAlignRowCenter End With Next i -- Please post any further questions or followup to the newsgroups for the benefit of others who may be interested. Unsolicited questions forwarded directly to me will only be answered on a paid consulting basis. Hope this helps Doug Robbins - Word MVP "James Tan79" wrote in message ... Hi all, Probably this was discussed many times, but I can't seem to find it. Please help. I have a 100 pages long report with over 50 tables. However, there is a need to format all the tables such that each is 90% of the page width, the sides are made transparent, and each cell pad with 0.4 pt. Hope someone can guide with macros etc to automate the process. |
Thread Tools | |
Display Modes | |
|
|