vba - एक शब्द कैसे निकालें। चयन?




outlook ms-word (2)

आउटलुक ऐड-ऑन के संदर्भ में Outlook से WordEditor का उपयोग करते हुए। इंस्पेक्टर मैं कस्टम टेक्स्ट के साथ इसे स्थानांतरित करने के बाद चयन को हटाना चाहता हूं।

उदाहरण के लिए, यदि मैं कुछ चुनता हूं तो मैं निम्नानुसार एक कस्टम टेक्स्ट में चयन बदल सकता हूँ:

Word.Selection sel = doc.Windows[1].Selection;
Word.Range range = sel.Range;

    if(sel.Text.Length == 0) {
        MessageBox.Show("No Text is selected");

        return;
    }

sel.Text = "New Text";
sel.Collapse();

अगर मैं इस फ़ंक्शन को फिर से कॉल करता हूँ, अब sel.Text.Length 0 के बजाय 1 के बराबर है।


मुझे एमएस वर्ड में एक ही समस्या थी। वर्ड में एक विधि है जिसे सिलेक्शन.मॉव () कहा जाता है। यदि आप इसका उपयोग करते हैं तो यह चयनित पाठ को अचयनित करेगा और चयनित पाठ के अंत में कर्सर को स्थान देगा। उदाहरण के लिए आप उपयोग कर सकते हैं

ThisAddIn.Application.Selection.Move()

यदि आप चयनित पाठ को अचयनित करना चाहते हैं तो वर्ड में यह काम करता है, यह आउटलुक में भी काम कर सकता है, कोशिश कर सकता है और मुझे बताएं


आप कोशिश कर सकते हैं

Selection.Collapse Direction := wdCollapseStart

इससे मौजूदा चयन की शुरुआत और समाप्ति स्थिति समान मूल्य पर सेट होगी, अर्थात् वर्तमान चयन की शुरुआत (वर्तमान चयन के अंत के लिए wdCollapseEnd निर्दिष्ट करें)। परिणाम को वास्तव में एक चयन को हटाने से प्रोग्राम को अलग-अलग नहीं करना चाहिए।

आशा है कि यह मदद करता है, कार्स्टेन

पर लागू होता है: शब्द 2007 (परीक्षण), शब्द 2010; संभवतः अन्य रिलीज़





add-in