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]

Sub FindWordArtTextInWord2007()    
  Dim doc As Document    
  Dim shp As Shape    
  Dim msg As String    
  Set doc = ActiveDocument    
  msg = "Wordart content：" & vbCrLf    
  For Each shp In doc.Shapes       
       If shp.Type = msoTextBox Or shp.Type = msoAutoShape Then   
              If Not shp.TextFrame Is Nothing And Not shp.TextFrame.TextRange Is Nothing Then
                     msg = msg & shp.TextFrame.TextRange.Text & vbCrLf 
              End If
       End If
Next shp 

MsgBox msg, vbInformation, "WordArt text :"        
 Set doc = NothingEnd Sub

always return nothing or ##000##

 

[Tetra201]

See if the following sub works for you:

Sub FindWordArtTextInWord2007()
    Dim doc As Document
    Dim shp As Shape
    Dim msg As String
    Set doc = ActiveDocument
    msg = "Wordart content:" & vbCrLf
    For Each shp In doc.Shapes
        If shp.Type = msoTextEffect Then
            If Not shp.TextEffect Is Nothing Then
                msg = msg & shp.TextEffect.Text & vbCrLf
            End If
        End If
    Next shp
    MsgBox msg, vbInformation, "WordArt text :"
    Set doc = Nothing
End Sub

 

[masterms]

Sub FindWordArtTextInWord2007() Dim doc As Document Dim shp As Shape Dim msg As String Set doc = ActiveDocument msg = "Wordart content:" & vbCrLf For Each shp In doc.Shapes If shp.Type = msoTextEffect Then If Not shp.TextEffect Is Nothing Then msg = msg & shp.TextEffect.Text & vbCrLf End If End If Next shp MsgBox msg, vbInformation, "WordArt text :" Set doc = Nothing End Sub

still nothing

 

[rlv01]

I ran your code as posted in post #2 and it worked for me:

In my case it sees the WordArt I added as type msoTextBox.

 

[masterms]

I ran your code as posted in post #2 and it worked for me:

View attachment 110609

In my case it sees the WordArt I added as type msoTextBox.

what's your office version?

 

[rlv01]

That was 2010.

 

[masterms]

I found out why it doesn't work for me, in Office 2007 , wordart is a inlineShape, which is not a regular shape!
but I still can't find a way to change inlineshape's text

frustrating

any help?

 

[masterms]

update:
"inlineshape" only happens when it's position is sett to inline , other are normal shape.
eg.when setting to "floating above text" or "under text", which is normal shape.

but I need inline

 

[NdNoviceHlp]

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