word 2010 lack of recoding macros macro help 1

[DougP]

I had for several years an elipse shape macro I added to documents, but no more in 2010.
when I click the mouse and do the motions I get Zilch.
so I saw using keyboard shortcuts and now I get 2 subs of ????
What is this? where is the elipse shape in here?
I created an elipse set back fill to none and made the color red. and this is the code

Sub ImageAddFrame_TextWrapTB()
'
' ImageAddFrame_TextWrapTB Macro

    Dim Shp As Shape
    
    With Selection
    
        If .InlineShapes.Count = 1 Then
          Set Shp = .InlineShapes(1).ConvertToShape
        Else
          Set Shp = .ShapeRange(1)
        End If
        
        With Shp
          With .WrapFormat
            .Type = wdWrapTopBottom
            .DistanceTop = InchesToPoints(0.1)
            .DistanceBottom = InchesToPoints(0.1)
          End With
            With .Line
              .Weight = 2#
              .ForeColor.RGB = RGB(0, 0, 0)
            End With
            
      End With
End With

'
End Sub

 Imp Case Is <= Option Private Module ' <<< what is this it added to teh bottom of the  Module
'
' RedElipse Macro
'
'
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

DougP

 

[SkipVought]

hi,

Please repost ALL YOUR CODE, as there is something missing, and please do it in forum707 and not here in the OFFICE forum where code is not where VBA coders normally look.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[strongm]

Word 2010 is bugged with respect to macro recording shapes (although MS seem to claim it is 'by design')

If you first save your document as a DOC instead of a DOCX (or DOCM), it works.

 

[strongm]

Oh, I should point out that it still isn't a 100% solution, as the recorded macro plays back slightly differently in a DOC than it does in a DOCX.

 

[DougP]

strongm , Cool
"if you first save your document as a DOC instead"

DougP