Merhaba, kod içerisinde

strCurFontSize = "fs" & lTmp

şeklinde satır var. bunun üzerine

if lTemp <16 then

lTemp = lTemp + 2

end if

şeklinde kod yazarak deneyiniz. Veya

 RTF2HTML = strHTML

kodunun üzerine

    strHTML = Replace(strHTML, "\fs18 ", "\fs24 ")

    strHTML = Replace(strHTML, "\fs16 ", "\fs20 ")

şeklinde kod ekleyerek deneyiniz. Ayrıca Profil Bilgileri sayfsından eksik bilgilerinizi (ofis versiyonu) doldurunuz.

Yardımınız için teşekkürler Ozan bey ama maalesef "replace"li kod dışındakiler işe yaramadı.  "replace"li kodu biraz değiştirerek - modül içinde işe yaramadı maalesef - tıklama olayına yerleştirip kullanabildim. Son halini yüklüyorum, cevaplanmış sorular bölümüne taşıyabilirsiniz.