How to compare the format of text between Excel and Access (like color, bold etc) - ms-access

Question

In fact, what I am doing now is to realize the synchronization of Excel and Sharepoint, which means that Excel can update with the updating of Sharepoint, and the same for the inverse case.
As known, MS 2003 has no problem with this, but MS 2010 can just realize the fonction from Sharepoint -> Excel, but not the inverse way.
So I am thinking to add Access because there exists Access <-> Sharepoint, and so if I can realize la fonction Excel -> Access, that will solve my problem.
I have finished some parts of macros for this, and now I have realized the fundamental fonction of synchronization. However, there are some difficulties in dealing with the format of text. In Sharepoint and Access, to express the color is like this
<div><font color = "#ff0000">TEXT</font></div>, however in excel I have no idea about the expression of the string.
So how to do it? All suggestions or answers will be appreciated.

Answer 1

This is a very broad question and covers alot of possibilities, and this isn't a complete answer, but for comparing HTML to VBA formatting, you would need to individually break down each formatting option and convert it from HTML to VBA and determine the properties applied to the text, just as you stated above. Then you would need individual VBA functions to specify what you want to compare from the text.
That being said, this is just an example of how this can be achieved for font color comparison.
Given:
'example html: <div><font color = "#ff0000">TEXT</font></div>
Dim HTML_text : HTML_text = "<div><font color = '#ff0000'>TEXT</font></div>"
Dim font_color : fontcolor = Mid(HTML_text, instr(HTML_text, "#"), 7)
Would return "#ff0000" as a variable font_color Then you would need the excel function to convert Hex(#FF0000) to RGB (taken from -> Here):
Public Function HEXCOL2RGB(ByVal HexColor As String) As String
Dim Red As String
Dim Green As String
Dim Blue As String
Color = Replace(HexColor, "#", "")
Red = Val("&H" & Mid(HexColor, 1, 2))
Green = Val("&H" & Mid(HexColor, 3, 2))
Blue = Val("&H" & Mid(HexColor, 5, 2))
HEXCOL2RGB = Red & "," & Green & "," & Blue
End Function
Then to extract the fonts RGB in Excel to the RGB you recieved from HTML you would need the following function(taken from -> Here):
Function FontColorRGB(Target As Range) As String
Dim N As Double
N = Target.Font.Color
FontColorRGB = Str(N Mod 256) & "," & Str(Int(N / 256) Mod 256) & "," & Str(Int(N / 256 / 256) Mod 256)
End Function
Then to finally pull it all together, you would utilize both functions:
Dim XLFontClr : XLFontClr = FontColorRGB("A1:A2")
Dim RGB_clr : RGB_clr = HEXCOL2RGB(font_color) 'Returns "Red,Green,Blue" in string form.
If XLFontClr = RGB_clr Then
msgbox "web formatting and excel formatting compared successfully"
End If