新手请教，如何批量修改格式

cutedog · 发表于 2005-5-15 16:33

在Word里有中文，有英文。中英文都是以特定的字符开始，例如中文以“主持人：”开始，而英文以“M:”或“R:”开始，现在需要将所有的中文删除，并将以“M:”开始的英文段落变成粗体。

我用VBA试了很久也没有弄出来，请各位高手指点！先谢拉！

[em06][em06][em06]

守柔 · 发表于 2005-5-16 06:16

欢迎cutedog

我想你把附件发上来，我给你做一下，很方便的，但如果没有附件，实在不利于一次性解决问题，OK？

http://club.excelhome.net/viewthread.php?tid=45649

cutedog · 发表于 2005-5-16 09:53

谢谢守版主！

cutedog · 发表于 2005-5-16 09:56

ksfzOeRP.rar (8.78 KB, 下载次数: 19) 刚才漏掉附件了，这个就是一个样本。

守柔 · 发表于 2005-5-16 19:35

象你这个情况,如果是OFFICEXP及以上版本的,可以不用VBA,更好(当然,使用VBA也可以,你先试下来再说)

我们分析一下,你的所有中文段落中的冒号使用的是"："，而英文段落中的冒号使用的":",因此,我们可以简单地使用查找与替换功能即可实现.

查找:"："

替换为中点选高级/格式/样式：选一个比如标题9，全部替换，则WORD会将所有"："的段落设置为标题9样式，将光标定位于位置一个标题9段落中，右击，选择格式相同的文本，同WORD会将所有标题9样式的段落全部选中，删除之。

同理，查找"M:"

替换为某一样式,然后定位于该段落中,右击/选择格式相同的文本,则WORD会自动选定格式相同的该文本,然后按下CTRL+B,则会设置为粗体段落的文本.当然,此处的方法多多,你自己体会吧.

如果你实在要求使用VBA实现,也很简单.

能不用,则不用.

honey_bee · 发表于 2005-5-16 22:30

又学了一招，谢谢守版主和楼主

cutedog · 发表于 2005-5-17 10:52

谢谢版主指教，我的是office2000，而且我经常性的有这样的工作要做，所以还是想用VBA来完成。还请版主不吝赐教！多谢！

我的主要困难在于无法准确的找到并选中目标内容。

cutedog · 发表于 2005-5-17 14:19

ding!

守柔 · 发表于 2005-5-17 19:49

请参:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-5-17 19:49:17 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim i As Paragraph On Error Resume Next '忽略错误 '关闭屏幕更新 Application.ScreenUpdating = False With ActiveDocument '活动文档 For Each i In .Paragraphs '遍历每个段落 '如果有"："则删除该段落 If VBA.InStr(i.Range, "：") > 0 Then i.Range.Delete '如果有"M:"则加粗该段落 ElseIf VBA.InStr(i.Range, "M:") > 0 Then i.Range.Font.Bold = True End If Next End With '恢复屏幕更新 Application.ScreenUpdating = True End Sub '----------------------

cutedog · 发表于 2005-5-18 19:05

无言感动ing......

真是太感谢你了，守版主。多谢你的宝贵时间和无私的帮助，这个对我帮助太大了！！！

守版主万岁！

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