把每个题的【分析】内容剪切到【点睛】的上一行。

chqf82 · 发表于 2023-6-9 13:27

把每个题的【分析】内容剪切到【点睛】的上一行。谢谢！

`29KQ)@T0S$ZXS8~6BPX5(G.png

batmanbbs · 发表于 2023-6-9 13:59

本帖最后由 batmanbbs 于 2023-6-9 16:28 编辑

确保每题至少都有【点睛】，代码见5楼

静听溪流 · 发表于 2023-6-9 14:53

bilibili 搜UP主一闪流溢有将word通配符的估计可以解决你的问题

蜀中草莽 · 发表于 2023-6-9 14:57

静听溪流发表于 2023-6-9 14:53
bilibili 搜UP主一闪流溢有将word通配符的估计可以解决你的问题

一闪流溢看了都摇头

batmanbbs · 发表于 2023-6-9 16:27

batmanbbs · 发表于 2023-6-9 16:31

静听溪流发表于 2023-6-9 14:53
bilibili 搜UP主一闪流溢有将word通配符的估计可以解决你的问题

通配符遇到 mathtype 好像就不起作用，所以楼主的需求可能需要通过 VBA 才能实现，如能用通配符解决问题当然最好了，那多方便

静听溪流 · 发表于 2023-6-9 16:58

batmanbbs 发表于 2023-6-9 16:31
通配符遇到 mathtype 好像就不起作用，所以楼主的需求可能需要通过 VBA 才能实现，如能用通配符解决问题 ...

哈哈好吧 word通配符看完就忘得差不多了

chqf82 · 发表于 2023-6-11 20:22

batmanbbs 发表于 2023-6-9 16:27

老师真是太厉害了，完美解决了问题。非常感谢！

chqf82 · 发表于 2023-6-11 20:23

batmanbbs 发表于 2023-6-9 16:27

老师真是太厉害了，完美解决了问题。非常感谢！

小花鹿 · 发表于 2024-2-27 16:32

Sub test()
Dim p As Paragraph, s
For Each p In ActiveDocument.Paragraphs
      With p.Range
         .Select
         s = .Text
         If Left(s, 4) = "【分析】" Then
            .MoveEndUntil "【"
            .Select
            .Cut
         Else
            If Left(s, 4) = "【点睛】" Then
                  .End = .Start
                  .Paste
            End If
         End If
      End With
Next p
End Sub

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

[求助] 把每个题的【分析】内容剪切到【点睛】的上一行。

评分

评分

[求助] 把每个题的 【分析】内容 剪切到 【点睛】 的上一行。

评分

评分

[求助] 把每个题的【分析】内容剪切到【点睛】的上一行。