How to Convert Word Documents to HTML with VBA

About us: Personal website of Timofey Bugaevsky and the company Zetka Interactive

Guides: A comprehensive collection of technical guides written from a senior developer's perspective. Each article provides in-depth explanations, practical code examples, and production-ready patterns.

Integrations: Third-party services and platform integrations

Microsoft Word documents often need conversion to HTML for web publishing, email templates, or content management systems. While Word offers built-in HTML export, it produces bloated markup with proprietary styles. VBA macros provide granular control over the conversion process, creating clean, semantic HTML. This guide covers implementing professional Word-to-HTML conversion from a senior developer's perspective.

Why Custom VBA Conversion

Custom VBA conversion offers advantages over Word's native export:

Clean Markup: Control exactly what HTML is generated
Table Handling: Convert complex nested tables properly
Style Mapping: Map Word styles to CSS classes
Batch Processing: Convert multiple documents automatically
Integration: Embed in document workflows

Understanding the Challenge

Word documents contain:

Paragraphs: Basic text blocks with formatting
Tables: Often nested for complex layouts
Images: Embedded or linked graphics
Styles: Named formatting sets
Lists: Numbered and bulleted items

Each element requires specific handling during conversion.

Basic Document Structure

Accessing Document Content

Sub ConvertDocumentToHTML()
Dim doc As Document
Dim output As String
Dim para As Paragraph
Set doc = ActiveDocument
output = "<!DOCTYPE html>" & vbCrLf
output = output & "<html><head>" & vbCrLf
output = output & "<meta charset=""UTF-8"">" & vbCrLf
output = output & "<title>" & doc.Name & "</title>" & vbCrLf
output = output & "</head><body>" & vbCrLf
' Process each paragraph
For Each para In doc.Paragraphs
output = output & ConvertParagraph(para)
Next para
output = output & "</body></html>"
' Write to file
WriteToFile doc.Path & "\" & Replace(doc.Name, ".docx", ".html"), output
End Sub
Function ConvertParagraph(para As Paragraph) As String
Dim html As String
Dim text As String
text = Trim(para.Range.text)
' Remove paragraph mark
text = Replace(text, Chr(13), "")
If Len(text) = 0 Then
ConvertParagraph = ""
Exit Function
End If
' Determine element type based on style
Select Case para.Style.NameLocal
Case "Heading 1"
html = "<h1>" & EscapeHTML(text) & "</h1>"
Case "Heading 2"
html = "<h2>" & EscapeHTML(text) & "</h2>"
Case "Heading 3"
html = "<h3>" & EscapeHTML(text) & "</h3>"
Case Else
html = "<p>" & ConvertInlineFormatting(para.Range) & "</p>"
End Select
ConvertParagraph = html & vbCrLf
End Function

Escaping HTML Characters

