Hallo,
ich benutze in Word folgendes Makro:
Sub Ausblenden()
Selection.Collapse Direction:=wdCollapseStart
Word.Application.ScreenUpdating = False
' ...
Dim i As Integer
Dim shP As Shape
For i = 1 To ActiveDocument.Shapes.Count
For Each shP In ActiveDocument.Shapes
If shP.Name = "Ausblenden" Then shP.Visible = False
Next
Next i
Word.Application.ScreenUpdating = True
End Sub
Das Makro lief bis jetzt ganz gut. Nun wird aber folgende Fehlermeldung angezeigt:
Fehler beim Kompilierern: Ein Modul hat einen unzulässigen Typ. Markiert ist shP As Shape
Gibt es denn den Typ Shape nicht mehr? Kann mir hier jemand weiterhelfen? Vielen Dank im Voraus.
|