![]() ![]() I updated the subroutine a bit myself so that it handles my use case: I needed to insert several custom properties in the same text box, and 1 text box per property couldn't work for me. ' scan for customised properties of the named valueįor Each p In ' scan for standard MS (file) properties of the named valueįor Each p In ' if generated name created return the value ![]() ' insert the slide number into the document If Len(author) > 0 And Len(company) > 0 Then ' add separator for author/company if both exist GetProperty = getProperty + yearFrom + "-" ' get the named document property (with optional default)įunction getProperty(propname, Optional def As String) As String ' set the text box to the requested value Propname = Trim(Mid(obj.Title, sStart, sEnd - 2)) ' extract property from between square brackets ' scan all elements of page for textbox with tagged "altText/title" field with "[" ' parse all slides in the active presentation (document)įor Each processPage In ' Copy document properties into all slides would insert the slide number from the editor tab.would allow the document title to be updated on multiple Then execute the macro updateProperties(). In the properties/Alt Text put the property name into square brackets. Just wrote a subroutine to put named properties into tagged text objects on all slides.
0 Comments
Leave a Reply. |