मैं एमएस वर्ड मैक्रो में किसी तालिका के पेज नंबर को कैसे निर्धारित कर सकता हूं?

Question

मेरे पास 200+ पृष्ठों और यहां तक ​​कि और भी तालिकाओं के साथ एमएस वर्ड 2016 में एक दस्तावेज़ है। मुझे अजीब पृष्ठों पर बाईं ओर सभी तालिकाओं को संरेखित करने की आवश्यकता है और मुझे दाईं ओर गठबंधन पृष्ठों पर सभी तालिकाओं की आवश्यकता है। एक या दो टेबलों को छोड़कर जिन्हें मैं मैन्युअल रूप से संशोधित कर सकता हूं यदि आवश्यक हो तो कोई भी तालिका एकाधिक पृष्ठों तक फैली नहीं है।

Dim oTable As Table 
For Each oTable In ActiveDocument.Tables 
    oTable.Rows.Alignment = wdAlignParagraphRight 
Next oTable 

मैं सभी तालिकाओं को दाईं ओर संरेखित कर सकता हूं। wdAlignParagraphRight के बजाय wdAlignParagraphLeft का उपयोग करते समय मैं बाईं ओर सभी तालिकाओं को संरेखित कर सकता हूं। लेकिन मुझे यह नहीं पता था कि तालिका के पेज नंबर को कैसे प्राप्त किया जाए ताकि मैं तालिका संख्या के आधार पर संरेखण असाइन कर सकूं।

(विचार यह है कि यदि एक पुस्तक के रूप में मुद्रित किया जाता है, तो तालिका हमेशा आंतरिक तरफ होती है। अगर इसे पूरा करने का एक बेहतर तरीका है तो मैं सुनूंगा। अगर एक पुस्तक के रूप में मुद्रित किया गया है और दो पृष्ठ हैं

oTable.Range.Information(wdActiveEndPageNumber) 

वजह, पाश करने के लिए सभी के माध्यम से: एक दूसरे को टेबल अंदरूनी हिस्से पर होना चाहिए इस :) तरह

+-------------------------------+ 
| Even Page | Odd page | 
+---------------+---------------+ 
|  |Table| | |Table|  | 
|    |    | 
+-------------------------------+ 

Answer 1

यांकी, आपको लगता है कि एक विशेष तालिका का उपयोग कर पर बैठता है पृष्ठ संख्या निर्धारित कर सकते हैं अपने दस्तावेज़ में तालिकाओं का और उन्हें पृष्ठ की अजीब या यहां तक ​​कि प्रकृति के अनुसार संरेखित करें जिस पर वे बैठते हैं, आप इसका उपयोग करेंगे:

Dim oTable As Table 
Dim PageNo As Integer 

For Each oTable In ActiveDocument.Tables 
    PageNo = oTable.Range.Information(wdActiveEndPageNumber) 
    If PageNo Mod 2 = 0 Then 'The page number is EVEN. 
     oTable.Rows.Alignment = wdAlignParagraphRight 
    Else      'The page number is ODD. 
     oTable.Rows.Alignment = wdAlignParagraphLeft 
    End If 
Next oTable 

क्या आपके कोई अन्य प्रश्न हैं, पूछने में संकोच नहीं करें।