मैं PowerPoint 2007 में स्लाइड में एक दस्तावेज़ संपत्ति (जैसे लेखक का नाम) कैसे डाल सकता हूं? मुझे पता है कि यह माइक्रोसॉफ्ट वर्ड में किया जा सकता है, लेकिन मैं इसे पावरपॉइंट में नहीं खोज सकता।
(विचार यह है कि दस्तावेज़ संपत्ति के साथ सभी स्लाइड्स में पाद लेख की सामग्री को बदलना आसान है, भले ही आप अलग-अलग मास्टर पृष्ठों का उपयोग करें। यदि कोई अलग समाधान है, तो यह ठीक भी होगा।)
जवाबों:
जबकि वर्ड यह कर सकता है, PowerPoint नहीं कर सकता। AFAIK, आपके पास PPT में दस्तावेज़ गुण हो सकते हैं, लेकिन आप उन्हें स्लाइड पर सम्मिलित नहीं कर सकते। PowerPoint के लिए उपलब्ध एकमात्र अद्यतन फ़ील्ड दिनांक और स्लाइड संख्या है। वैसे भी, इसे प्राप्त करने के लिए VBA में कुछ समाधान हो सकते हैं। आप अपना मौका लेने के लिए Stackoverflow पर यह पूछ सकते हैं।
सभी स्लाइड्स पर टैग किए गए टेक्स्ट ऑब्जेक्ट्स में नामांकित संपत्तियों को डालने के लिए बस एक सबरूटीन लिखा था।
स्लाइड पर फाइल प्रॉपर्टी डालने के लिए। स्ट्रिंग को होल्ड करने के लिए एक टेक्स्टबॉक्स बनाएं। गुण / Alt पाठ में गुण नाम वर्ग वर्ग में रखें।
फिर मैक्रो को निष्पादित करें updateProperties()।
यानी [title]- दस्तावेज़ शीर्षक को कई पर अद्यतन करने की अनुमति देगा
दो विशेष टैग लिखे गए हैं:
[copyright]कॉपीराइट स्ट्रिंग, अर्थात् © 1998-2013 P.Boothroyd, NIS Oskemen सम्मिलित करेगा[page] संपादक टैब से स्लाइड नंबर सम्मिलित करेगा'सभी स्लाइड्स में दस्तावेज़ गुणों की प्रतिलिपि बनाएँ
'(c) 2013, NIS Oskemen के लिए P.Boothroyd
डिम प्रोसेसपेज के रूप में स्लाइड
उप अद्यतन
मंद पृष्ठ स्लाइड के रूप में
स्ट्रिंग के रूप में डिम प्रोपनाम
'सक्रिय प्रस्तुति (दस्तावेज़) में सभी स्लाइड्स पार्स करें
अनुप्रयोग में प्रत्येक प्रक्रिया के लिए
"" ["के साथ टैग किए गए" altText / शीर्षक "फ़ील्ड के साथ टेक्स्टबॉक्स के लिए पृष्ठ के सभी तत्वों को स्कैन करें
प्रत्येक obj के लिए processPage.Shapes में
यदि वाम (obj.Title, 1) = "[" तब
डिम sStart, SEnd As Integer
'वर्ग कोष्ठक के बीच से संपत्ति निकालें
sStart = 2
sEnd = InStr (2, obj.Title, "]")
propname = ट्रिम (मिड (obj.Title, sStart, sEnd - 2))
यदि obj.Type = msoTextBox उसके बाद
'पाठ बॉक्स को अनुरोधित मान पर सेट करें
obj.TextFrame.TextRange.Text = getProperty (Propname, obj.TextFrame.TextRange.Text)
अगर अंत
अगर अंत
अगला 'obj
अगला पृष्ठ
अंत उप
'नामित दस्तावेज़ संपत्ति प्राप्त करें (वैकल्पिक डिफ़ॉल्ट के साथ)
फंक्शन गेटप्रॉपर्टी (प्रोपनाम, स्ट्रिंग के रूप में वैकल्पिक हार) स्ट्रिंग के रूप में
'गुण को डिफ़ॉल्ट मान असाइन किया गया
getProperty = def
मंद ने बूलियन के रूप में पाया
पाया = गलत
propname = LCase (प्रोपनाम)
'कॉपीराइट एक उत्पन्न संपत्ति है
अगर प्रोपनाम = "कॉपीराइट" तब
स्ट्रिंग के रूप में मंद लेखक
स्ट्रिंग के रूप में मंद कंपनी
स्ट्रिंग के रूप में मंद वर्ष
स्ट्रिंग के रूप में मंद वर्ष
'सभी उपयुक्त चर प्राप्त करें
लेखक = getProperty ("लेखक", "")
कंपनी = getProperty ("कंपनी", "")
वर्षफल = getProperty ("बनाया गया", "")
वर्ष = प्रारूप (अब) (, "YYYY")
'कॉपीराइट प्रतीक डालें
getProperty = Chr (169) + "
'कॉपीराइट सूचना के लिए वर्ष की अवधि संलग्न करें
यदि वर्षफल फिर से
getProperty = getProperty + yearFrom + "-"
अगर अंत
getProperty = getProperty + yearTo
'लेखक जोड़ें
getProperty = getProperty + "" + लेखक
लेखक / कंपनी के लिए विभाजक जोड़ें यदि दोनों मौजूद हैं
यदि लेन (लेखक)> 0 और लेन (कंपनी)> 0 तब
getProperty = getProperty & ","
अगर अंत
getProperty = getProperty & company
'संसाधित है, इसलिए मान लौटाएं
पाया = सत्य
अगर अंत
'दस्तावेज़ में स्लाइड नंबर डालें
अगर प्रोपनाम = "पेज" तब
getProperty = processPage.SlideNumber
पाया = सत्य
अगर अंत
'यदि उत्पन्न नाम निर्मित मान लौटाते हैं
अगर मिला तो GoTo रिटायर
नामित मूल्य के मानक एमएस (फ़ाइल) गुणों के लिए स्कैन करें
प्रत्येक पी के लिए Application.ActivePresentation.BuiltInDocumentProperties में
यदि LCase (p.Name) = प्रोपनाम तब
getProperty = p.Value
पाया = सत्य
के लिए बाहर निकलें
अगर अंत
अगला 'पी
'नामित मान के अनुकूलित गुणों के लिए स्कैन करें
अगर मिला तो GoTo रिटायर
प्रत्येक पी के लिए Application.ActivePresentation.CustomDocumentProperties में
यदि LCase (p.Name) = प्रोपनाम तब
getProperty = p.Value
पाया = सत्य
के लिए बाहर निकलें
अगर अंत
अगला 'पी
गीला करना:
अंत समारोह
वर्कअराउंड कस्टम गुणों का उपयोग करना है जिसे आप आसानी से "गो टू" (स्लाइड के माध्यम से उतारा करने की आवश्यकता नहीं) कर सकते हैं।
से http://msdn.itags.org/powerpoint/4426/ :
- उस आकार या पाठ का चयन करें जिसे आप बुकमार्क करना चाहते हैं।
- फ़ाइल का चयन करें | गुण ... और कस्टम टैब सक्रिय करें।
- बुकमार्क के लिए एक नाम टाइप करें।
- 'सामग्री के लिए लिंक' पर टिक करें। जब आप 'सामग्री से लिंक' पर टिक करते हैं, तो आसन्न ड्रॉपडाउन बॉक्स में सूचीबद्ध मूल्य आपके चयन का एक संदर्भ है।
- जोड़ें पर क्लिक करें।
- गुण संवाद को बंद करने के लिए ठीक क्लिक करें।
अब जब आपने एक बुकमार्क बना लिया है, तो आप निम्नानुसार उस पर कूद सकते हैं:
1. संपादित करें चुनें | गोटो प्रॉपर्टी ...
2. डायलॉग से प्रॉपर्टी नाम पर क्लिक करें (यह वह नाम है जो आपने बुकमार्क को दिया था)।
3. Go to पर क्लिक करें।
"गो टू" संवाद आपको बुकमार्क की एक सूची प्रस्तुत करता है जिसे आप डबल-क्लिक कर सकते हैं, और अपने पसंदीदा टेक्स्टबॉक्स में जाते हैं, जिसे संपादित / पेस्ट करने के लिए तैयार किया जाता है।
पावरपॉइंट में ऐसा करने का सबसे आसान तरीका (कम से कम उन मूल्यों के लिए जो हर स्लाइड पर दिखाई देगा) स्लाइड मास्टर को संपादित करना है। लेखक का नाम वहाँ रखो।
(एक संभावित कारण जो वर्ड आपको देता है, और कोई भी ऐसा नहीं करता है, वह यह है कि Microsoft की विभिन्न टीमें शायद ही कभी एक-दूसरे से बात करें)
Ppt 2019 के साथ हैंडल कोड के लिए अपडेट: मैंने फॉर-नेक्स्ट रूटीन को थोड़ा बदल दिया, इसका कारण यह है कि फ्रंट एंड यूज़र के लिए राइट माउस बटन द्वारा "अल्टरनेटेक्स" को बदलना आसान है:
For Each ShapeObj In processPage.Shapes
If Left(ShapeObj.AlternativeText, 1) = "[" Then
'If Left(ShapeObj.Title, 1) = "[" Then
Dim sStart, sEnd As Integer
' extract property from between square brackets
sStart = 2
'sEnd = InStr(2, ShapeObj.Title, "]")
sEnd = InStr(2, ShapeObj.AlternativeText, "]")
'propname = Trim(Mid(ShapeObj.Title, sStart, sEnd - 2))
propname = Trim(Mid(ShapeObj.AlternativeText, sStart, sEnd - 2))
ShapeObj.TextFrame.TextRange.Text = getProperty(propname, ShapeObj.TextFrame.TextRange.Text)
End If
Next ' obj