怎样把Word文档内未设置标题格式很多不同的副标题一次性批量替换字体或颜色

13907933959

郝万山、讲《伤寒论》.zip (709.39 KB, 下载次数: 23)

2015-4-1 16:53 上传

点击文件名下载附件

cushion1

可以用通配符

413191246se

楼主，你的小标题，我看绝大多数是以中文冒号为结尾的段落，用VBA宏代码很快能设置完毕，但我这里仅在你的红字小标题下面设置一下下划线（因为不知道你想将小标题设置为哪种样式）：
Sub test()
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If i.Range Like "*：" & vbCr Then i.Range.Font.Underline = wdUnderlineSingle
    Next
End Sub
至于怎么应用宏代码，你可以先自行录制一个宏，方法：*****
通过录制宏生成代码
请参阅 特性
如果无法确定要使用的 Visual Basic 方法或属性，可打开宏录制器并进行手动操作。宏录制器会将操作译成 Visual Basic 代码。录制操作完成后，可根据需要修改代码。例如，如果无法确定实现段落缩进的属性或方法，可执行下列操作：

在“工具”菜单上，指向“宏”，然后单击“录制新宏”。
如果需要，可更改默认的宏名称，然后单击“确定”启动录制器。
在“格式”菜单上，选定“段落”。
更改段落左缩进的值，然后单击“确定”。
单击“停止录制”工具栏上的“停止录制”按钮。
在“工具”菜单上，指向“宏”，然后单击“宏”。
从步骤 2 中选择宏的名称，然后单击“编辑”按钮。

413191246se

楼主设置70多个小标题，辛苦了！——另外，楼主整篇文档想怎么排版？建议应用《文档结构图》观察之。

13907933959

413191246se 发表于 2015-4-2 09:27
楼主设置70多个小标题，辛苦了！——另外，楼主整篇文档想怎么排版？建议应用《文档结构图》观察之。

您好！感谢您为我付出的心血和时间，再次的感谢！我就是想找到一种方法，能一次批量全选到文档内象这种独立另起一行的小标题，而不选到文档的正文就可以了，因为象这种类似的文档我还有几十篇，里面的小标题加起来有上万个，且以后我还会经常碰到，所以恳请您帮忙教我一种办法。

mingch

没有规律，貌似不可能实现吧？除非是神人

413191246se

就楼主提供的样例来看，除了第一段是以“问号？”结尾的段落后，其它段落都是以中文“冒号：”结尾的段落，这一点如以上我的代码所示，非常简单；但同时，也可以再加上一个限制条件，就是某个段落的字符长度，如21个字符以内的，且末尾以中文冒号为结尾的段落，这是判断标准。如果有其它的判断标准，就不好说了。但是，即使这样，也可能会出现例外，难免出错（如果有错，须手工校正）。所以，除了把小标题设置为红色之外，还要结合《文档结构图》或多页显示来观察文档排版情况。

13907933959

413191246se 发表于 2015-4-3 10:11
就楼主提供的样例来看，除了第一段是以“问号？”结尾的段落后，其它段落都是以中文“冒号：”结尾的段落， ...

您好！我这个问题是不是解决的方向错了，“电脑本应无所不能”，难道就没有能查找全选到独立另起一行文字的方法或编程之类的，说它没有什么特征，可它又有，“独立另起一行的”，“未满一行的文字”不就是它的特征吗？我是一个外行，我只是把我的想法说出来，请见谅！

413191246se

楼主，你18楼的回复，似乎说难道这样简单的问题就没有办法了吗？不是没有办法！——但是，如你所说，“独立另起一行”，它仅仅表示是一个段落，没有什么意义。“未满一行的文字”，它表示字符长度=38，这个是你文章中现在的排版情况所表示的一行字长。但我根据字长=38这个条件，一试验，发现不少段落都误设置为小标题了！这样可不对。
——所以，像我前些天所回答的那样，你的小标题，应该是以“中文冒号”结尾，或段落末尾没有任何标点符号结尾，这样的特征才能作为限定条件对符合该条件的段落设置之。
请你重新思考一下（你的小标题，是以什么为限定条件），或提供一下新的附件，不必来几十页的附件，来10页的附件即可。

13907933959

413191246se 发表于 2015-4-7 11:09
楼主，你18楼的回复，似乎说难道这样简单的问题就没有办法了吗？不是没有办法！——但是，如你所说，“独立 ...

你好！我的问题让你一再的费心，深表谢意！我是一个外行、说的话让你见笑了，但绝无冒犯之意。我只是想问、如果标题前后面都没有任何统一的标点及符号，只是独立另起了一行，且未满一行不同的文字（只是都少以38个字），有不有什么方法能一次性全部全选到，能否请你再费心，谢谢！