>*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 >