Cosa significa?come mi consigliate di inserire delle note a scomparsa ?
Premetto che di VBA di Word non conosco nulla ma che significa "si contraessero"?si contraessero
Sub Alterna_MostraNascondi()
ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View.ShowAll
End Sub
Io l'ho provato ma non nasconde le note come richiesto,Scusa, ma hai provato almeno il suggerimento o stai continuando per la tua strada ?
è nel menù FileOpzioni / Visualizzazione / e nella sezione 'Mostra sempre questi segni .
Sub NascondiScopriForma()
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
shp.Visible = False = Not shp.Visible = False
Next shp
End Sub
Beh a questo ci arrivavoContragga = Sparire.
Io ipotizzavo vi fosse un modo per farlo senza macro ma evidentemente non è cosìContragga = Sparire (.Visible=False/True).