请问word中如何批量选中复制固定文本后的文本？

asklazyworm · 发表于 2016-4-17 11:56

例如以下文本，“HIS："是固定文本，需要在任意一段word文字中把所有“HIS："后面的文本选中并复制出来
这个如何处理？查找和替换只能针对固定文本本身，而这里需要的是固定文本之后的文本提取

His：今日选择是
123
His：今日推荐
456
His：今日吐槽的观点
789

结果应该是：
今日选择是
今日推荐
今日吐槽的观点

菜菜行者 · 发表于 2016-4-17 11:59

粘贴到EXCEL，使用分列

asklazyworm · 发表于 2016-4-17 17:10

使用分列我也想过，但固定文本和固定文本间是有其他文本的，所以这里写了123,456,789，分列并不合适，因为一排序，原来的目的就达不到了

不经意的回头 · 发表于 2016-4-19 09:24

在主文档中查找[His：]{4,}?{1,30}^13，将目标文本复制出来，再将固定文本替换为无

asklazyworm · 发表于 2016-4-19 21:54

@不经意的回头 [His：]{4,}?{1,30}^13 未找到搜索项啊

不经意的回头 · 发表于 2016-4-19 22:15

asklazyworm 发表于 2016-4-19 21:54
@不经意的回头 [His：]{4,}?{1,30}^13 未找到搜索项啊

注意下第一段中的冒号，在我这里测试通过的

不经意的回头 · 发表于 2016-4-19 22:17

给你上张图看下

asklazyworm · 发表于 2016-4-20 09:57

@不经意的回头感谢您的耐心回复我用了你的这个代码去搜索,结果出不了你的截图,结果相当于全选啊,我这里是2007的版本,还是我的方法有问题?

Ctrl+F 把代码复制进去,使用通配符,在主文档查找,结果就是全选啊

asklazyworm · 发表于 2016-4-20 10:24

@不经意的回头我在另一个案例中用你的代码,能选择出正确的复制选项,但复制出来后,发现原来的第一个到最后一个去了,原来最后一个到第一个去了,无论复制到word还是xls都是这个结果...

413191246se · 发表于 2016-4-20 14:55

Sub 固定文本提取()
Dim i As Paragraph, j As String, doc As Document
j = ActiveDocument.Name
Set doc = Documents.Add
Documents(j).Activate
For Each i In ActiveDocument.Paragraphs
If i.Range Like "His[：:]*" Then
i.Range.Font.Color = wdColorRed
i.Range.Copy
doc.Activate
Selection.EndKey Unit:=wdStory
Selection.Paste
End If
Next
doc.Paragraphs.Last.Range.Delete
Documents(j).Close savechanges:=wdDoNotSaveChanges
doc.Content.Find.Execute findtext:="His：", replacewith:="", Replace:=wdReplaceAll
doc.Content.Find.Execute findtext:="His:", replacewith:="", Replace:=wdReplaceAll
MsgBox "提取完毕！文档尚未保存，请自行保存！", vbOKOnly + vbExclamation, "提取感叹句"
End Sub

复制代码

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

[求助] 请问word中如何批量选中复制固定文本后的文本？