View Single Post
 
Old 09-26-2021, 07:42 PM
Bikram Bikram is offline Windows 10 Office 2007
Advanced Beginner
 
Join Date: Jul 2021
Location: Nepal
Posts: 90
Bikram is on a distinguished road
Post Fomatting Tables differently in Odd and even pages

Greetings to all the seniors, I am facing a problem and looking forward to a solution.

I am working in mirror margin pages where margins would be Top 1.3, Bottom 1.3, Left 1.8, and right 4.8 Where 3 cm is extra in each page for text boxes. Now, the table I formatted for odd pages does not match if extra contents is added on previous pages.
I want to know whether I can format the tables according to the odd and even pages differently.

Sub formattingtables()
Dim doc as documents
Dim tt as integer
Dim I as integer

Set doc = Application.Activedocument
tt = t.count

For i = 1 to tt

' If doc.tables(i) is in odd pages then

doc.Tables(i).Rows.LeftIndent = CentimetersToPoints(3)
doc.Tables(i).PreferredWidthType = wdPreferredWidthPoints
doc.Tables(i).PreferredWidth = CentimetersToPoints(12)
End If
' If doc.tables(i) is in even pages then
doc.Tables(i).Rows.Alignment = wdAlignRowRight
doc.Tables(i).Rows.Alignment = wdAlignRowLeft
doc.Tables(i).PreferredWidthType = wdPreferredWidthPoints
doc.Tables(i).PreferredWidth = CentimetersToPoints(12)
End If
End Sub

Next



End Sub

Any help would be greatly appreciated !!!
TThanks in advance !!!
Reply With Quote