红色部分，如何变成一行（用代码）

zzpsx

红色部分如何变成一行，并留有适当间距.rar (20.6 KB, 下载次数: 9)

2020-4-10 19:15 上传

点击文件名下载附件

这个文档是高拍仪拍下用qq ocr识别出来的，

thunor

你文字中的“一行”这个词就不确定，你是用A3还是A4？你有没有分栏，不变量太多，确定不下来。你的要求在这些因素确定下来后应该可以办到。

413191246se

1. Sub test()
   
2.     ActiveDocument.Content.Find.Execute "(A.*)(^13)(B.*)(^13)(C.*)(^13)(D.*^13)", , , 1, , , , , , "\1        \3        \5        \7", 2
   
3. End Sub
   

复制代码

cuanju

如果用选定范围，代码如下：
===========================================


Sub d()
    Selection.Find.Execute FindText:="(^13)([B-G][、.．])", ReplaceWith:="\2", Replace:=wdReplaceAll, MatchWildcards:=True '选项题选项取消换行
    Selection.Find.Execute FindText:="(^13A[、.．]*)(B[、.．]*)(C[、.．]*)(D[、.．]*)", ReplaceWith:="\1^t^t\2^t^t\3^t^t\4", Replace:=wdReplaceAll, MatchWildcards:=True '选项题选项用制表符分隔
End Sub

zzpsx

thunor 发表于 2020-4-10 20:57
你文字中的“一行”这个词就不确定，你是用A3还是A4？你有没有分栏，不变量太多，确定不下来。你的要求在这 ...

谢谢高手指点，A4纸张，不分栏。

凌空一羽