Sub pdf()

Const sFile As String = "C:\test\1.pdf"
Const oFile As String = "C:\test\1.log"
Dim m, n As Integer
Dim str As String

m = FreeFile()
Open sFile For Binary As m
n = FreeFile()
Open oFile For Output As n
Do While Not EOF(m)
    Line Input #m, str
    Print #n, str
Loop

''' error
''' Input past end of file
Close m
Close n

End Sub

Sub pdf()

Const sFile As String = "C:\test\1.pdf"

Dim f As Integer
Dim byt As Byte
Dim str As String, str1 As String

f = FreeFile
Open sFile For Binary Access Read As #f

Do While Loc(f) < LOF(f)
    Get f, , byt
    str1 = str1 & byt & vbNewLine
Loop

Close m

''' str1
''' different from the output when I use C# StreamReader to extract the data from the pdf file

End Sub

Public Function ReadAcrobatDocument(strFileName As String, Optional iPage As Long) As String
'Note: A Reference to the Adobe Library must be set in Tools|References!
Dim AcroApp As CAcroApp, AcroAVDoc As CAcroAVDoc, AcroPDDoc As CAcroPDDoc
Dim AcroHiliteList As CAcroHiliteList, AcroTextSelect As CAcroPDTextSelect
Dim PageNumber, PageContent, Content, i, j
Set AcroApp = CreateObject("AcroExch.App")
Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
If AcroAVDoc.Open(strFileName, vbNull) <> True Then Exit Function
' The following While-Wend loop shouldn't be necessary but timing issues may occur.
While AcroAVDoc Is Nothing
  Set AcroAVDoc = AcroApp.GetActiveDoc
Wend
Set AcroPDDoc = AcroAVDoc.GetPDDoc
If iPage <= AcroPDDoc.GetNumPages And iPage <> 0 Then
  Set PageNumber = AcroPDDoc.AcquirePage(iPage - 1)
  Set PageContent = CreateObject("AcroExch.HiliteList")
  If PageContent.Add(0, 9000) <> True Then Exit Function
  Set AcroTextSelect = PageNumber.CreatePageHilite(PageContent)
  ' The next line is needed to avoid errors with protected PDFs that can't be read
  On Error Resume Next
  For j = 0 To AcroTextSelect.GetNumText - 1
    Content = Content & AcroTextSelect.GetText(j)
  Next j
End If
If iPage = 99999 Then
  For i = 0 To AcroPDDoc.GetNumPages - 1
    Set PageNumber = AcroPDDoc.AcquirePage(i)
    Set PageContent = CreateObject("AcroExch.HiliteList")
    If PageContent.Add(0, 9000) <> True Then Exit Function
    Set AcroTextSelect = PageNumber.CreatePageHilite(PageContent)
    ' The next line is needed to avoid errors with protected PDFs that can't be read
    On Error Resume Next
    For j = 0 To AcroTextSelect.GetNumText - 1
      Content = Content & AcroTextSelect.GetText(j)
    Next j
  Next i
ElseIf iPage > AcroPDDoc.GetNumPages Then
  Content = "Error!: The PDF file has only " & AcroPDDoc.GetNumPages & " Pages."
End If
If iPage = 0 Then Content = AcroPDDoc.GetNumPages
ReadAcrobatDocument = Content
AcroAVDoc.Close True
AcroApp.Exit
Set AcroAVDoc = Nothing: Set AcroApp = Nothing
End Function

Sub Demo()
Dim strPDF As String, strTmp As String, i As Integer
' The next ten lines and the last line in this sub can help if
' you get "ActiveX component can't create object" errors even
' though a Reference to Acrobat is set in Tools|References.
Dim bTask As Boolean
  bTask = True
If Tasks.Exists(Name:="Adobe Acrobat Professional") = False Then
  bTask = False
  Dim AdobePath As String, WshShell As Object
  Set WshShell = CreateObject("Wscript.shell")
  AdobePath = WshShell.RegRead("HKEY_CLASSES_ROOT\acrobat\shell\open\command\")
  AdobePath = Trim(Left(AdobePath, InStr(AdobePath, "/") - 1))
  Shell AdobePath, vbHide
End If
strPDF = ReadAcrobatDocument("C:\test\1.pdf", 0)
ActiveDocument.Range.InsertAfter strPDF
If bTask = False Then Tasks.Item("Adobe Acrobat Professional").Close
End Sub