[slurpee55]

Oh, I tinkered around and I get it. Microsoft has written all 2007 files in compressed XML files, with different subfiles controlling various aspects of the item you see when you open, in this case, a document. If you change the format from docx to zip and open it, you will see those different files that the parser is displaying.
For instance, word/fontTable.xml lists all the available fonts when you open Word.
The file you want to parse is actually
word/document.xml
If you extract this from the zipped file, you should be able to parse it properly.

[Miss HK]

Hi,

I changed the options in Word 2007 so that it would save everything in 2003 by default and now the parsing in working fine.

Guys, thank you so much for all the help, time and effort you've given me, I am so grateful you have no idea!!! You are really doing a great job and I am really surprised that there are people out there who so generously give without expecting anything back. I will be sure to make a decent donation, how much do people usually give, I don't have a great budget but all your help has been a huge time saver for me.

A very big thank you I will be recommending this site to my buddies!!!

[Rollin_Again]

Miss HK,

Thanks for the update, we've glad you finally got this sorted. We enjoy helping people and it brings smiles to our faces to know we've made life easier for someone else. While some people enjoy doing crossword puzzles, Slurpee and I and many others on this site enjoy solving technical challenges we are presented with here. There is no standard amount that you should donate. This site is 100% run by volunteers and I'm sure that any donation received would be greatly appreciated. If you are really feeling generous, Slurpee and I would love to go to Hawaii for a week or two.

Regards,
Rollin

[slurpee55]

LOL! I just got back from the Caribbean, Rollin, and haven't a lot of vacation left at this moment! Darn!
And you know what, Miss HK? I have learned far more here than I have - or will ever be able to - give back in advice and help. Hang around and you could become "one of us"!

[Miss HK]

Ok, let me sort out winning the lottery first and 2 tickets to Hawai will be at the top of my to do list!

[slurpee55]

Glad to have helped - good to work with Rollin (at least some) again, too!

[Miss HK]

Greetings from a girl who like to split files (and not hairs).

I've been playing around but without much success and have been going through allot of the postings.

Same problem, doc files needs splitting, if they could be saved/incrementing number.


Here's a sample the green is the first file that needs to be separated from the second in blue.

I initially thouth that Nationality: could be the word to split from, but there are some files where it doesnt appear.

Internal Auditor with 15 Years experience
</xxxxxxx/xxxxxx.html?xxxx=12345&abc=965412&kind=private&folderID=45486746&section=9& source=0>

Internal audit,assessing internal controls,system review,reporting and
Follow up
CA (Any) , Institute for Clever People

Last Active: long time ago



Salary per annum
Exp: 15 Years

Received Date: 16 Sep 2007


John Smith

Resume ID: 598856
Mobile: 1234567
Telephone: 891011
jsmith@hotmail.com
Nationality: Martian




CA with 9+ years experience and ERP exposure
</dbwedewhd/rfburwe.html?verq=46848&gver=8486&type=private&folderID=596745&section=8&so urce=0>

Chartered Accountant (CA), SAP user, ERP Implementation, Budgeting,
Accounts, Finance, MIS, Direct & Indirect Taxation & Commercial functions
CA (Any) , Institute of Numbers123
Languages Known: Many
Last Active: also not



Succes compnay Limited
Too much salary per annum
Exp: 11 Years

Received Date: 16 Sep 2007


Jane White

Resume ID: 623213
Mobile: 987654
Telephone: 321000
jane@gmail.com
Far Away

Nationality: Unknown


The Document then continues in the same manner, a different person, then another...


(More) help greatly appreciated!

[slurpee55]

Do they all have a line such as that beginning
</xxxxxxx/xxxxxx... as the second line?
Perhaps you could find that, move up one or two lines and split the file there?

[Miss HK]

Hi Slurpee, thanks for getting back to me so quickly.

The second lines all start with </ blahblahblahblah> but the text in between the brackets all change.

