VBA：将行从文本文件复制到Word doc中

Account 1
item 1
item 2
item 3
=========
Account 2
item 4
item 5
=========
Account 3
item 6
item 7
=========

Open As

Line Input

Sub GetAccountFromTextFile(FileName As String, Accnt As String)
Dim MyLine As String, State As String

    Open FileName For Input As #1
    State = \"Searching\"               \' we could make this much simpler but 
                                      \' want to illustrate the different stati
                                      \' the loop is reaching

    Do While Not (EOF(1) Or State = \"End\")

        Line Input #1, MyLine         \' read next line from text file

                                      \' now process as function of
                                      \' content and current state

        If State = \"Reading\" And MyLine = \"=========\" Then
            State = \"End\"

        ElseIf MyLine = \"Account \" & Accnt Then
            Selection.InsertAfter \"Account \" & Accnt & vbCrLf
            State = \"Reading\"

        ElseIf State = \"Reading\" Then
            Selection.InsertAfter MyLine & vbCrLf
        End If

    Loop
    Close #1

End Sub

Sub test()
    GetAccountFromTextFile \"C:\\Documents and Settings\\MySelf\\Desktop\\accounts.txt\", 1
    GetAccountFromTextFile \"C:\\Documents and Settings\\MySelf\\Desktop\\accounts.txt\", 3
    GetAccountFromTextFile \"C:\\Documents and Settings\\MySelf\\Desktop\\accounts.txt\", 2
End Sub

Account 1
item 1
item 2
item 3
Account 3
item 6
item 7
Account 2
item 4
item 5