(you will need to edit the code to use your desired image file)
wordhelper.bas
http://cid-53bce305c32e0874.skydrive.li ... helper.bas
demo code
Code: Select all
'----------------------------
' Wordhelper demo code
'----------------------------
#include "wordhelper.bas"
wordstart
wordfontsize(14)
wordfontcolor(wdcolorred)
For x As Integer = 1 To 50
wordfontitalic
If x/2 = Int(x/2) Then
wordfontbold
End If
If x/4 = Int(x/4) Then
wordfontunderline(1)
wordfontshading(wdColorbluegray)
Else
wordfontunderline(0)
End If
wordtypetext("This is line number " & Str(x)) & "."
wordfontshading
wordparagraph
If x > 10 Then
wordhome
wordend(wdline,wdextend)
worddelete
wordend(wdstory)
End If
Sleep 200
Next x
Kill ("c:\freebasic\mytestdoc.doc")
wordpicture("c:\freebasic\fblogo.bmp") 'use your path and filename
wordsaveas("c:\freebasic\mytestdoc.doc")
'wordprintout 'uncomment to send to printer
Sleep 2000
wordhome
wordfindreplacetext("line","goofy")
Print "Word Count = ";worddocstatistics
Sleep 5000
For x As Integer = 1 To 10
Sleep 500
wordhome
wordend(wdline,wdextend)
worddelete
Next x
worddrawshape(smileyface,100,50,100,100)
wordshapefillcolor(wdcoloryellow)
Sleep 5000
wordsaved
wordquit
wordrelease
Sleep