pdf text word

[igultekin2000]

iyi günler;
formdan indirmiştim, pdf to Text , pdf dosyasının içeriğini text olarak görebiliyoruz. görülen yazıyı word' e veya text veya excel dosyalarına atmak için bir buton eklenebilir mi? , seçip kopyala yapıştır, zaman alıyor. hatta ikinci , üçüncü sayfaları ....gibi atılan dosyanın altına ilave ettirebilmek programı daha kullanışlı yapacak, normal sayfada kullandığım

Sub Gnl_Aktar()
On Error Resume Next
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual

Dim GK, KK As Worksheet
Set KK = Sheets("GNL.CK.SNT")
Sheets("LISTE").Select
    Range("A4:E65000,H4:H65000").Select
    Selection.Copy
    Sheets("GNL.CK.SNT").Select
    son_satir = KK.Range("a65000").End(3).Row + 1
    KK.Range("a" & son_satir).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Range("E1").Select
   Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic

End Sub

kod vardı . Form olduğu için adapte edemedim. Teşekkürler