Text in Textfeld per Makro formatieren

Ein sonniges Hallo,

habe ein kleines (Teil)-problem und hoffe auf schnelle Hilfe.

Per Makro wird bei mir in einem Dokument über ein Formular mit Auswahl ein Textfeld erstellt, darin eine Tabelle (eine Spalte, eine Zeile) angelegt und der ausgewählte Text eingefügt. Nun möchte ich diesen Text gerne noch fett formatieren und die Schriftgröße ändern. Ich habe schon verschiedene Makros ausprobiert, leider hat bis jetzt nichts funktoniert. Ich weiß aber auch nicht genau, wo ich nach dem Erstellen des Textfeldes etc. mit dem Makro für die Formatierung anfangen soll.
Der Code für die Textbox sieht wie nachstehend aus:

Sub mkPersBox(cellcount, strbox() As String)
Dim oShape As Shape, oTable As Table, oCell As Cell

breite = 11.5
hoehe = 0.9
AbstandRechts = 7.3
AbstandUnten = 24.1
With ActiveDocument.Sections(1).PageSetup
x = .PageWidth - CentimetersToPoints(breite + AbstandRechts)
y = .PageHeight - CentimetersToPoints(hoehe + AbstandUnten)
End With
Set oShape = _
ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=x, _
Top:=y, _
Width:=CentimetersToPoints(breite), _
Height:=CentimetersToPoints(hoehe))
oShape.Line.Visible = False 'Rahmen ausblenden
oShape.Fill.Visible = False 'Keine Füllung
Set oTable = ActiveDocument.Tables.Add(Range:=oShape.TextFrame.TextRange, _
NumRows:=cellcount, NumColumns:=1)
oTable.Borders.OutsideLineStyle = False
oTable.Borders.OutsideLineWidth = False
oTable.Borders.InsideLineStyle = False
i = 0
For Each oCell In oTable.Range.Cells
i = i + 1
oCell.Range.Text = "- " & strbox(i)
Next
End Sub

Ich habe die Formatierung schon mit "Suchenudn Ersetzen" ausprobiert, leider wird nichts formatiert.
Hat jemand einen guten Vorschlag.
Schon mal vielen Dank.

karly

 

Hallo an alle,

habe das Problem jetzt selbst zu meiner Zufriedenheit gelöst. Die Anfrage hat sich also erledigt.

Gruß
karly