Copy Word Doc Line by Line

[anj755]

I need to open a word doc and copy each line into a variable lets say
dim Sline as string

[SammyB]

I need to open a word doc and copy each line into a variable lets say
dim Sline as string

Ae you sure you mean lines and not sentences? Here's for lines:

    Selection.HomeKey Unit:=wdStory     ' Move to the begining of the document
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend     ' Select a line
    Dim line1 As String
    line1 = Selection.Text ' Save the line
    Selection.MoveRight Unit:=wdCharacter, Count:=1     ' Move to the next line
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Dim line2 As String
    line2 = Selection.Text

[Killer42]

I'd guess that anj755 is referring to "paragraphs ".

[anj755]

I was actually wondering if we could do a search for CRLF and then recognize it as a line. I am database person, not much of a .net programmer, so any help will really make my work easier.

[SammyB]

I was actually wondering if we could do a search for CRLF and then recognize it as a line. I am database person, not much of a .net programmer, so any help will really make my work easier.

Ah, that is simple: Word has already done all of the work. Word already separates your document with the CRLF into what it calls paragraphs and keeps them in a collection, so if you want the text from paragraph i, it is:
ActiveDocument. Paragraphs(i).R ange.Text

[anj755]

How do I get wdStory or wdLine
Seems like I need Word.dll
but all I can find in my machine is microsoft.offic e.interop.word. dll
I found word.dll in the web but it is not strong named.
Is there a way arround it?

[anj755]

Okay I found a way to get arround it. But now I can't seem to figure how to do
while not EOF for the word doc?

[SammyB]

How do I get wdStory or wdLine
Seems like I need Word.dll
but all I can find in my machine is microsoft.offic e.interop.word. dll
I found word.dll in the web but it is not strong named.
Is there a way arround it?

You need to add a reference to microsoft.offic e.interop.word. dll and then use http://www.thescripts.com/forum/thread348663.html as an example for the open, but look at http://support.microsoft.com/?kbid=315981 to see how to quit Word.

While in Word, use objDoc.Paragrap hs(i).Range.Tex t to get paragraph i.

But, is this a Windows App or a Web App? I think there are more problems with a Web App.

[Killer42]

Okay I found a way to get arround it. But now I can't seem to figure how to do while not EOF for the word doc?

If the paragraphs are in a collection, then I expect you can use a For Each loop to go through them, plus there should be a .Count property to tell you how many there are (if you need to know).

[SammyB]

Okay I found a way to get arround it. But now I can't seem to figure how to do
while not EOF for the word doc?

Killer is spot on.

Sub Macro4()
    Dim p As Paragraph
    For Each p In ActiveDocument.Paragraphs
        MsgBox p.Range.Text
    Next p
End Sub
Sub Macro5()
    Dim i As Integer
    For i = 1 To ActiveDocument.Paragraphs.Count
        MsgBox ActiveDocument.Paragraphs(i).Range.Text
    Next i
End Sub