【谢谢duquancai、vbee两位老师】求读取每段的第一个下划线字符串和页码

roz · 发表于 2018-10-2 17:28

本帖最后由 roz 于 2018-10-2 23:28 编辑

百度知道里面有一个宏，不知道有没有用，地址贴在这里哈：https://zhidao.baidu.com/question/566087667516238524.html?entry=qb_uhome_tag

要处理的文档在这里：

文本 - 副本.zip (767.06 KB, 下载次数: 9)

结果保存在哪里都可以！

求小哥哥帮忙！

vbee · 发表于 2018-10-2 21:35

Sub vbee2()
Dim P As Paragraph
For Each P In ActiveDocument.Paragraphs
For i = 1 To P.Range.Words.Count
If P.Range.Words(i).Font.Underline = wdUnderlineSingle Then
H = H & P.Range.Words(i).Text & " | " & P.Range.Words(i).Information(wdActiveEndPageNumber) & vbCrLf
Exit For
End If
Next
Next
ActiveDocument.Content.InsertAfter vbCrLf & "*******************************************" & vbCrLf & H
End Sub

复制代码

duquancai · 发表于 2018-10-2 22:09

本帖最后由 duquancai 于 2018-10-2 23:05 编辑

Sub main()
详见下面图片！
End Sub

复制代码

duquancai · 发表于 2018-10-2 22:16

本帖最后由 duquancai 于 2018-10-2 22:18 编辑

我也草率的写了一个代码，你这是在论坛找免费的劳工！！！
你的问题在以下链接里面可以看出》》》》》》》》》》》》》》》》

http://club.excelhome.net/forum. ... p;page=1#pid9671961

duquancai · 发表于 2018-10-2 22:36

详见图片中的代码》》》》》》》》》》》》》》

duquancai · 发表于 2018-10-2 23:00

结果如下》》》》》》》》》》》》》》

ablaut 1

absoluteneutralisation 1

abstract 8

accent 8

vowel andconsonant systems 9

activearticulator 9

Advanced TongueRoot (ATR) 9

affix 9

affricate 10

airstream 10

airstreammechanisms 10

Aitken’s Law 11

algorithm 11

allophone 11

allophony 11

alternants 11

morpho-phonological 13

alternation 13

alveolar 13

passivearticulator 13

alveolar ridge 13

ambisyllabicity 13

AmericanStructuralism 13

..........................................................后续.........................

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

[已解决] 【谢谢duquancai、vbee两位老师】求读取每段的第一个下划线字符串和页码