如何将下列代码cZdm中的cxkmc设置为宋体10号字、加粗；"["+cjsxm+"]"设置为楷体9号字。
请高手赐教，万分感谢！！！

SELECT  kb
 FOR  i=m*6-3 TO  m*6+2
  FOR  j=4 TO  RECCOUNT()+3
    GO  j- 3  
    cxkmc=ALLTRIM(EVALUATE(FIELD(i)))
    SELECT jsrkb      
    FOR  n=3 TO  FCOUNT("jsrkb")
     GO  j- 3
     IF  FIELD(n)=cxkmc
      cjsxm=ALLTRIM(EVALUATE(FIELD(n)))

     cZdm=cxkmc+"["+cjsxm+"]"

     wordTable.Tables.item(1).Cell(j,i-6*(m-1)).Range.Text=cZdm

[此贴子已经被作者于2025-3-19 20:09编辑过]

生成学校每天日课总表程序如下：
我想设置任教学科为宋体、10字号加粗，任教老师为楷体9号字，请高手赐教，万分感谢！！！

编号：PRG047【更新】
名称：生成学校每天日课总表(含任课教师姓名)

VFP代码：
CLOSE  DATABASES
CLEAR  ALL
cPath=ADDBS(JUSTPATH(SYS(16)))
SET   DEFAULT   TO   (cPath)
USE   kb20190101   ALIAS   kb   IN   0
USE   jsrkb20190101   ALIAS   jsrkb   IN  0
PUBLIC  cxkmc , i , j , m , n , cjsxm
wjm=cpath+"mtkbmb.doc"
FOR   m=1  TO   5
 wordApp=CREATEOBJECT("word.Application")
 wordApp.visible=.t.
 cStr=SUBSTR("一二三四五",1+(m-1)*2,2)
 wordTable=wordApp.Application.Documents.Open(wjm)
 cFileName=cPath+"学校日课总表[星期"+cStr+"]"+".doc"
 wordApp.ActiveDocument.Content.Find.Execute('AB',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&cStr',2)
 SELECT  kb
 FOR  i=m*6-3  TO  m*6+2
  FOR  j=4  TO  RECCOUNT()+3
    GO  j - 3   
    cxkmc=ALLTRIM(EVALUATE(FIELD(i)))
    SELECT  jsrkb        
    FOR  n=3  TO  FCOUNT("jsrkb")
     GO  j - 3
     IF  FIELD(n)=cxkmc
      cjsxm=ALLTRIM(EVALUATE(FIELD(n)))
      cZdm=cxkmc+"["+cjsxm+"]"
      IF  LEN(cZdm)>12
        wordTable.Tables.item(1).Cell(j,i-6*(m-1)).Range.font.size=8
      ENDIF
      wordTable.Tables.item(1).Cell(j,i-6*(m-1)).Range.Text=cZdm
     ENDIF
    ENDFOR
    SELECT   kb            
  ENDFOR
ENDFOR
wordApp.Documents(1).SaveAs(cFileName)
*wordApp.ActiveWindow.WindowState=2
wordApp.Documents.Close   
wordApp.Quit            
RELEASE   wordApp
ENDFOR
RETURN

 

谢谢！如果学科名称为自习1或自习2，字号设为9号，代码如何写，请指点！