Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo, falls es noch gebraucht wird:
Erst bei Thisdocument Modul einfuegen
Private Sub Document_Open()
'Bei einem ActiveX-Steuerelement
ThisDocument.FormFields.Item(1).Select
'Bei einem Inhaltssteuerelement
    With ThisDocument
        If .ContentControls.Count > 0 Then
            .ContentControls(1).Range.Select
        End If
    End With
End Sub