Copy multiline data from html web page and paste into a single cell without losing formatting

[deter_dangler]

Hi Everyone,

I have a situation where i have to copy data from web page and paste the data in a single excel cell without losing formatting.

Data on a web page will be like the below:
****************************************
This is in bold
This is in red color and bold!
****************************************I want to paste this data in a excel single cell. Usually when i paste using vba it spreads over different rows..

Any help?

 

[anvg]

It is a very difficult way.
For first drawing near.
1. You create a label shape onto a worksheet and paste a copied from html-page text. It is a full manual step. Indeed, you can create a label shape programmatically, but there is not a way to do such formatting paste.
2. You make a macro using Shape.TextFrame2. Characters properties for setting equal Characters properties of a single cell.

Or another way. To analyze html tags their attributes and css code of a html-page.
Regards

 

[deter_dangler]

It is a very difficult way.
For first drawing near.
1. You create a label shape onto a worksheet and paste a copied from html-page text. It is a full manual step. Indeed, you can create a label shape programmatically, but there is not a way to do such formatting paste.
2. You make a macro using Shape.TextFrame2. Characters properties for setting equal Characters properties of a single cell.

Or another way. To analyze html tags their attributes and css code of a html-page.
Regards

Hi anvg,

Thank you so much for your reply..

Sorry for the confusion..you can ignore the stars(****). Just to illustrate better, i mentioned in the post.

Can you please elaborate if this is doable? Atleast any clue on where to start from?

 

[anvg]

As I wrote above it is possible with using an intermediate shape which gets copied web page content.
You can use a macro bellow for copying its font format.

Public Sub CopyFormat()
    Dim thisShape As Shape, i As Long
    Dim TChar As Characters, RChar As Characters
    Dim TFont As Font, RFont As Font
        
    Set thisShape = ActiveSheet.Shapes(1)
    ActiveCell.Value = thisShape.TextFrame.Characters.Text
    For i = 1 To Len(ActiveCell.Text)
        Set TChar = thisShape.TextFrame.Characters(i, 1)
        Set RChar = ActiveCell.Characters(i, 1)
        If (TChar.Text <> vbLf) And (TChar.Text <> vbCr) And (RChar.Text <> vbLf) And (RChar.Text <> vbCr) Then
            Set TFont = TChar.Font: Set RFont = RChar.Font
            RFont.Name = TFont.Name
            RFont.Color = TFont.Color
            RFont.Size = TFont.Size
            RFont.Bold = TFont.Bold
            RFont.Italic = TFont.Italic
            RFont.Underline = TFont.Underline
            RFont.Subscript = TFont.Subscript
            RFont.Subscript = TFont.Subscript
            DoEvents
         End If
    Next i
End Sub

But this method is very slowly.