Split String into many columns according to Format criteria

I copy and pasted the data from MS Word. I could bring it as far that each cell now contains one word and its whole meanings.
I hope to get a solution. If not i would have to do at least 0.5 million times cut and paste. :-(

Yes, i tried that. But it didn't work properly because for that method i need a seperator as letter. And i dont have clear seperators through which i could break the string. What i have instead is the formating, font, color and size.

I was successful as far through text into columns that I could devide the strings into three columns. Its better than nothing but still its not complete. I am attaching the example:

If you put your 2007 example as an xls file I could have a look.
Preferably also the original Word-file as a doc file.

Hey snb Hey Pike,

i am uploading the word as well as xls file.
What I did was that I replaced all douple line breaks "^p^p" of word document into "§§^pµ". Throug doing that i have now specific symbols for the start and for the end of the string. I then copied and pasted the data into excel. There I removed all number which were indexing the source words after "µ". I then replaced the first "two spaces" into "#" and broke the strings on "#" into two columns. The same I did with transcription. And i have now three columns. Words-->Transcription--> and the remaining string. The result was that in my third post.

What one could also do would be to put all "[?]" in a seperat column as well. [] also contain grammatical identities of the source words and should be seperated.

I will also keep on trying. But I dont think that on my own I will make it to more columns.

My suggestion:

Sub tst()
    sq = Split(Replace(Replace(Replace(Replace(Replace(Replace(ActiveDocument.Content, "1  ", "|1 "), "  [", "|["), "]  ", "]|"), "f.  ", "|f.|"), "m.  ", "|m.|"), "  Arabic  ", "  |Arabic|"), String(2, vbCr))
    For j = 0 To UBound(sq) - 2
        sn = Split(sq(j), "|")
        sq(j) = Replace(sq(j), sn(0), Replace(sn(0), "  ", "|"))
    Next
    With GetObject("", "Excel.Application")
        .Application.Visible = True
        .Application.Workbooks.Add
        For j = 0 To UBound(sq)
          .activeworkbook.sheets(1).Cells(j + 1, 1).Value = sq(j)
        Next
        .activeworkbook.sheets(1).Columns(1).texttocolumns , 1, -4142, , False, False, False, False, True, "|"
    End With
End Sub

Hey you both,

I can't thank you enough for taking the time for my problem. I love this side of internet and realize each time again and again that Internet without this forum would be almost useless! :-)

I have the data now in three columns and its more than I had imagined I could do.

thanks thanks thanks