Sahanya

Wenn man in einem Office-Dokument via VBA einzelne Objekt-Formen ansprechen möchte, die z. B. über das Menü „Einfügen” eingefügt wurden, muss man die jeweilige Shape bzw. Form einzeln ansprechen, da sonst sämtliche Formen betroffen wären.

Hier zwei Beispiele:

Sub Textboxen()
'Text in Textboxen wird grün

Dim Form As Shape

On Error Resume Next

For Each Form In ActiveDocument.Shapes
If Form.Type = msoTextBox Then
Form.TextFrame.TextRange.Font.Color = wdColorGreen
End If
Next

End Sub

Sub Linienloeschen()

'Linien werden gelöscht

Dim Form As Shape
For Each Form In ActiveDocument.Shapes
If Form.Type = msoLine Then
Form.Delete
End If
Next

End Sub

Bei René Probst gibt es eine Auflistung sämtlicher Shapes.