如何修改代码？将自习1或自习2设置成9号字，请高手赐教，万分感谢！！！




具体代码如下：
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

[此贴子已经被作者于2025-3-21 10:11编辑过]

@schtg 怎么换？另表格第3至8设置成列宽自动，代码怎么写？请指点！谢谢！

首先表示衷心的感谢！再次请教：如何将从第4行开始的3至8列设为列宽自动？