Word 2003 & 2019 自动排版宏（2020 国庆珍藏版）

413191246se · 发表于 2021-3-13 01:01

楼上新人朋友，你好！——你的两个问题我均不能解答。抱歉啊！请搜索网络查询吧！

xkqtdzj · 发表于 2021-4-2 17:00

对于形如1.xxxxxx。独立句子直接为定义标题4。
对于形如1.xxxxxx。xxxxxx……。前面的1.xxxxxx。定义为标题4，后面的xxxxxx……。定义为正文样式。两者之间ctrl+alt+enter联接。这样外在形式不变。也不影响抽取目录了。
不知道这条路是否走得通？代码能不能实现？
请大神出手

走得通的话，2,3级标题类似的问题也都适用这个思路。

cuteword · 发表于 2021-4-2 17:19

楼上，样式分割符是在第一个句号前还是之后？传个测试文档上来？

xkqtdzj · 发表于 2021-4-2 20:15

当然是句号后. 目录带句号很客易处理的. 至于例文太简单了，就不提供了.

413191246se · 发表于 2021-4-3 00:27

本帖最后由 413191246se 于 2021-4-3 14:00 编辑

* 祝龚老师和论坛各位版主、管理员、老师、大神、朋友们：清明节安康！！！
* xkqtdzj 朋友，谢谢！——我已有此意！但最近因为用眼过度，三叉神经痛又犯了，暂时休息。。。

wzzsyf · 发表于 2021-4-8 14:42

感谢分享，辛苦了！

cuteword · 发表于 2021-4-9 16:02

xkqtdzj 发表于 2021-4-2 17:00
对于形如1.xxxxxx。独立句子直接为定义标题4。
对于形如1.xxxxxx。xxxxxx……。前面的1.xxxxxx。定义为标 ...

我已经实现了这个，请在aidocx.com上体验

xkqtdzj · 发表于 2021-4-12 16:33

本帖最后由 xkqtdzj 于 2021-4-12 18:40 编辑

我只考虑标题4的情况，我用的笨办法。将处理后标题4段落转为正文样式。再将其中的首句，定为标题4。我用录宏的办法形成代码。大致达到目标。但有三个问题：①段落前空2没有了。②段落带框了。③首句后的文字加粗了。
Attribute VB_Name = "模块5"
Sub toB4()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("标题 4 Char")
With Selection.Find
      .Text = "([0-9]@．*[^13。])"
      .Replacement.Text = "\1"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub toZW()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("正文")
Selection.Find.Replacement.ParagraphFormat.Borders.Shadow = False
With Selection.Find
      .Text = "([0-9]@．*[^13])"
      .Replacement.Text = "\1"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
请老师指导如何改代码，准确快速实现下图的目标：

413191246se · 发表于 2021-4-16 01:16

* xkqtdzj 朋友，你好！——最近考虑中文自动排版能否创新，但苦思无果，遂未开工。另加最近想重新编制一下表格合并的宏，故未及时回复，望请见谅！

* 今日总算决定看看此样式分隔符如何加入，但并未从字符代码角度（chr/asc/Unicode）插入，而是从选定区域角度来插入的，反复试验是成功的。但此宏并未能在正常排版时插入，而是作为补丁在全部排版完毕后循环遍历所有段落基础上仅对标题 4 段落有效，请自行准备示例文档试验之。必须在正常排版后应用本宏。

* 前一段时间，从本坛网友“晨晓之黎”处学会了多模块的应用，并非只能用默认的 NewMacros 模块，而是可以随时插入一个模块来运行宏的。下面提供《标题4插入样式分隔符》的宏模块代码，请解压后在 VBE 中插入此模块即可；或复制到 NewMacros 模块中也可。

*

InsertStyleSeparator.rar (1.12 KB, 下载次数: 23)

413191246se · 发表于 2021-4-16 01:18

说了好多，忘了一句：这样处理，增加了排版时间，影响了效率；但如果确实需要，也就无所谓了。

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

[分享] Word 2003 & 2019 自动排版宏（2020 国庆珍藏版）

评分