वर्ड वीबीए - फ़्लोटिंग ऑब्जेक्ट टेबल्स को हटाएं

Question

मेरे पास कुछ हद तक "दूषित" टेबल के साथ वर्ड दस्तावेज़ों का एक टन है। मैं अधिकांश मरम्मत प्रक्रिया को स्वचालित करने में सक्षम हूं, लेकिन एक मुद्दा अभी भी मेरे बाहर है।

कई टेबल फ़्लोटिंग ऑब्जेक्ट्स हैं - जब मैं छुपा स्वरूपण अंक दिखाता हूं, तो मुझे तालिका द्वारा एक एंकर दिखाई देता है। मैं इस तरह के दस्तावेजों को नहीं छोड़ सकता, मुझे सब कुछ इनलाइन बनाने की जरूरत है।

मेरे पास कोड का एक सेगमेंट है जो "इसे ठीक करता है", लेकिन मुझे नहीं लगता कि यह एक अच्छा समाधान है। "कोई नहीं" (डिफ़ॉल्ट - जो मैं चाहता हूं) से टेक्स्ट रैपिंग को "आसपास" और "कोई नहीं" पर वापस बदलकर, यह ठीक हो जाता है। कोड है,

Selection.Tables(1).Rows.WrapAroundText = True 
Selection.Tables(1).Rows.WrapAroundText = False 

मुझे यकीन है कि ऐसा करने का एक बेहतर तरीका है। क्या किसी को कुछ ऐसा पता चलेगा जो काम करेगा? धन्यवाद!

Answer 1

क्या आप भ्रष्ट डाउनलोड के लिए नमूना दस्तावेज़ पोस्ट कर सकते हैं? यह सुनकर कि आपको एंकर मिला है, शब्द में एक नई पंक्ति के लिए प्रतीक, मैं यह करने का सबसे अच्छा तरीका होगा।

आपका कोड प्रत्येक तालिका को देखने के लिए लगता है जैसे आप इसे चुनते हैं, या आपका कोड इसे चुनता है (?)।

किसी भी संभावित समस्या को हल करने के लिए अपने कोड में जोड़ें।

For Each Table In Selection.Tables 
    If Table.Rows.WrapAroundText = True Then 
     Table.Rows.WrapAroundText = True 
     Table.Rows.WrapAroundText = False 
    End If 
Next 

Answer 2

मुझे पता नहीं WrapAroundText झंडा फड़फड़ाने हल करती है क्यों आपकी समस्या, VBA ऐसे ही quirks के बहुत है की है। यदि इस या किसी भी सवाल का जवाब हल किया है अपने प्रश्न कृपया पर विचार [इसे स्वीकार] (http

Dim i as Integer 
For i=1 to Len(ActiveDocument.Tables) 
    ActiveDocument.Tables(i).Rows.WrapAroundText = True 
    ActiveDocument.Tables(i).Rows.WrapAroundText = False 
Next i