Hallo Forum,
ich liste aus einer Datenbank mit Hilfe von Textmarken Terminteilnehmer auf. Mit einem Makro wird nach jedem Teilnehmer ein Absatz erstellt.
Um diese Ausgabe in ein Formular einzufügen benötige ich zusätzlich zum Absatz noch eine Linie unter jedem Teilnehmer. Ist das möglich? Und die Länge der Linie zu definieren? Unabhängig davon, dass die Werte bereits in eine Tabelle eingefügt werden?
Vielen Dank für die Hilfe!
Sub Cons_Intro()
On Error Resume Next
Dim thisText As String
'Interne Teilnehmer
Selection.GoTo What:=wdGoToBookmark, Name:="Interne_Teilnehmer"
thisText = Selection
Selection = " " & Replace(thisText, ",", vbCrLf)
'Externe Teilnehmer
Selection.GoTo What:=wdGoToBookmark, Name:="Externe_Teilnehmer"
thisText = Selection
Selection = " " & Replace(thisText, ",", vbCrLf)
End Sub |