sub selectdays()
set daystart=activedocument.variables("start")
set dayend=activedocument.variables("end")
dim startstring,endstring,rangstring
startstring=">="&daystart.getcontent.string
endstring="<="&dayend.getcontent.string
rangstring=startstring&endstring
set f=activedocument.fields("月")
f.select rangstring
end sub
