WORD文档下划线内容格式设置

yjwdjfqb · 发表于 2015-9-19 22:21

WORD文档下划线内容格式设置

请老师们帮帮忙，将有下划线的内容设置格式
如图：
谢谢老师们了！

VBA设置WORD文档下划线以上内容格式.rar (3.95 KB, 下载次数: 46)

WORD下划线内容格式.jpg

闻启学 · 发表于 2015-9-19 22:28

是否这样啊

查找替换就行不必这么麻烦吧

VBA设置WORD文档下划线以上内容格式（解决）.rar (6.82 KB, 下载次数: 42)

yjwdjfqb · 发表于 2015-9-19 22:37

闻启学发表于 2015-9-19 22:28
是否这样啊

查找替换就行不必这么麻烦吧

老师你好，就是这样的
请老师教下我方法好吧，谢谢你了老师了！

闻启学 · 发表于 2015-9-19 22:46

yjwdjfqb 发表于 2015-9-19 22:37
老师你好，就是这样的
请老师教下我方法好吧，谢谢你了老师了！

查找替换而儿

百度一下就行哦或者 QQ我：417149126

yjwdjfqb · 发表于 2015-9-19 23:17

闻启学发表于 2015-9-19 22:46
查找替换而儿

百度一下就行哦或者 QQ我：417149126

老师你好，麻烦你发个方法的链接好吧，谢谢了老师！

yjwdjfqb · 发表于 2015-9-20 09:29

请老师们帮帮我，写个这样的VBA代码，谢谢大家了！

yjwdjfqb · 发表于 2015-9-20 20:38

请老师们帮帮忙，谢谢老师们了！

yjwdjfqb · 发表于 2015-9-21 09:56

闻启学发表于 2015-9-19 22:28
是否这样啊

查找替换就行不必这么麻烦吧

谢谢老师的帮助，今天按老师教的方法，终于做出来了，谢谢老师了！

413191246se · 发表于 2015-9-26 22:03

Sub 下划线设置红色()
With ActiveDocument.Content.Find
      .ClearFormatting
      .Font.Underline = wdUnderlineSingle '单下划线
      With .Replacement
         .ClearFormatting
         .Font.Color = wdColorRed '红色
      End With
      .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
End Sub

yjwdjfqb · 发表于 2015-9-27 08:28

413191246se 发表于 2015-9-26 22:03
Sub 下划线设置红色()
With ActiveDocument.Content.Find
.ClearFormatting

谢谢老师的帮助，很好用！
中秋快乐！

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

[已解决] WORD文档下划线内容格式设置

评分

评分