OLE Word Verbs / Insert Date

[tweedle]

I'm missing the concept.
So I'm inserting word doc into my excel sheet (code below).
I should like to, as in Word, Insert Date.
So far, what I've read has been rather...abstract.

Does anyone have an example of how to insert content into a Word OLE object?

Sub WordObjectMake()
With Sheets("Sheet1")
    .Activate
    .Range("1:5").Insert xlShiftDown
    
    .Cells(3, 2).Activate
Set OLEObj = .OLEObjects.Add(ClassType:="Word.Document")
End With
End Sub

 

[Macropod]

Try:

Sub WordObjectMake()
Application.ScreenUpdating = False
Dim xlWS As Worksheet, OLEObj As OLEObject
Set xlWS = Sheets("Sheet1")
With xlWS
  .Range("1:5").Insert xlShiftDown
   With .Cells(3, 2)
  Set OLEObj = xlWS.OLEObjects.Add(ClassType:="Word.Document", Link:=False, _
    DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=150, Height:=10)
  End With
  OLEObj.Activate
  With OLEObj.Object.Application.Wordbasic
    .Insert Format(Now(), "DDDD, D MMMM YYYY")
    .FileClose
  End With
  Set OLEObj = Nothing
End With
Application.ScreenUpdating = True
End Sub

 

[tweedle]

That does it! Thank You Very Much!