fields in a powerpoint document

[Guest]

I am trying to create a master document that I can populate with entries in
specific fields from either the document properties or an entry form (i.e. a
master document that I can then easily change the client name, date, project
name etc. throughout the document.
Any help gratefully received!

 

[Guest]

This vba would swap any instance of "xname" with the name you input when it
runs. It could easily be extended to swap "xtitle" etc.

Sub merger()
On Error GoTo errhandler
Dim xname As String
xname = InputBox("Name")
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame And oshp.TextFrame.HasText Then
With oshp.TextFrame
If .TextRange = "xname" Then .TextRange = xname
End With
End If
Next
Next
Exit Sub
errhandler:
MsgBox ("Sorry there's been an error!")
End Sub
--

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html

 

[Guest]

With a little more thought the previous code will only work if xname is the
sole content of the text frame!

This may work better
Sub merger()
On Error GoTo errhandler
Dim xname As String
Dim oTxtRng As TextRange
Dim oTmpRng As TextRange
xname = InputBox("Name")


Set osld = Application.ActivePresentation.Slides(1)
For Each oshp In osld.Shapes
Set oTxtRng = oshp.TextFrame.TextRange
Set oTmpRng = oTxtRng.Replace(FindWhat:="xname", _
Replacewhat:=xname, WholeWords:=True)
Do While Not oTmpRng Is Nothing
Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
oTxtRng.Length)
Set oTmpRng = oTxtRng.Replace(FindWhat:="xname", _
Replacewhat:=xname, WholeWords:=True)
Loop
Next oshp

Exit Sub
errhandler:
MsgBox ("Sorry there's been an error!")
End Sub


--

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html

 

[David M. Marcovitz]

Perhaps PPT Merge can help:

http://www.rdpslides.com/pptools/merge/index.html

--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

=?Utf-8?B?UGhpbGlwIE1pY2hlbGw=?= <Philip
(e-mail address removed)> wrote in