Postada em 04/06/2011 19:57 hs
Olá a todos
È o seguinte estou quebrando a cabeça:
For lPos = 0 To 2
MyMessage2 = ""
MyMessage3 = ""
Set objNode2 = RSSItem(lPos).getElementsByTagName("title")
Set objNode3 = RSSItem(lPos).getElementsByTagName("description") 'Get the <description> element
MyMessage2 = Replace(MyMessage2 & objNode2(0).Text, Chr(10), "")
MyMessage3 = Replace(MyMessage3 & objNode3(0).Text, Chr(10), "") & vbNewLine
RTex.Text = RTex.Text & MyMessage2 & vbCrLf
RTex.Text = RTex.Text & MyMessage3 & vbCrLf
RTex.SelStart = 0
RTex.SelLength = Len(MyMessage2)
RTex.SelBold = True
Next
A variavel mymessage2 - é o titulo do paragrafo
A variavel mymessage3 - è o pragrafo
Eu queria negritar só o titulo (mymessage2)
Ele carrega tres pagrafos e negrita tudo titulo texto tudo.
|
