Line & Text Box in MS Word

[rbrain]

I am trying to us insert a line and a text box in a doc file using VBA. I am able to insert the same but I need help on the following :

1. How to change the width of the line (Eg. Make it thin or fat)

2. How to insert default text (eg. My name) inside the text box.

I am enclosing the code for your reference.

-----------
Private Sub Command1_Click()
Dim oW As Word.Application
Dim oD As Word.Document

Set oW = CreateObject("Word.Application")
oW.Visible = True
Set oD = oW.Documents.Add

oD.Shapes.AddLine 50, 150, 150, 150
oD.Shapes.AddTextbox msoTextOrientationHorizontal, 200, 100, 50, 100

End Sub
-----------

Please help with a code.

[RobDog888]

Here you go!

Option Explicit
 
Private Sub Command1_Click()
 
    Dim oW As Word.Application
    Dim oD As Word.Document
    Dim oS As Word.Shape
    
    Set oW = CreateObject("Word.Application")
    oW.Visible = True
    Set oD = oW.Documents.Add
    
    Set oS = oD.Shapes.AddLine(50, 150, 150, 150)
    oS.Line.Style = msoLineSingle
    oS.Line.Weight = 3
    Set oS = Nothing
    Set oS = oD.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 100, 50, 100)
    oS.TextFrame.TextRange = "Default Text"
    Set oS = Nothing
    
End Sub

HTH

[rbrain]

Thankyou RobDog888

[RobDog888]

No prob.