求助：如何修改代码将含有自习1或自习2的学科单独设置为9号字，其他格式不变 - 编程论坛

#2

wengjl2025-03-21 11:03

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

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

#3

schtg2025-03-21 12:57

回复楼主王咸美

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

#4

王咸美2025-03-21 13:55

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

#5

schtg2025-03-21 19:14

回复 4楼王咸美

继续查找替换即可哈

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

程序代码：

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

#6

schtg2025-03-21 19:20

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

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

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

#7

王咸美2025-03-21 19:46

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