Content Control Range (Inhaltsteuerelement (Word) in Textmarke einschließen)

  • Word

    Content Control Range (Inhaltsteuerelement (Word) in Textmarke einschließen)

    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.

    Visual Basic-Quellcode

    1. Dim objCC As ContentControl
    3. If TextBox1.Visible = True Then
    4. If ActiveDocument.Bookmarks.Exists("Feld") Then
    5. Set Marke1 = ActiveDocument.Bookmarks("Feld").Range
    6. Marke1.Text = TextBox1.Text & ":"
    7. ActiveDocument.Bookmarks.Add Name:="Feld", Range:=Marke1
    8. End If
    9. If ActiveDocument.Bookmarks.Exists("Feld2") Then
    10. Set Marke2 = ActiveDocument.Bookmarks("Feld2").Range
    11. Set Marke3 = ActiveDocument.Bookmarks("Feld3").Range
    12. Set objCC = Marke2.ContentControls.Add(wdContentControlText)
    13. objCC.SetPlaceholderText Text:="[" & TextBox1.Text & "]"
    14. objCC.Title = TextBox1.Text
    16. ???
    18. ActiveDocument.Bookmarks.Add Name:="Feld2", Range:=???


    Meine Gehversuche sind bis jetzt alle gescheitert! Hier mal meine Gehversuche die jetzt gerade als Kommentare in meinem Code rumlungern...

    Visual Basic-Quellcode

    1. Dim objCC As ContentControl
    3. If TextBox1.Visible = True Then
    4. If ActiveDocument.Bookmarks.Exists("Feld") Then
    5. Set Marke1 = ActiveDocument.Bookmarks("Feld").Range
    6. Marke1.Text = TextBox1.Text & ":"
    7. ActiveDocument.Bookmarks.Add Name:="Feld", Range:=Marke1
    8. End If
    9. If ActiveDocument.Bookmarks.Exists("Feld2") Then
    10. Set Marke2 = ActiveDocument.Bookmarks("Feld2").Range
    11. Set Marke3 = ActiveDocument.Bookmarks("Feld3").Range
    12. Set objCC = Marke2.ContentControls.Add(wdContentControlText)
    13. objCC.SetPlaceholderText Text:="[" & TextBox1.Text & "]"
    14. objCC.Title = TextBox1.Text
    17. 'ActiveDocument.Bookmarks("Feld2").Delete
    18. 'If ActiveDocument.ContentControls.Count > 3 Then
    19. 'ActiveDocument.Bookmarks("Feld3").Select
    20. Set myRange = ActiveDocument.ContentControls.Item(4).Range
    21. 'End If
    25. 'Dim WD As Word.Application
    26. 'WD = New Word.Application
    27. 'Dim wTable As Word.Table
    28. 'Set wTable = WD.ActiveDocument.Tables.Item(0)
    29. 'wTable.Cell(1, 1).Select()
    30. 'ActiveDocument.Tables(1).Rows(3).Cells(3).Select
    31. 'Selection.InsertAfter Text:="The end."
    35. 'Set Marke3 = objCC.Range
    36. 'Set Marke2 = ActiveDocument.objCC(TextBox1.Text).Range
    37. 'Muss noch überarbeitet werden!
    38. 'Selection.Words.Last.Next.Select
    39. 'ActiveDocument.Bookmarks("Feld2").Range.Characters.Last.Select
    40. 'Selection.Collapse wdCollapseStart
    41. 'Selection.TypeText "Material below is confidential."
    42. 'Set oContentControl = SelectedContentControl
    43. 'Set oContentControl = ActiveDocument.ContentControls(1).Range
    44. 'Set oContentControl = objCC.Range
    45. 'oContentControl.Collapse Direction:=wdCollapseStart
    47. ActiveDocument.Bookmarks.Add Name:="Feld2", Range:=myRange
    48. End If
    49. End If

Facebook
Telefonspende