Thank you, Yousfi. But this is not a VFP project that I am working on. This is straight forward HTML page.
>this is another way to solve your problem dynamically.
>
>*this code can modify dynamically a web page.here all "P" tagnames are modified by code.it uses the method getElementByTagname (who returns
>*a collection of all web page object having "P" tag.
>
>PUBLIC oform
>oform=NEWOBJECT("form1")
>oform.Show
>RETURN
>
>DEFINE CLASS form1 AS form
> Height = 633
> Width = 882
> AutoCenter = .T.
> Caption = "Form1"
> windowstate=2
> Name = "form1"
>
> ADD OBJECT olecontrol1 AS olecontrol WITH ;
> oleclass="Shell.explorer.2",;
> Top = 0, ;
> Left = 0, ;
> Height = 588, ;
> Width = 888, ;
> Anchor = 15, ;
> Name = "Olecontrol1"
>
> ADD OBJECT command1 AS commandbutton WITH ;
> Top = 600, ;
> Left = 342, ;
> Height = 27, ;
> Width = 210, ;
> Anchor = 768, ;
> fontbold=.t. , ;
> Caption = "tweak P Tagsname dynamically", ;
> Name = "Command1"
>
> PROCEDURE olecontrol1.Init
> THIS.silent=.t.
> this.navigate("www.atoutfox.org")
> ENDPROC
>
> PROCEDURE command1.Click
> x= thisform.olecontrol1.document.getElementsByTagName("p") &&Get all elements in the document with the specified tag name (its a collection of objects)
> messagebox("p tagname count="+trans(m.x.length))
>
> for each obj in m.x &&pput all styles you want here for all p tags
> obj.style.textAlign="center"
> obj.style.width="700px"
> obj.style.color="rgb(255,0,0)"
> obj.style.fontsize="20px"
> obj.style.fontFamily="courier new"
> obj.style.fontstyle="italic"
> obj.style.backgroundColor = "cyan"
> obj.style.borderRadius = "25px"
> next
> ENDPROC
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
