Paste from word

[odsmith]

Let’s say you get an email formatted in MS Word. The list has some names that are highlighted and some are not. Action is required on highlighted items.


Now, you want to manipulate the text based on the highlighted text. However, if you paste the data in excel as text only, the highlighted portions do not come into excel. But, if you paste as a picture, metafile, link, ect, you can’t edit the text.


Are there any ways to manipulate the object?

 

[mrmmickle1]

Not sure if this is what your looking for, but If you just want the data that is highlighted in your spreadsheet you can copy it like this and then Paste it using the below method.

CLICK HERE FOR EXAMPLE

 

[odsmith]

I need the un-lighted text as well?

 

[mrmmickle1]

Hmmm not too sure how to go about this using the Word Object library. I would guess that you would need to do something like this:

1. Cycle through each individual word in the MS Word document. If the word is highlighted then add an additional character to it, like a "@" or something of the sort.
2. Copy and paste data into MS Excel.
3. Do manipulation on action items based on "@" symbol.
4. Clear the additional character using Find and Replace.

I am not sure how to accomplish this, but maybe someone else will be able to assist you.

 

[odsmith]

That is the path I am going to go with.

Regards,
Odsmith

 

[shouviknag]

Have you tried, Paste instead of Paste Special? Normally that works. You can also try Paste Special as HTML, for your convenience.

 

[odsmith]

Yes, that pastes just the text only.

I have come up with the below code to accomplish what I needed.

Thanks All

Public Sub ParseDoc()

Dim doc As Document
Set doc = ActiveDocument
Dim paras As Paragraphs
Set paras = doc.Paragraphs
Dim para As Paragraph
Dim sents As Sentences
Dim sent As Range
For Each para In paras

    Set sents = para.Range.Sentences
    For Each sent In sents
        dot = 0
        dot = InStr(1, Trim(sent.Text), ".")
        high = sent.HighlightColorIndex
        test = 0
        If dot > 0 Or high > 0 Then
            test = 1
        End If
        
        If test = 0 Then sent.Delete
    Next

Next

End Sub

 

[mrmmickle1]

Thanks for posting the solution. This is interesting. I'm going to store it away in case I ever need to manipulate a MS Word Document in this manner.