एक पावरपॉइंट टेबल सेल में स्वरूपित पाठ को HTML में कैसे परिवर्तित करें

Question

मैं एक तालिका को पावरपॉइंट स्लाइड में HTML में बदलना चाहता हूं। मुझे पता है कि टेबल टैग में कैसे रखा जाता है, लेकिन यह काम नहीं कर सकता कि टेबल सेल के अंदर फॉर्मेट किए गए टेक्स्ट को HTML में कैसे बदलें। इसलिए, उदाहरण के लिए, मैं "यह बोल्ड टेक्स्ट के साथ एक सेल है " को "यह <b> बोल्ड </ b> टेक्स्ट के साथ एक सेल कैसे बदल सकता है "?

मुझे इसके लिए बोल्ड, इटैलिकाइज़्ड और कलर्ड टेक्स्ट (और, आदर्श रूप से, फॉन्ट साइज़ और फॉन्ट परिवार) के लिए सक्षम होना चाहिए। मैं वास्तव में खुद पावरपॉइंट टेबल सेल को बदलना नहीं चाहता हूं, लेकिन बस एक html स्ट्रिंग इकट्ठा करता हूं जिसे मैं एक json ऑब्जेक्ट में बचाऊंगा ।

मुझे पता है कि Word में यह कैसे करना है। Word.range सेट करके और फाइंड विधि का उपयोग करके । लेकिन मैं इसे पावरपॉइंट में दोहराने में सक्षम नहीं हूं।

Comments

HTML के रूप में निर्यात क्यों नहीं?

— DavidPostill

@ दाऊद। यह जटिल है, लेकिन मुझे html स्ट्रिंग की आवश्यकता है एक json फाइल में उपयोग करने की जो मुझे मूल इंटरप्रेन्योर स्लाइड्स के आधार पर एक इंटरैक्टिव स्लाइड शो बनाने की अनुमति देती है। Vba ppSaveAsHTML और ppSaveAsWebArchive ने कुछ भी ऐसा उत्पादन नहीं किया जिससे मैं पुनर्निर्माण कर सकूं।

— जूता

@ दाऊद। आपकी टिप्पणी के लिए धन्यवाद, मैंने यह स्पष्ट करने के लिए प्रश्न संपादित किया है कि मैं HTML स्ट्रिंग का उपयोग कैसे करना चाहता हूं।

— जूता

यह वास्तव में स्टैकओवरफ्लो में बेहतर दर्शक प्राप्त कर सकता है। काश मैं मदद कर सकता, लेकिन मैं +1 नहीं कर सकता

— Raystafarian

Raystafarian का सही: StackOverflow एक बेहतर दर्शक है। और एफडब्ल्यूआईडब्ल्यू, पीपीटी 2010 के रूप में, पीपीटी अब यूआई के माध्यम से एचटीएमएल को निर्यात नहीं करता है (हालांकि आप 2013 में वीबीए से एक्सपोर्ट विधि को कॉल कर सकते हैं, यहां तक ​​कि चला गया है)। त्वरित उत्तर है कि प्रत्येक TextRange में एक Runs संग्रह है। यदि श्रेणी के सभी पाठ समान रूप से स्वरूपित हैं, तो संग्रह में केवल एक ही रन होगा। यदि फ़ॉन्ट / आकार / रंग / बोल्डनेस मिडस्ट्रीम में बदल जाता है, तो रन कलेक्शन बढ़ जाएगा। संग्रह में प्रत्येक रन तक पहुँच आपको एक TextRange देता है जिसके फ़ॉन्ट गुण आप जांच सकते हैं।

— स्टीव रिंड्सबर्ग

Answer 1

प्रत्येक TextRange में एक रन संग्रह है। यदि श्रेणी के सभी पाठ समान रूप से स्वरूपित हैं, तो संग्रह में केवल एक ही रन होगा।

यदि फ़ॉन्ट / आकार / रंग / बोल्डनेस मिडस्ट्रीम में बदल जाता है, तो रन कलेक्शन बढ़ जाएगा।

संग्रह में प्रत्येक रन तक पहुँच आपको एक TextRange देता है जिसके फ़ॉन्ट गुण आप जांच सकते हैं। उदाहरण के लिए मान लें कि आपके पास ऐसा पाठ है (सभी एक आकार में)

यह पाठ सभी एक ही स्वरूपित है। इस पाठ में कुछ बोल्ड पाठ शामिल है।

Sub thing()

Dim oSh As Shape
Dim oRng As TextRange
Dim x As Long
Dim y As Long

' Assume that the shape with your text is selected
Set oSh = ActiveWindow.Selection.ShapeRange(1)

' You can look at the text in the shape as a whole,
' or paragraph by paragraph or line by line or character by character.
' Let's do it para by para

With oSh.TextFrame.TextRange
    For x = 1 To .Paragraphs.Count

        With .Paragraphs(x)
            Debug.Print "Paragraph: " & x
            For y = 1 To .Runs.Count
                Debug.Print vbTab & "Run: " & y
                Debug.Print .Runs(y).Font.Bold
            Next
        End With
    Next
End With

End Sub

पैराग्राफ: 1 रन: 1 0 पैरा: 2 रन: 1 0 रन: 2 -1 रन: 3 0

पहले पैराग्राफ में केवल 1 रन है, क्योंकि सभी टेक्स्ट को एक ही स्वरूपित किया गया है। 0 = बोल्ड नहीं हुआ।

दूसरे पैराग्राफ में 3 रन हैं (प्रत्येक वर्ण के लिए एक जो पिछले चरित्र से अलग स्वरूपित है)। नोटबॉल्ड, बोल्ड, नोटबोल्ड