如何修改代码？将自习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编辑过]

    Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Font.Size = 9

这是WORD中录制宏得到的，你修整修整 试试看！

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

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

继续查找替换即可哈

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

wordapp.activedocument.tables(1).cell(4, 3).select
wordapp.selection.moveright(3, 1, 0)
do while wordapp.selection.find.execute('自习')
   wordapp.selection.moveright(3, 1, 1)
   wordapp.selection.font.size = 9
   wordapp.selection.moveright(3, 1, 0)
enddo

我帮别人做一点杂活，设计一下考签什么的，常用这些基本的功能，多用几次就熟悉啦，应该还有其他的方法，欢迎交流！

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

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