word自动排版：给题目添加序号和句号，答案前添加参考答案，

15116475571

源文档中包含多个简答题，每道简答题的题目以简述开头。源文档内容如下面第一个图所示。现希望通过vba实现以下需求：
①给每道简答题的题目都加粗
②在题目后面加上句号
③每个简答题的答案前加上【参考答案】
希望实现的效果如下第二个图所示。两个图对应的文档已通过附件上传。
希望大佬帮忙解决，采纳后送小花花，谢谢！

约定的童话

OK了，可以批量操作多个

15116475571

约定的童话 发表于 2020-10-28 22:15
就一个word文档啊？手动也做好了啊！

图片和文档只是举例，实际有很多这样的文档，而且每个文档的题目很多

zhanglei1371

不涉及挪移，VBa很简单。

Sub test()
startwd = Array("简述")
ActiveDocument.Range.InsertBefore "." & Chr(13)
Dim fd As Field
Set fd = ActiveDocument.Fields.Add(ActiveDocument.Range(0, 0), wdFieldEmpty, "seq aa")
fd.Update
Set temprg = ActiveDocument.Paragraphs(1).Range
temprg.End = temprg.End - 1
temprg.Select
With ActiveDocument.Range.Find
    .Text = "简述"
    Do While .Execute
        ActiveDocument.Range(.Parent.Start, .Parent.Start).FormattedText = temprg.FormattedText
    myen = .Parent.Paragraphs(1).Range.End
    ActiveDocument.Range(myen - 1, myen - 1).InsertAfter "。"
    .Parent.Paragraphs(1).Range.InsertAfter "【参考答案】"
     .Parent.Paragraphs(1).Range.Font.Bold = 1
     .Parent.End = .Parent.End + 50
     .Parent.Collapse 0
    Loop
   
End With
ActiveDocument.Range.Paragraphs(1).Range = ""
ActiveDocument.Fields.Update
End Sub

D都市慷慨

过程在后面有图片，和文字
第一步：定义标题一样式，给标题一文字设置加粗，添加项目编号。
第二步：使用查找替换，把题目设置为标题一, 查找：简述，替换：标题1
第三步：使用查找替换，给标题一后面加句号, 查找:^p ，替换:。^p
第四步：使用查找替换，给标题一后面加一行，查找：^p，替换：^p【标准答案】
第五步：更新标题1，检查核对全文

ming0018

D都市慷慨 发表于 2020-10-29 12:34
过程在后面有图片，和文字
第一步：定义标题一样式，给标题一文字设置加粗，添加项目编号。
第二步：使用 ...

楼上的思路很清晰了！

15116475571

D都市慷慨 发表于 2020-10-29 12:34
过程在后面有图片，和文字
第一步：定义标题一样式，给标题一文字设置加粗，添加项目编号。
第二步：使用 ...

谢谢回复！但是觉得还是有些繁琐，因为要处理的文档很多，希望vba一秒搞定

15116475571

D都市慷慨 发表于 2020-10-29 12:34
过程在后面有图片，和文字
第一步：定义标题一样式，给标题一文字设置加粗，添加项目编号。
第二步：使用 ...

思路清晰，很感谢！送一朵小花花

15116475571

zhanglei1371 发表于 2020-10-29 11:27
不涉及挪移，VBa很简单。

Sub test()

只能对第一道简答题起作用，不过基本可以满足需求，非常感谢，所以也送你小花花

15116475571

约定的童话 发表于 2020-10-28 22:15
貌似还有点bug，我再优化下...

好的，谢谢