Word 2016 İle Pdf Açıp Çıktı Alma

[askm]

Kolay gelsin.
Aşağıdaki kodlar ile Pdf evrağı word 2016 ile açıyorum. Sayfayı açtıktan sonra 3 kere delete tuşuna basıp boş satırları sildikten sonra çıktı almak istiyorum.
1. Açarken uyarı vermesini nasıl engellerim.
2. Çıktı almayı nasıl yaparım.

Sub WordAc()
Application.DisplayAlerts = 0
yol = ThisWorkbook.Path
d = Dir(yol & "\*.pdf")
While d <> ""
    Shell "WINWORD.exe " & yol & "\" & d
    'Shell "EXCEL.exe " & yol & "\" & d
    d = Dir
Wend
PrintOut
Application.DisplayAlerts = 1
End Sub

 

[askm]

Wordde açmayı yapıyorum. Baştan boş olan satırları veya ilk 2 satırı silsem de olacak. Application.SendKeys "{DEL}", True yapıyorum ama word dosyasını değilde benim kodları siliyor. wordu açıyor ama wordu arka planda açtığı için işlem yapmıyor.

 

[askm]

Aşağıdaki kodları buldum ama excelden çalıştıramıyorum.

Do
   Set prg = ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count)
   If Len(prg.Range.Text) < 2 Then prg.Range.Delete Else Exit Do
Loop