如何将下列代码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

 

已经导出word文档，直接设置即可(仅举一例)。

wordapp = createobject("word.application") 
oleapp = wordapp.documents.open(sys(5) + curdir() + "学校日课总表[星期一]")  && 替换word文档名称，最后添加保存即可。
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

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

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

把查找的字符串换成 自习1  或 自习2 后，改成 9号字体即可。