希望在Powerpoint中查找文本并使用VBA在excel中使用单元格中的文本进行替换，但始终会出错

Question

this part of my code should find text in powerpoint shapes and replace it with text from a cell in excel:

Dim oSld As Slide
Dim oShp As Shape
Dim oTxtRng As TextRange
Dim oTmpRng As TextRange
Dim strWhatReplace As String, strReplaceText As String

 ' write find text
strWhatReplace = "xxxxx"
 ' write change text
strReplaceText = Sheet13.Range("C1").Value


        ' go during each slides
For Each oSld In ppPres.Slides
     ' go during each shapes and textRanges
    For Each oShp In oSld.Shapes
         ' replace in TextFrame
        Set oTxtRng = oShp.TextFrame.TextRange
        Set oTmpRng = oTxtRng.replace( _
        FindWhat:=strWhatReplace, _
        Replacewhat:=strReplaceText, _
        WholeWords:=True)

            Do While Not oTmpRng Is Nothing 
            Set oTxtRng = oTxtRng.Characters _
            (oTmpRng.Start + oTmpRng.Length, oTxtRng.Length)
            Set oTmpRng = oTxtRng.replace( _
            FindWhat:=strWhatReplace, _
            Replacewhat:=strReplaceText, _
            WholeWords:=True)
        Loop
    Next oShp
Next oSld

I keep getting runtime error 13, type mismatch - the debug highlights 'For Each oShp In oSld.Shapes' Not sure where I am going wrong

Answer 1

That means VBA thinks that the variable type of oShp is not the same as the type returned by oSld.Shapes. The code looks ok to me but you could type this in the Immediate window to double check when the code stops at that point:

?TypeName(oShp)
?TypeName(oSld.Shapes)

You should see that one is not of type Shape (although I can't see how when reading your code).

Where is ppPres getting declared and set? Is that of type Presentation?

Answer 2

If you have references to Microsoft Excel and Microsoft PowerPoint Object Library, then there are two types of Shape s.

Seems you have dimensioned Excel.Shape but then you get PowerPoint.Shape .

Try Dim oShp As PowerPoint.Shape .