insert a specific line from a .txt file into word

[vkhu]

Say I have a .txt file with roughly 20 separate lines in it, and want a macro that only insert line #7 at cursor position. Is there a way to do that?

[gmayor]

How about

Sub GetLineSeven()
Dim strFilename As String
Dim strTextLine As String
Dim iFile As Integer: iFile = FreeFile
Dim iLine As Integer

    On Error GoTo lbl_Exit

    strFilename = "C:\path\filename1.txt"

    Open strFilename For Input As #iFile
    iLine = 0
    Do Until EOF(1)
        iLine = iLine + 1
        Line Input #1, strTextLine
        If iLine = 7 Then
            Exit Do
        End If
    Loop
    Close #iFile
    Selection.Text = strTextLine
lbl_Exit:
    Exit Sub
End Sub

[vkhu]

I tested the code but the texts came out wrong. It seem unicode characters can't be read properly ("thời gian" became "thá»�i gian"). I saved the txt file with unicode encoding but that didn't help. Is there any way to get around this issue?

[gmayor]

You didn't mention unicode, for as you have now discovered this method doesn't work with unicode text. The following should work with a text file saved as Unicode

Sub GetLineSeven()
Dim objStream As Object
Dim strData As String
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Charset = "UNICODE"
    objStream.Open
    objStream.LoadFromFile ("C:\path\filename1.txt")
    strData = objStream.ReadText()
    Selection.Range = Split(strData, Chr(13))(6)
    objStream.Close
lbl_Exit:
    Set objStream = Nothing
    Exit Sub
End Sub

[gmaxey]

Graham,

Slight mod:

Selection.Range = Split(strData, Chr(13) & Chr(10))(6) '*** :-)