Using interop.word to search the content

[sjkwek]

Hi...

I am new to VB.net. Curretly i working with my final year project. Nw i need to read and find the content from the doc file. I have to read the whole content of the doc file.And will start to find the content from the references below.

Example:

References:

[1] L. Bernstein, “Get The Design Right”. IEEE Software, Vol. 10 No. 5, September 1993, pp. 61-63.

[2] Z. Razak, “The Internet Global Villages”, in Using IT to Build a Better Future Conference, Kuala Lumpur, 3 October 1995.


i need to get content within quotes “ ” from the references which is the title. Is there any solution to read and search all the "title" from doc??? Please help me.Thanks.

[SammyB]

You would need to first search for "References:" to find the References part of the document, put all of that text into a string variable and then split it on double-quotes, then your titles would be every-other entry in the split array.

[sjkwek]

Ya. Thanks for replying. But how to gonna to get the title between " ". Can u guide me more. I nw still struggle with the coding. I using the word.Range, it can compile without an error, but it load very slow and can not get the result.

Dim objWord As New Word.Application
Dim objDoc As Word.Document
Dim objRange As Word.Range
Dim intPosition As Integer
Const wdTurquoise = 3
Const wdNoHighlight = 0
Const wdBlue = 2

objWord = CreateObject("Word.Application")
objWord.Visible = True

objDoc = objWord.Documents.Open("C:\Inetpub\wwwroot\Thesis1 \Doc\test.doc")
objRange = objDoc.Range

objRange.Find.Highlight = True
objRange.Find.Forward = True

Do While objRange.Find.Execute
If objRange.Text = "References" Then
objRange.Font.Size = 15
End If
intPosition = objRange.End
objRange.Start = intPosition
Loop


Thanks.

[Added by Sam from a PM: (please always reply in the thread)]
Thanks.For the reply. Oo..not really understand with it. How you gona to read the thing from the file,using interop.word class library or stream reader? Please guide me more by providing source code.Reali appreciate if you can help me.Thanks//

[SammyB]

...Thanks.For the reply. Oo..not really understand with it. How you gona to read the thing from the file,using interop.word class library or stream reader? Please guide me more by providing source code.Reali appreciate if you can help me.Thanks//

I'm confused. From your original posts, it looked like you were using VB6 or VBA, but you mention interop.word above. Are you using VB.NET? Have you downloaded the Interop stuff from Microsoft and worked through their Word examples, http://msdn2.microsoft.com/en-us/lib...ffice.11).aspx?

[sjkwek]

Nice to hear from you again.Thanks again. Now i getting stress. Yup.I am using vb.net. But facing a problem.So sad. I cant set a new range for the found senteces. Below is the example of the code


Dim count As Integer
count = 0
Dim StartRange As Word.Range
Dim v_strKeyword As String = "References"
Dim b As String
For Each myWord In myWordDoc.Sentences
With myWord.Find
.ClearFormatting()
.Text = v_strKeyword
If .Execute = True Then
StartRange = myWord
Exit For
End If
End With
Next
'Get all the text from the below References into string
myWord = myWordDoc.Range(CType(myWordDoc.Sentences(StartRan ge.Sentences.Count).Start, System.Object), CType(myWordDoc.Sentences(myWordDoc.Sentences.Coun t).End, System.Object))
Me.txtContent.Text = myWord.Text
myWord = Nothing
myWordDoc.Close() 'close the word doc
myWordApp.Quit() 'Quit the word app
Sorry to disturb u again. thanks alot.

I'm confused. From your original posts, it looked like you were using VB6 or VBA, but you mention interop.word above. Are you using VB.NET? Have you downloaded the Interop stuff from Microsoft and worked through their Word examples, http://msdn2.microsoft.com/en-us/lib...ffice.11).aspx?