fjerne rammen om tekstboks

Hvis tekstbokse er de eneste figurer du har i dokumentet, kan du bruge denne makro:

Sub Makro31()
    For Each s In ActiveDocument.Shapes
        s.Select
        Selection.ShapeRange.Line.Visible = msoFalse
    Next s
End Sub

Du kan også bruge denne, hvor du undgår, at markøren skal bevæge sig igennem dokumentet for at vælge (select) hver enkelt figur.
**********
Sub FjernRammer()
    Dim objShape As Shape
   
    For Each objShape In ActiveDocument.Shapes
        objShape.Line.Visible = msoFalse
    Next objShape
End Sub

Ja, eller vælge dem alle i et "hug" :-)

Sub FR()
    ActiveDocument.Shapes.SelectAll
    Selection.ShapeRange.Line.Visible = msoFalse
End Sub

Godt tænkt, jkrons :-)

Tak :-)

takker begge to :)
smider i begge svar? I supplerede vist hinanden godt ;)

Velbekomme. Jeg undlader at svare for med de dokumenter og shapes, som du har, er jkrons' 2. løsning vist den bedste :-)

Her et svar, men jeg synes at word-hajen bør med også .-)