VBA Word 2007, skjul kommentarer

Private Sub skjulKommentarer()
Dim cc As Comment
    For Each cc In ActiveSheet.Comments
        cc.Visible = False
    Next cc
End Sub

og så velkommen til Eksperten..

Hej supertekst

Og tak for dit hurtige svar.

Jeg får det desværre ikke til at virke. Når jeg kører macroen får jeg fejlmeldingen "Compile error: Method or data member not found" og teksten ":Visible =" i macroen markeres gult.
Jeg har prøvet at ændre "ActiveSheet" til "ActiveDocument" uden held.
Forslag?

Som du skriver ovenfor ":Visible =" - så går det galt med ":" - prøv at ændre til "."

Ahh, undskyld.

Teksten i macroen er naturligvis allerede "cc.Visible". Skrivefejl i min kommentar.

Helt ok - prøv at sende din fil - @-adresse under min profil.

Ups - det er mig ser "har sovet i timen" - jeg har tænkt i Excel.. - skifter lige til Word, som du også skriver - beklager..

Private Sub CommandButton1_Click()
    With ActiveWindow.View
        If .ShowRevisionsAndComments = True Then
            .ShowRevisionsAndComments = False
        Else
            .ShowRevisionsAndComments = True
        End If
    End With
End Sub

Her er et svar - du afviser blot dit eget og accepterer dette.