如何使押题区域变成指定字体

tangqiang57 · 发表于 2018-7-17 21:43

怎样把名师押题下面的题目字体变成楷体、小五字体，请高手写个代码

413191246se · 发表于 2018-7-18 13:52

Sub test名师押题()
'预处理
With ActiveDocument.Content.Find
.Execute "^13", , , 0, , , , , , "^p", 2
.Execute "^11", , , 0, , , , , , "^p", 2
.Parent.ListFormat.ConvertNumbersToText
End With
'
Dim r As Range
With Selection
.HomeKey unit:=wdStory
With .Find
.ClearFormatting
Do While .Execute("名师押题", , , 0, , , 1)
With .Parent
.Font.Color = wdColorPink '粉红（可屏蔽/注释/删除）
Do
.Move 4, 1
.Expand 4
Set r = .Range
If r.End = ActiveDocument.Content.End Then Exit Do '如果段落结尾是文档结尾则退出
If r Like "[一二三四五六七八九十百零千]*、*" Or r Like "[(（][一二三四五六七八九十百零千]" Then Exit Do
If r Like "#[.．、]*" Or r Like "##[.．、]*" Or r Like "###[.．、]*" Or r Like "####[.．、]*" Then
r.Underline = wdUnderlineSingle '下划线（可屏蔽/注释/删除）
r.Font.Name = "楷体_GB2312" '（如果是WIN7系统，请删除 _GB2312，只留“楷体”）
r.Font.Bold = True '加粗（可屏蔽/注释/删除）
r.Font.Color = wdColorRed '红色（可屏蔽/注释/删除）
End If
Loop
.EndKey 5
End With
Loop
End With
.HomeKey unit:=wdStory
End With
End Sub

复制代码

tangqiang57 · 发表于 2018-7-18 16:14

413191246se 发表于 2018-7-18 13:52

刚测试了一下实现不了让名师押题下面的题目变成指定的

tangqiang57 · 发表于 2018-7-18 16:17

413191246se 发表于 2018-7-18 13:52

名师押题下边不是有 1 2 3 4等一些不同类型题目吗，然后是正文，现在就只是说让题目和ABCD选项的内容都变成楷体小五红色看是否能实现

413191246se · 发表于 2018-7-18 23:17

楼主，将2楼代码第23行/28行代码屏蔽（注释掉，即前面加小撇儿'）即可。

413191246se · 发表于 2018-7-18 23:36

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 如何使押题区域变成指定字体