复杂表头的word表格如何设置列宽自动

我想将生成的word表格从第4行开始，第3列至第8列设置为列宽自动，不知代码如何写，请高手赐教，不胜感激！




具体代码如下：（不知代码如何修改，请高手赐教！）
CLOSE   DATABASES
SET   SAFETY   off
cPath=ADDBS(JUSTPATH(SYS(16)))
SET   DEFAULT   TO   (cPath)
FOR   m=1   TO   5
wordapp = createobject("word.application")
cStr=SUBSTR("一二三四五",1+(m-1)*2,2)
wjm=cPath+"学校日课总表[星期"+cStr+"]"+".doc"
cFileName=cPath+"学校日课总表["+cStr+"]"+".doc"
wordTable=wordApp.Application.Documents.Open(wjm)
wordapp.visible = .t.
wordapp.activedocument.tables(1).cell(4, 3).select
wordapp.selection.moveright(3,71,1)
wordapp.selection.font.name = "宋体"
wordapp.selection.font.size = 10
wordapp.selection.font.bold = .t.

do  while wordapp.selection.find.execute('[')
     wordapp.selection.moveright(3, 1, 1)
     wordapp.selection.font.name = "楷体"
     wordapp.selection.font.size = 9
     wordapp.selection.font.bold = .f.
     wordapp.selection.moveright(3, 1, 0)
enddo
wordapp.Documents(1).SaveAs(cFileName)
wordapp.Documents.close
wordapp.quit
release   wordapp
WAIT   CLEAR
ENDFOR
RETURN