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 !!!
|