title image


Smiley Re: VBA: Text in Textbox automatisch Formatieren ?
Hallo HelmutIn dem Sinne. Viel Spass.Sub TestD()  Dim TF As Shape  Dim oRange As Range, wRange As Range  With ActiveDocument.Shapes    Set TF = .AddTextbox(Orientation:=msoTextOrientationHorizontal, _       Left:=100, Top:=100, Width:=100, Height:=100)  End With  Set oRange = TF.TextFrame.TextRange  oRange.InsertAfter "Datum: "  Start = oRange.End - 1  oRange.InsertAfter Date  Ende = oRange.End - 1  oRange.InsertAfter vbCrLf & "Sc:" & vbCrLf & "Test"  Set wRange = oRange  wRange.SetRange Start:=Start, End:=Ende  wRange.Font.Size = 14End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: