Mail Merge with HTML

Question

Hi&nbsp;&nbsp;I have a mail merge that contains some HTML.&nbsp;Can anyone please advise how I replace the HTML with correct formatting?&nbsp;I have a sample file https://thedeanesessexschuk-my.sharepoint.com/:w:/g/personal/dmckeown_thedeanes_essex_sch_uk/ETjWXiql8X1GlYYBsNcHFLkB1dOkyt-344BlrnWKwo3MRw?e=lXcgk9.&nbsp;&nbsp;Many thanks&nbsp;&nbsp;Desi

doug_robbins_word_mvp · Answer

DesiMcK&nbsp;Is the Sample file that you provided the result of the mail merge, or is it intended to be the data source
If you do not need the underlining as shown for Band B below, you could obtain that result by first using a couple of ordinary Find and Replace routines, one to replace&nbsp;
&lt;/p&gt;
with&nbsp;
^p
and the other to replace
&lt;/li&gt;&nbsp;
with
^p
and (Note, there is a splace after the "&lt;/li&gt; "
Then use a Wildcard replace to replace
\&lt;[a-z\/]{1,}\&gt;
with nothing

&nbsp;
If you want the underlining, it would require the use of a macro and a more complex replace routine, but it might be simpler just to perform the replaces detailed above and then manually select the text taht is to be underlined and apply the underlining

desimck · Answer

Thanks for the reply - is it possible to replace &lt;li&gt; with bullet points?ThanksDesi

doug_robbins_word_mvp · Answer

DesiMcK&nbsp;I am do not know how big the document is, but if it's not too big, it would just be simpler to select the paragraphs and manually apply bulleting (rather than the underlining.

&nbsp;
&nbsp;

desimck · Answer

Hithe doument is about 50 pages and I need to run it 6 times per year. I was hoping for a quick, reuseuable way to do it.Desi

doug_robbins_word_mvp · Answer

DesiMcK&nbsp;Define a new style with the name of ListBullet that has the format that you require for the bulleted paragraphs and then use a macro with the following code
Dim i As Long, j As Long, p As Long
With Selection
    .HomeKey wdStory
    With .Find
        .MatchWildcards = False
        .Text = "&lt;/p&gt;"
        .Replacement.Text = "^p"
        .Execute Replace:=wdReplaceAll
    End With
End With
With Selection
    .HomeKey wdStory
    With .Find
        .MatchWildcards = False
        .Text = "&lt;/li&gt; "
        .Replacement.Text = "^p"
        .Execute Replace:=wdReplaceAll
    End With
End With
With Selection
    .HomeKey wdStory
    With .Find
        .MatchWildcards = True
        .Text = "\&lt;[a-z\/]{1,}\&gt;"
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
    End With
End With
With ActiveDocument.Tables(1)
    For i = 1 To .Rows.Count
        With .Rows(i)
            For j = 1 To .Cells.Count
                With .Cells(j)
                    If .Range.Paragraphs.Count &gt; 1 Then
                        For p = 2 To .Range.Paragraphs.Count
                            With .Range.Paragraphs(p)
                                If .Range.Characters.Count &gt; 10 Then
                                    .Style = "ListBullet"
                                End If
                            End With
                        Next p
                    End If
                End With
            Next j
        End With
    Next i
End With

&nbsp;The attached file was processed by running that macro.

Forum Discussion

Mail Merge with HTML

5 Replies