本论坛1年多来宏成果展示

sshlovewp

活到老，学到老。谢谢大佬们无私的奉献，将精华汇总、分享出来！

tufeiyn

感谢前辈，作为一名教师，里面的内容太实用了，向你致敬！

mfx780425

谢谢分享，下载学习

9908006

值得我们学习。。。

lds114

很实用，很有感情。请教一下 “自动编号替换为非自动编号.docx”这个怎么过程？不太明白

常扬帆

lds114 发表于 2023-12-20 23:41
很实用，很有感情。请教一下 “自动编号替换为非自动编号.docx”这个怎么过程？不太明白

不太明白您的意思，您能详细点吗？

lcjy11185

真是有心人。佩服极了

tospo

1. With ActiveDocument.Content.Find
   
2.         Do While .Execute("正确表述[:：]", , , 1)
   
3.             With .Parent
   
4.                 .MoveStartUntil (Chr(13) & Chr(11)), wdBackward
   
5.                 .MoveEndUntil (Chr(13) & Chr(11))
   
6.                 .End = .End + 1: .Delete
   
7.             End With
   
8.         Loop
   
9.     End With

复制代码

chr(11)是垂直制表符，chr(10)是换行符，垂直制表符是什么符号，不该是chr(10)吗，本人太菜了，指教下

Holiday2022

各位前辈好，小弟97年生人，您们这样的学习精神，非常值得我学习

huangziw

感谢高手们的创作和奉献，也感谢楼主的热心整理