www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
#Include "FiveWin.ch"
//--------------------------//
Function Main()
LOCAL oWord, oSelection, nX, nPoint := 60
oWord := CreateObject("Word.Application") //creating Wordobject
oWord:visible := .T.
oWord:Documents:Add() //adding a new document
oSelection := oWord:Selection //getting the active selection
With Object oSelection
:TypeText("Now setting the tabs"+CRLF)
WITH OBJECT :ParagraphFormat:TabStops
:ClearAll() //clearing all existing tabs
FOR nX := 1 TO 3
:Add( nPoint, 0) //adding new left tabs
nPoint += 60
NEXT
END WITH
:TypeText("left"+CHR(9)+"2"+CHR(9)+"3"+CRLF)
nPoint := 60
WITH OBJECT :ParagraphFormat:TabStops
:ClearAll() //clearing all existing tabs
FOR nX := 1 TO 3
:Add( nPoint, 1) //adding new center tabs
nPoint += 60
NEXT
END WITH
:TypeText("center"+CHR(9)+"22222"+CHR(9)+"3333"+CRLF)
nPoint := 60
WITH OBJECT :ParagraphFormat:TabStops
:ClearAll() //clearing all existing tabs
FOR nX := 1 TO 3
:Add( nPoint, 2) //adding new right tabs
nPoint += 60
NEXT
END WITH
:TypeText("right"+CHR(9)+"2"+CHR(9)+"3"+CRLF)
nPoint := 60
WITH OBJECT :ParagraphFormat:TabStops
:ClearAll() //clearing all existing tabs
FOR nX := 1 TO 3
:Add( nPoint, 3) //adding new decimal tabs
nPoint += 60
NEXT
END WITH
:TypeText("decimal"+CHR(9)+"2,1"+CHR(9)+"3,1"+CRLF+CRLF)
:TypeText("Now setting fonts"+CRLF)
WITH OBJECT :ParagraphFormat:TabStops
:ClearAll() //clearing all existing tabs
END WITH
:Font:Name="Arial"
:TypeText("Arial"+CHR(9)+"2"+CHR(9)+"3"+CRLF)
:Font:Size=16
:TypeText("Arial Size 16"+CHR(9)+"2"+CHR(9)+"3"+CRLF)
:Font:Size=10
:Font:Name="Courier"
:TypeText("Courier Size 10"+CHR(9)+"2"+CHR(9)+"3"+CRLF)
:Font:Bold=1
:TypeText("Courier Bold 10"+CHR(9)+"2"+CHR(9)+"3"+CRLF)
:Font:Bold=0
:TypeText("Courier Normal 10"+CHR(9)+"2"+CHR(9)+"3"+CRLF)
:Font:Italic=1
:TypeText("Courier Italic 10"+CHR(9)+"2"+CHR(9)+"3"+CRLF)
:Font:Italic=0
:TypeText("Courier Normal 10"+CHR(9)+"2"+CHR(9)+"3"+CRLF)
end with
Return nil