Is there a possible way to update wordart's text using macro?

[masterms]

Is there a possible way to update wordart's text using macro?

I got a wordart with text "aaa" in it, I want to update text to "bbb" using vba

office 2007

 

[masterms]

Seems like you could just change this bit of code...

Dim shp As Object
For Each shp In doc.InlineShapes
If shp.Type = msoTextEffect Then
If Not shp.TextEffect Is Nothing Then
    msg = msg & shp.TextEffect.Text & vbCrLf
End If
End If
Next shp

HTH. Dave

YOU SAVED MY DAY! THAAAAAANKS!!!

codes are tested!

Sub test1()

Dim pFindTxt As String
Dim pReplaceTxt As String
Dim rngStory As Word.Range
Dim oShp As Object ' HERE IS THE KEY!
Dim iShp As Integer

pFindTxt = "111"
pReplaceTxt = "222"

For Each rngStory In ActiveDocument.StoryRanges
        iShp = rngStory.InlineShapes.Count
        If iShp > 0 Then
            Debug.Print ("found inlineShape:" & iShp)
            For Each oShp In rngStory.InlineShapes
                Debug.Print ("processing")

                oShp.TextEffect.Text = Replace(oShp.TextEffect.Text, pFindTxt, pReplaceTxt)
                Debug.Print ("effect:" & oShp.TextEffect.Text)
               
            Next oShp

        End If
       
        iShp = rngStory.ShapeRange.Count
        If iShp > 0 Then
            Debug.Print ("found normalShape:" & iShp)
            For Each oShp In rngStory.ShapeRange
                Debug.Print ("processing")

                oShp.TextEffect.Text = Replace(oShp.TextEffect.Text, pFindTxt, pReplaceTxt)
                Debug.Print ("effect:" & oShp.TextEffect.Text)
               
            Next oShp

        End If

Next

End Sub

 

[NdNoviceHlp]

You are Welcome. Tetra201 and riv01 deserve most of the accolades. Thanks for posting your outcome. Dave