[MSAccessProfessionals] Automation: DOCVARIABLE in Word 2019 is populating in Simple Text not in RTF - MSAccess 2019 VBA

Partial Code in MSAccess which populates DOCVARIABLES in word:

 

…………………………………..

 With objDoc
        For I = 0 To rs.Fields.Count - 1
            If rs.Fields(I).Value <> "" Then
                 .Variables(rs.Fields(I).Name).Value = rs.Fields(I).Value
                
            Else
                .Variables(rs.Fields(I).Name).Value = " "
            End If
        Next I
        .Range.Fields.Update
    End With

............................

Results in Word:

[DOCVARIABLE Text1] = <div><font face=Arial color=black><strong>Medical-Legal Provider, CERTIFIED INTERPRETERS, INC</strong>., hereby requests that an order be issued requiring that </font><font

 

face=Arial color=black style="BACKGROUND-COLOR:#FFFF00">Insurance</font><font

 

face=Arial color=black>, defendants herein, <strong>pay the sum of $</strong></font><font

 

face=Arial color=black style="BACKGROUND-COLOR:#FFFF00"><strong>apt charge</strong></font><font

 

Thanks,

Norbert

_._,_._,_

---

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#115536) | Reply To Group | Reply To Sender | Mute This Topic | New Topic

Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_