Word 2007 ~ using DataObject for text ~ how can I change the font?

[simpleonline1234]

I notice that the only font I have is the default Calibri in Word 2007. Is there an option when using the Data Object were I can set the defaul text to be Arial?

Also I don't know if this helps but I am also putting the DataObject into the clipboard to be pasted out to another application.

Any help would be great.

Here is my button.

Private Sub CommandButton1_Click()
Dim MyTextwil As DataObject, TextStr As String
Set MyTextwil = New DataObject

Dim name1 As String
Dim ext1 As String

name1 = TextBox1.Value
ext1 = TextBox2.Value

MyTextwil.SetText "" & vbNewLine & _
     "Phone:  " & vbNewLine & _
     "Spoke With:  NAME" & vbNewLine & _
     Date & " " & Time & " " & "(X)  Greeting  (X)  Busy  (X)  No Answer  (X)  Voice Mail " & vbNewLine & _
     "" & vbNewLine & _
     "(X)  Request Received    Resent by  (X)  Mail  (X)  Fax" & vbNewLine & _
     "Records Expected:  DATE " & vbNewLine & _
     "Summary of Discussion:    -----" & name1 & "  " & "Ext# " & ext1
    

MyTextwil.PutInClipboard

End Sub

[westconn1]

Is there an option when using the Data Object were I can set the defaul text to be Arial?

text in a dataobject has no font information, to retain font information, the data would be in the current font of the application receiving the pasted information

you would need to use a richtext object or similar, then copy it's content to clipboard, using some other method, such as sendmessage API, with the WMcopy constant