Word y VB

[ci2000]

Hola, mediante VB quiero abrir un documento de Word y eliminar las filas que están a partir de la tercera fila hasta el final.

A través de la macro de Word logré hacer esto pero no funciona con VB.

El código que utilizo es:

Código:

Private Sub Command1_Click()
Dim ApWord As Variant

Set ApWord = CreateObject("Word.application")

ApWord.Documents.Open (App.Path & "\Doc1.doc")

ApWord.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
ApWord.Selection.Delete Unit:=wdCharacter, Count:=1
ApWord.Selection.Delete Unit:=wdCharacter, Count:=1

ApWord.ActiveDocument.Save

ApWord.Documents.Close
Set ApWord = Nothing



End Sub

Me aparece el mensaje parámetro incorrecto por las constante wdStory.

Gracias por las respuestas.
Saludos