如何在word一个单元格设置两种不同的字体 - 编程论坛

#2

schtg2025-03-20 08:05

回复楼主王咸美

要有数据，或有截图，才知道内容和版式，才能确定能否实现？

#3

王咸美2025-03-20 17:43

只有本站会员才能查看附件，请登录

生成学校每天日课总表程序如下：
我想设置任教学科为宋体、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

#4

schtg2025-03-20 19:56

回复 3楼王咸美

已经导出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编辑过]

#5

王咸美2025-03-21 07:38

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

#6

schtg2025-03-21 12:51

回复 5楼王咸美

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