I think if the split occurs at Nationality: it should be ok. It's on most of the files, if the word doesn't appear, the error msg will come, and I can manually save and re-run the code. What do u think?

Cheers!

[Miss HK]

Actually, the </ blahblahblahblah> the words after the brackets start the same and then change fir the next person

ex </ blahblahblahblahjohn>

</ blahblahblahblahjane>

</ blahblahblahblahpeter>

Is it possible with one code to delete the beginning of the file. Basically I have a two pages of text (more or less identical in format and content) that I need to delete at the beginning of each file i plan to run this code on.

I have attached a sample copy of the file

In red is what needs to be removed
In yellow are the places we could split from.
In green is what you suggested could be moved above.
The other pretty colours are just to differentiate the parts of the next that need to be split into a new file.

[slurpee55]

Is this an XML file - or originally from an XML file?

[slurpee55]

However, if you just inserted gibberish and it ended up looking like XML by chance, (it was all those "</..." at the start of your file that made me think it was XML) then probably Rollin's code could be altered fairly easily to do the job.

[slurpee55]

Rollin, I tried this small change on your code

Sub SplitFiles()

vPath = ActiveDocument.Path & "\"

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Text = "Nationality:"

vFirstRecord = True
i = 1

Do While Selection.Find.Execute = True

If vFirstRecord = False Then

Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
Selection.Cut
Documents.Add DocumentType:=wdNewBlankDocument
Selection.Paste
Selection.HomeKey Unit:=wdStory

Do While Selection.Text <> "N"
Selection.Delete Unit:=wdCharacter, Count:=1
Loop

Selection.EndKey Unit:=wdLine, Extend:=wdExtend
vFrom = Replace(Left(Replace(Trim(Mid(Selection.Text, 6)), "@", "_"), Len(Replace(Trim(Mid(Selection.Text, 6)), "@", "_"))), Chr(11), "")
vFrom = Replace(vFrom, Chr(9), "")
vFrom = Replace(vFrom, Chr(13), "")

ActiveDocument.SaveAs (vPath & vFrom & "_" & i & ".doc")
i = i + 1
ActiveDocument.Close
vFirstRecord = True

Else

vFirstRecord = False

End If

Loop

Selection.EndKey Unit:=wdLine, Extend:=wdExtend
vFrom = Replace(Left(Replace(Trim(Mid(Selection.Text, 6)), "@", "_"), Len(Replace(Trim(Mid(Selection.Text, 6)), "@", "_"))), Chr(11), "")
vFrom = Replace(vFrom, Chr(9), "")
vFrom = Replace(vFrom, Chr(13), "")
Selection.HomeKey Unit:=wdStory

Do While Selection.Text <> "N"
Selection.Delete Unit:=wdCharacter, Count:=1
Loop

ActiveDocument.SaveAs (vPath & vFrom & "_" & i & ".doc")
Application.Quit

End Sub

and it takes the first set of data down to the line after Nationality (I converted all the lines in yellow to say Nationality:...) and saves it (although if that beginning stuff in red is not something you want, just delete it) but then it gives me an error code 5152 and says the name is not a valid file name.
I'm just running it on my desktop, and the first file gets saved there....

[slurpee55]

Okay, another move onward:
I removed this from the above
vFrom = Replace(Left(Replace(Trim(Mid(Selection.Text, 6)), "@", "_"), Len(Replace(Trim(Mid(Selection.Text, 6)), "@", "_"))), Chr(11), "")
vFrom = Replace(vFrom, Chr(9), "")
vFrom = Replace(vFrom, Chr(13), "")
and altered this line to read
ActiveDocument.SaveAs (vPath & "_" & i & ".doc")
and now I am getting files called _1.doc, _2.doc
Unfortunately, I am only getting files consisting of the 2nd and 4th chunks of info - the first and 3rd just vanish except for the phrase "Nationality: Mndmz" appearing at the the top of the file....

[slurpee55]

Note that I have inserted the junk at the beginning - I suspect it needs to be deleted first.