Html doc pro

Dossfm0q · Apr 20, 2018

Good day code below was summarized
I use it to create html file then convert it to word document from Excel
how to get like below code full for html document and < o:DocumentProperties> ?Please remove Space after "<

Code:

Public Sub Html()[IMG]https://ibb.co/krAU1n[/IMG]


Dim StrHtm As String
StrHtm = "[SIZE=3][B][COLOR=#0000ff]< [/COLOR][/B][/SIZE]html xmlns:v=""urn:schemas-microsoft-com:vml""" & vbNewLine & _
" xmlns:o=""urn:schemas-microsoft-com:office:office""" & vbNewLine & _
" xmlns:w=""urn:schemas-microsoft-com:office:word""" & vbNewLine & _
" xmlns:m=""http://schemas.microsoft.com/office/2004/12/omml""" & vbNewLine & _
" xmlns=""http://www.w3.org/TR/REC-html40"">" & vbNewLine
StrHtm = StrHtm & "[COLOR=#0000ff][B]< [/B][/COLOR]head>" & vbNewLine & _
" [COLOR=#0000ff][B]< [/B][/COLOR]meta http-equiv=Content-Type content=""text/html; charset=windows-1252"">" & vbNewLine & _
" [B][COLOR=#0000ff]< [/COLOR][/B]meta name=ProgId content=Word.Document>" & vbNewLine & _
" [B][COLOR=#0000ff]< [/COLOR][/B]meta name=Generator content=""Microsoft Word 15"">" & vbNewLine & _
" [B][COLOR=#0000ff]< [/COLOR][/B]meta name=Originator content=""Microsoft Word 15"">" & vbNewLine & _
" [B][COLOR=#0000ff]< [/COLOR][/B]link rel=File-List href=""Doc1.files/filelist.xml"">" & vbNewLine
StrHtm = StrHtm & "[COLOR=#0000ff][B]< [/B][/COLOR]link rel=themeData href=""Doc1.files/themedata.thmx"">" & vbNewLine & _
"[B][COLOR=#0000ff]< [/COLOR][/B]link rel=colorSchemeMapping href=""Doc1.files/colorschememapping.xml"">" & vbNewLine
StrHtm = StrHtm & "[B][COLOR=#0000ff]< [/COLOR][/B]style>" & vbNewLine & "[B][COLOR=#0000ff]<[/COLOR][/B] !--" & vbNewLine & " /* Font Definitions */" & vbNewLine & " @font-face" & vbNewLine & "    {font-family:""Cambria Math"";" & vbNewLine & " panose-1:2 4 5 3 5 4 6 3 2 4;" & vbNewLine & "  mso-font-charset:0;" & vbNewLine & "    mso-generic-font-family:roman;" & vbNewLine & " mso-font-pitch:variable;" & vbNewLine & "   mso-font-signature:3 0 0 0 1 0;}" & vbNewLine
StrHtm = StrHtm & " /* Style Definitions */" & vbNewLine & " p.MsoNormal, li.MsoNormal, div.MsoNormal" & vbNewLine & "  {mso-style-unhide:no;" & vbNewLine & "  mso-style-qformat:yes;" & vbNewLine & " mso-style-parent:"""";" & vbNewLine & " margin:0in;" & vbNewLine & "    margin-bottom:.0001pt;" & vbNewLine & " mso-pagination:widow-orphan;" & vbNewLine & "   font-size:12.0pt;" & vbNewLine & "  font-family:""Times New Roman"",serif;" & vbNewLine & " mso-fareast-font-family:""Times New Roman"";" & vbNewLine & "   mso-fareast-theme-font:minor-fareast;}" & vbNewLine
StrHtm = StrHtm & "p.msonormal0, li.msonormal0, div.msonormal0" & vbNewLine & " {mso-style-name:msonormal;" & vbNewLine & " mso-style-unhide:no;" & vbNewLine & "   mso-margin-top-alt:auto;" & vbNewLine & "   margin-right:0in;" & vbNewLine & "  mso-margin-bottom-alt:auto;" & vbNewLine & "    margin-left:0in;" & vbNewLine & "   mso-pagination:widow-orphan;" & vbNewLine & "   font-size:12.0pt;" & vbNewLine & "  font-family:""Times New Roman"",serif;" & vbNewLine & " mso-fareast-font-family:""Times New Roman"";" & vbNewLine & "   mso-fareast-theme-font:minor-fareast;}" & vbNewLine
StrHtm = StrHtm & ".MsoChpDefault" & vbNewLine & "  {mso-style-type:export-only;" & vbNewLine & "   mso-default-props:yes;" & vbNewLine & " font-size:10.0pt;" & vbNewLine & "  mso-ansi-font-size:10.0pt;" & vbNewLine & " mso-bidi-font-size:10.0pt;}" & vbNewLine
StrHtm = StrHtm & "@page WordSection1" & vbNewLine & "  {size:8.5in 11.0in;" & vbNewLine & "    margin:1.0in 1.0in 1.0in 1.0in;" & vbNewLine & "    mso-header-margin:.5in;" & vbNewLine & "    mso-footer-margin:.5in;" & vbNewLine & "    mso-paper-source:0;}" & vbNewLine
StrHtm = StrHtm & "div.WordSection1" & vbNewLine & "    {page:WordSection1;}" & vbNewLine & "-->" & vbNewLine & "" & vbNewLine


MsgBox StrHtm


End Sub

Html doc pro

Dossfm0q

Banned User

Excel Facts

Similar threads

Forum statistics

Share this page

Html doc pro

Dossfm0q

Banned User

Excel Facts

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock