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

Hallo,

ich hoffe dass mir jemand helfen kann. Ich habe eine Word Vorlage mit UserForm. In der UserForm wird ein Textfeld ggfls. (wenn CheckBox geklickt ist) angezeigt. Wenn das Textfeld angezeigt wird, dann soll im Dokument einmal links der Inhalt des Textfeldes "normal" stehen [soweit, so gut] und rechts daneben soll der Inhalt als Default-Text in einem Steuerelement gezeigt werden [klappt inzwischen auch].

Das Problem ist jetzt, dass wenn man die UserForm erneut ausführt, dann möchte ich dass das eingefügte durch das neue ersetzt wird. Das mache ich indem bei der ersten Ausführung sofort eine neue Textmarke erstellt wird und den eingefügten Text "umschließt". Das klappt mit normalen Text auch alles Prima, aber bei dem Steuerelement scheitere ich nun. Bei dem Steuerelement bleibt die Textmarke insich geschlossen (also Anfang = Ende) und steht vor dem Steuerelement.

Irgendwie müsste es doch möglich sein dass ich den Range des Steuerelements anspreche, oder? Vielen Dank.

<sub>Dim objCC As ContentControl

If TextBox1.Visible = True Then
     If ActiveDocument.Bookmarks.Exists("Feld") Then
            Set Marke1 = ActiveDocument.Bookmarks("Feld").Range
                Marke1.Text = TextBox1.Text & ":"
            ActiveDocument.Bookmarks.Add Name:="Feld", Range:=Marke1
    End If
    If ActiveDocument.Bookmarks.Exists("Feld2") Then
            Set Marke2 = ActiveDocument.Bookmarks("Feld2").Range
            Set objCC = Marke2.ContentControls.Add(wdContentControlText)
                objCC.SetPlaceholderText Text:="[" & TextBox1.Text & "]"
                objCC.Title = TextBox1.Text
            ActiveDocument.Bookmarks.Add Name:="Feld2", Range:=Marke2
    End If
End If</sub>