Reading a word document and seraching for sections

[myk3]

I am trying to parse a word document based on sections in the document..

The word document is broke down into sections 1.0 - 9.0

I am currently using the following

$test=InputBox("File Name","Please input the word document")
BlockInput(1)
$word1=($test&".doc")
$word = ObjCreate("Word.Application")
$word.visible = true
$word.Documents.open(@ScriptDir & "\"& $word1)

$word.Selection.Find.ClearFormatting
$word.Selection.Find.Text = "SUBJECT"
$word.Selection.Find.Replacement.Text = ""
$word.Selection.Find.Forward = True
$word.Selection.Find.Wrap = ("1")
$word.Selection.Find.Execute
$word.Selection.Extend
$word.Selection.Find.ClearFormatting
$word.Selection.Find.Text = "1.0"
$word.Selection.Find.Replacement.Text = ""
$word.Selection.Find.Forward = True
$word.Selection.Find.Wrap = ("2")
$word.Selection.Find.Execute

WinActivate($word1)
ControlSend($word1,"","","^c")
sleep(1000)
run ("notepad.exe")
WinWaitActive("Untitled - ")
send(ClipGet())
send("{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}")
sleep(1000)

When i try to search for a new area of the file it fails and copys the entire file

[james3mg]

Welcome to AutoIt

Any chance you can upload and link us to a copy of the Word file (or a sample word file that has the same structure)? There are several things you may mean by "sections", so it would help to be able to run your script ourselves and see what happens.

Also, I'm not sure from your description what you want it to do at each section...copy the whole section? Erase the section break?

Thanks

Edited January 8, 2010 by james3mg

[myk3]

Welcome to AutoIt

Any chance you can upload and link us to a copy of the Word file (or a sample word file that has the same structure)? There are several things you may mean by "sections", so it would help to be able to run your script ourselves and see what happens.

Also, I'm not sure from your description what you want it to do at each section...copy the whole section? Erase the section break?

Thanks

I will create a "sample" word doc to use.. This is by no means the same as some docs have more incremental sections as 8.1 8.2 8.3 has..

If you run the script it asks you for the name of the file (dont add the extension) and it should be saved in the same location as the au3.

I would like to copy the section then if possible save it as a variable.. I think i could use clipget for that.. then later once i get this worked out I want to export this to an access database we already have setup..

test1.doc

Edited January 8, 2010 by myk3

[PsaltyDS]

To go to a section in Word, try:

; wdGoToDirection
Global Const $wdGoToAbsolute = 1
Global Const $wdGoToFirst = 1
Global Const $wdGoToLast = -1
Global Const $wdGoToNext = 2
Global Const $wdGoToPrevious = 3
Global Const $wdGoToRelative = 2

; wdGoToItem
Global Const $wdGoToBookmark = -1
Global Const $wdGoToSection = 0
Global Const $wdGoToPage = 1
Global Const $wdGoToTable = 2
Global Const $wdGoToLine = 3
Global Const $wdGoToFootNote = 4
Global Const $wdGoToEndNote = 5
Global Const $wdGoToComment = 6
Global Const $wdGoToField = 7
Global Const $wdGoToGraphic = 8
Global Const $wdGoToObject = 9
Global Const $wdGoToEquation = 10
Global Const $wdGoToHeading = 11
Global Const $wdGoToPercent = 12
Global Const $wdGoToSpellingError = 13
Global Const $wdGoToGrammaticalError = 14
Global Const $wdGoToProofReadingError = 15

; ...

; What:=wdGoToSection, Which:=wdGoToFirst, Count:=2
$oDoc.GoTo($wdGoToSection, $wdGoToFirst, 2)

Don't have Word (blessed with OOo) on this box, so untested.

[james3mg]

Seems to works for me- it highlights

SUBJECT: (U) This is the subject of this doc

1.0

then exits. So you can add Send("^c") and $found=ClipGet() to the end of your script, and it will give you the whole first section, as I understand it.

Or maybe I misunderstood what you're looking for?

Edit: I did notice as I went to close the Word window, that it acts like I'm holding down shift (that is, if I click somewhere, the highlighting is cut back or extended to include everything from the beginning the document to wherever I clicked)...is there a $word.Selection method that cancels out your command to .Extend? Maybe that's your problem, if your cursor for some reason was sent to the end of the document?

Edited January 8, 2010 by james3mg

[myk3]

Edit: I did notice as I went to close the Word window, that it acts like I'm holding down shift (that is, if I click somewhere, the highlighting is cut back or extended to include everything from the beginning the document to wherever I clicked)...is there a $word.Selection method that cancels out your command to .Extend? Maybe that's your problem, if your cursor for some reason was sent to the end of the document?

I have no clue if there is a function in word to cancel the selection.. This is a learning experience for me

[myk3]

Does anyone know how to select a bookmark from a word doc? I think if i can select a book mark i can parse it easier