مشاركة بسيطة لملف قديم
نصوص منسقة.rar
ويمكن عمل دالة في مويل لبناء جملة الـ HTML واستخدامها في أي مربع نص، كما أنه يجب أن يكون من خصائص مربع النص (نص منسق)
Function FormatText(TargetText As String, _
Optional FontName As String, _
Optional FontSize As Integer, _
Optional FontColor As String, _
Optional FontBold As Boolean, _
Optional FontItalic As Boolean, _
Optional FontUnderline As Boolean) As String
'النص
'اسم الخط بين علامتي تنصيص
'لون الخط باللغة الانجليزية أو رقمه
'بنط عريض
'مائل
'تحته خط
Dim FontB0, FontB1, FontI0, FontI1, FontU0, FontU1 As String
'تحياتي/ أبواسد
If FontBold = True Then
FontB0 = "<b>"
FontB1 = "</b>"
Else
FontB0 = ""
FontB1 = ""
End If
If FontItalic = True Then
FontI0 = "<i>"
FontI1 = "</i>"
Else
FontI0 = ""
FontI1 = ""
End If
If FontUnderline = True Then
FontU0 = "<u>"
FontU1 = "</u>"
Else
FontU0 = ""
FontU1 = ""
End If
FormatText = "<font face=" & FontName & " , size=" & FontSize & " , color=" & FontColor & FontB0 & FontI0 & FontU0 & "" & TargetText & "" & FontU1 & FontI1 & FontB1 & "</font>"
End Function