Here is a new example:
Code: Select all
#include "wordhelper.bas"
dim filecount as integer
wordstart
'returns the number of files that match the filespec
filecount = worddir("*.*","C:\freebasic\",true)
'worddiritem returns item number x from previous worddir call
for x as integer = 1 to filecount
wordtypetext(worddiritem(x))
wordparagraph
next x
wordsaved
wordrelease