Function EscapeHTML(text As String) As String
Dim result As String
result = text
result = Replace(result, "&", "&amp;")
result = Replace(result, "<", "&lt;")
result = Replace(result, ">", "&gt;")
result = Replace(result, """", "&quot;")
result = Replace(result, "'", "&#39;")
EscapeHTML = result
End Function

Handling Inline Formatting

Word paragraphs contain runs of text with different formatting. Process each run separately:

Function ConvertInlineFormatting(rng As Range) As String
Dim html As String
Dim char As Range
Dim i As Long
Dim currentBold As Boolean
Dim currentItalic As Boolean
Dim currentUnderline As Boolean
Dim text As String
html = ""
currentBold = False
currentItalic = False
currentUnderline = False
For i = 1 To rng.Characters.Count
Set char = rng.Characters(i)
text = char.text
' Skip paragraph marks
If text = Chr(13) Or text = Chr(7) Then
GoTo NextChar
End If
' Check formatting changes
If char.Bold And Not currentBold Then
html = html & "<strong>"
currentBold = True
ElseIf Not char.Bold And currentBold Then
html = html & "</strong>"
currentBold = False
End If
If char.Italic And Not currentItalic Then
html = html & "<em>"
currentItalic = True
ElseIf Not char.Italic And currentItalic Then
html = html & "</em>"
currentItalic = False
End If
If char.Underline <> wdUnderlineNone And Not currentUnderline Then
html = html & "<u>"
currentUnderline = True
ElseIf char.Underline = wdUnderlineNone And currentUnderline Then
html = html & "</u>"
currentUnderline = False
End If
html = html & EscapeHTML(text)
NextChar:
Next i
' Close any open tags
If currentUnderline Then html = html & "</u>"
If currentItalic Then html = html & "</em>"
If currentBold Then html = html & "</strong>"
ConvertInlineFormatting = html
End Function

Converting Tables

Tables require special handling, especially when nested:

Function ConvertTable(tbl As Table) As String
Dim html As String
Dim row As row
Dim cell As cell
Dim cellContent As String
html = "<table>" & vbCrLf
For Each row In tbl.Rows
html = html & " <tr>" & vbCrLf
For Each cell In row.Cells
' Check for nested tables
If cell.Range.Tables.Count > 0 Then
' Process nested table first
cellContent = ConvertTable(cell.Range.Tables(1))
Else
cellContent = ConvertCellContent(cell)
End If
html = html & " <td>" & cellContent & "</td>" & vbCrLf
Next cell
html = html & " </tr>" & vbCrLf
Next row
html = html & "</table>" & vbCrLf
ConvertTable = html
End Function
Function ConvertCellContent(cell As cell) As String
Dim text As String
text = cell.Range.text
' Remove cell markers
text = Replace(text, Chr(13), "")
text = Replace(text, Chr(7), "")
ConvertCellContent = EscapeHTML(Trim(text))
End Function

Handling Nested Tables

Complex documents often contain tables within tables. Process from innermost to outermost:

Function ProcessNestedTables(para As Paragraph, OutputDoc As Document) As Boolean
Dim IsTablePara As Boolean
Dim TablePar As Paragraph
Dim TableParIndex As Integer
Dim IsSimpleTable As Boolean
Dim InsideTablePar As Paragraph
Dim TempTable As Document
IsTablePara = False
If para.Range.Tables.Count > 0 Then
IsTablePara = True
' Create temporary document for table conversion
Dim TablesDoc As Document
Set TablesDoc = Documents.Add
para.Range.Tables(1).Range.Cut
TablesDoc.Content.Paste
' Process tables from innermost to outermost
While TablesDoc.Tables.Count > 0
' Find the first simple table (no nested tables)
For TableParIndex = TablesDoc.Paragraphs.Count To 1 Step -1
Set TablePar = TablesDoc.Paragraphs(TableParIndex)
If TablePar.Range.Tables.Count > 0 Then
' Check if this table contains nested tables
IsSimpleTable = True
For Each InsideTablePar In TablePar.Range.Tables(1).Range.Paragraphs
If InsideTablePar.Range.Tables.Count > 0 Then
If InsideTablePar.Range.Tables(1).Range.Start <> _
TablePar.Range.Tables(1).Range.Start Then
IsSimpleTable = False
Exit For
End If
End If
Next
' Convert simple table to HTML
If IsSimpleTable Then
Set TempTable = GenerateHTMLTable(TablePar.Range.Tables(1))
TablePar.Range.Tables(1).Range.Select
TablePar.Range.Tables(1).Delete
Selection.Collapse Direction:=wdCollapseStart
Selection.FormattedText = TempTable.Range
TempTable.Close False
Exit For
End If
End If
Next
Wend
' Output converted content
OutputDoc.Content.InsertAfter text:=TablesDoc.Range.text
TablesDoc.Close False
End If
ProcessNestedTables = IsTablePara
End Function

Converting Lists

Handle both numbered and bulleted lists:

Function ConvertList(para As Paragraph) As String
Dim html As String
Dim listType As String
Dim text As String
text = Trim(Replace(para.Range.text, Chr(13), ""))
' Determine list type
If para.Range.ListFormat.ListType = wdListBullet Then
listType = "ul"
ElseIf para.Range.ListFormat.ListType = wdListSimpleNumbering Or _
para.Range.ListFormat.ListType = wdListMixedNumbering Then
listType = "ol"
Else
ConvertList = ""
Exit Function
End If
' Check if this is the start of a list
Dim prevPara As Paragraph
Dim isListStart As Boolean
isListStart = True
If para.Range.Start > 1 Then
Set prevPara = para.Previous
If Not prevPara Is Nothing Then
If prevPara.Range.ListFormat.ListType = para.Range.ListFormat.ListType Then
isListStart = False
End If
End If
End If
' Build HTML
If isListStart Then
html = "<" & listType & ">" & vbCrLf
End If
html = html & " <li>" & EscapeHTML(text) & "</li>" & vbCrLf
' Check if this is the end of a list
Dim nextPara As Paragraph
Set nextPara = para.Next
If nextPara Is Nothing Then
html = html & "</" & listType & ">" & vbCrLf
ElseIf nextPara.Range.ListFormat.ListType <> para.Range.ListFormat.ListType Then
html = html & "</" & listType & ">" & vbCrLf
End If
ConvertList = html
End Function

Handling Images

Extract and reference images:

Function ConvertImage(shape As InlineShape, outputFolder As String, imageIndex As Integer) As String
Dim imagePath As String
Dim imageName As String
imageName = "image_" & imageIndex & ".png"
imagePath = outputFolder & "\" & imageName
' Export image to file
shape.Range.CopyAsPicture
' Save using chart export (workaround for VBA limitation)
Dim chartObj As ChartObject
Dim tempSheet As Worksheet
' Note: Full image export requires additional handling
ConvertImage = "<img src=""" & imageName & """ alt=""Image " & imageIndex & """>"
End Function

File Output

Writing HTML to File

Sub WriteToFile(filePath As String, content As String)
Dim fileNum As Integer
fileNum = FreeFile
Open filePath For Output As #fileNum
Print #fileNum, content
Close #fileNum
End Sub

Creating Output with UTF-8 Encoding

Sub WriteUTF8File(filePath As String, content As String)
Dim stream As Object
Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type = 2 ' Text
stream.Charset = "UTF-8"
stream.WriteText content
stream.SaveToFile filePath, 2 ' Overwrite
stream.Close
End Sub

Complete Conversion Module

Option Explicit
' Style for converted content
Const NoFormattingStyle As String = "HTMLConverted"
Sub ConvertActiveDocumentToHTML()
Dim doc As Document
Dim outputPath As String
Dim html As String
Set doc = ActiveDocument
outputPath = doc.Path & "\" & Replace(doc.Name, ".docx", ".html")
html = BuildHTMLDocument(doc)
WriteUTF8File outputPath, html
MsgBox "Conversion complete: " & outputPath, vbInformation
End Sub
Function BuildHTMLDocument(doc As Document) As String
Dim html As String
Dim para As Paragraph
Dim imageIndex As Integer
imageIndex = 1
' HTML header
html = "<!DOCTYPE html>" & vbCrLf
html = html & "<html lang=""en"">" & vbCrLf
html = html & "<head>" & vbCrLf
html = html & " <meta charset=""UTF-8"">" & vbCrLf
html = html & " <meta name=""viewport"" content=""width=device-width, initial-scale=1.0"">" & vbCrLf
html = html & " <title>" & EscapeHTML(doc.Name) & "</title>" & vbCrLf
html = html & " <style>" & vbCrLf
html = html & " body { font-family: Arial, sans-serif; max-width: 800px; margin: 0 auto; padding: 20px; }" & vbCrLf
html = html & " table { border-collapse: collapse; width: 100%; margin: 1em 0; }" & vbCrLf
html = html & " td, th { border: 1px solid #ddd; padding: 8px; }" & vbCrLf
html = html & " </style>" & vbCrLf
html = html & "</head>" & vbCrLf
html = html & "<body>" & vbCrLf
' Process content
For Each para In doc.Paragraphs
' Skip if inside table (tables handled separately)
If para.Range.Tables.Count = 0 Then
If para.Range.ListFormat.ListType <> wdListNoNumbering Then
html = html & ConvertList(para)
Else
html = html & ConvertParagraph(para)
End If
ElseIf para.Range.Start = para.Range.Tables(1).Range.Start Then
html = html & ConvertTable(para.Range.Tables(1))
End If
Next para
html = html & "</body>" & vbCrLf
html = html & "</html>"
BuildHTMLDocument = html
End Function

Best Practices

Test incrementally: Convert simple documents first
Handle edge cases: Empty paragraphs, special characters
Preserve semantics: Use appropriate HTML elements
Include styles: Embed or link CSS for formatting
Validate output: Check generated HTML is well-formed
Batch processing: Add folder iteration for multiple files

Key Takeaways

Process runs for formatting: Character-by-character for inline styles
Handle nested tables carefully: Inside-out processing
Map styles to elements: Headings, lists, paragraphs
Use UTF-8 encoding: Support international characters
Clean output: Remove Word-specific markers

VBA document conversion requires patience and testing—Word's object model has quirks, but the control it provides over output quality makes it worthwhile for professional publishing workflows.