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