提取数字所在的句子，放于文档最后并加页码信息

hunthunt2002

提取数字所在的句子，放于文档最后并加页码信息。
本人新手，循环出错。
用 .expand unit=: wdsentence，也不能copy,也不能赋值给range。

请教各位，谢谢。

kingtau

试试这个

1. Sub 提取内容()
   
2. Dim dic As Object, p, t, i
   
3. Set dic = CreateObject("Scripting.Dictionary")
   
4.     Selection.HomeKey 6
   
5.         With Selection.Find
   
6.             .Text = "^#"
   
7.             .Forward = True
   
8.             Do While .Execute
   
9.                 Selection.Expand 3
   
10.                 p = Selection.Information(3)
    
11.                 t = Replace(Selection.Text, Chr(13), "")
    
12.                 i = i + 1
    
13.                 dic.Add i, vbCr & "P" & p & "：" & t
    
14.                 Selection.Collapse wdCollapseEnd
    
15.             Loop
    
16.             For i = 1 To dic.Count
    
17.                 ActiveDocument.Content.InsertAfter dic(i)
    
18.             Next
    
19.         End With
    
20. End Sub

复制代码

hunthunt2002

kingtau 发表于 2019-12-11 13:12
试试这个

用字典来解决，学习了，谢谢。