PowerPoint पाठ के लिए फ़ॉन्ट स्वरूपण लागू प्रोग्राम के

Question

मैं एक PowerPoint TextRange में कुछ पाठ सम्मिलित करने के लिए VBA का उपयोग करने की कोशिश कर रहा हूँ, मैं कुछ इस तरह का उपयोग करें:

ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text = "Hi" 

हालांकि, मैं समझ नहीं कैसे बोल्ड लागू करने के लिए , इटालिक और प्रोग्रामलाइन रूप से रेखांकित (मुझे एक RichText संपत्ति या कुछ समान नहीं दिख रहा है)।

मेरे पास बोल्ड, इटैलिक और रेखांकित टेक्स्ट के साथ कुछ सरल HTML टेक्स्ट है जो मैं कन्वर्ट करना चाहता हूं।

क्या कोई यह जानता है कि यह कैसे करें?

Answer 1

यह आसानी से TextRange के Characters, Words, Sentences, Runs और Paragraphs वस्तुओं का उपयोग करके पूरा किया जाता है और फिर इसे स्थापित करने के लिए बोल्ड Font वस्तु है, रेखांकन और इटैलिक (अन्य संपत्तियों के बीच)। उदाहरण के लिए:

Sub setTextDetails() 
    Dim tr As TextRange 
    Set tr = ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.TextRange 
     With tr 
      .Text = "Hi There Buddy!" 
      .Words(1).Font.Bold = msoTrue 
      .Runs(1).Font.Italic = msoTrue 
      .Paragraphs(1).Font.Underline = msoTrue 
     End With 
End Sub 

Answer 2

TextRange object पर MSDN's documentation पर देखने का प्रयास करें। इसमें TextRange ऑब्जेक्ट के फ़ॉन्ट गुणों का उपयोग करने के नमूने शामिल हैं।

संपादित करें: आप प्रोग्राम के रूप में इस तरह से बोल्ड और इटैलिक जैसी चीजों का उपयोग कर सकते हैं:

TextRange.Font.Bold = msoTrue 

संपादित: ऐसे कई तरीके है जिसके द्वारा आप एक पाठ रेंज में केवल कुछ पाठ का चयन कर सकते हैं। निम्नलिखित देखें:

• Characters Method
• Lines Method
• Paragraphs Method
• Words Method

this link से sames के अनुसार, आप इन तरीकों में से एक का उपयोग कर पाठ का एक भाग का चयन कर सकते हैं और प्रोग्राम प्रोग्रामिक रूप से सेट करें। उदाहरण के लिए:

Application.ActiveDocument.Pages(1).Shapes(2) _ 
.TextFrame.TextRange.Words(Start:=2, Length:=3) _ 
.Font.Bold = True 

वह उदाहरण शब्द विधि लिंक से लिया गया था।

Answer 3

उपरोक्त उत्तर के अतिरिक्त, आपको उन वस्तुओं को नाम देने का प्रयास करना चाहिए जिन्हें आप बदल रहे हैं, क्योंकि उन्हें प्रेजेंटेशन के बीच में चुनने से PowerPoint कार्य विचित्र रूप से हो सकता है। एक नया टेक्स्टरेंज ऑब्जेक्ट बनाएं और इसे इस तरह सेट करें।

dim mytextrange As TextRange 
Set mytextrange = ActiveDocument.Pages(1).Shapes(2).TextFrame.TextRange 
mytextrange.Words...