WORD文档中查找到的所有带特定格式（下划线）的字符串

beyondjj

我想将一个WORD文档中查找到的所有带特定格式（下划线）的字符串按顺序输出到另一WORD或EXCEL中，该如何编VBA呢？

wx486

试试如下代码
Sub findstr()
Dim str$, i%
With ActiveDocument.Content.Find
    .Font.Underline = wdUnderlineSingle
    Do While .Execute = True
        i = i + 1
       str = str & "第" & i & "个：" & .Parent & Chr(13)
    Loop
End With
Documents.Add.Content.Text = str
End Sub

pbdq

wx486 发表于 2013-6-17 14:21
试试如下代码
Sub findstr()
Dim str$, i%

大仙，帮我的忙啊。

我的繁简转换帮我看一下啊  http://club.excelhome.net/thread-1027653-1-1.html

wx486

pbdq 发表于 2013-6-17 15:27
大仙，帮我的忙啊。

我的繁简转换帮我看一下啊  http://club.excelhome.net/thread-1027653-1-1.html

看了下，比较复杂，汉字在EQ域中，而且太多域，难办，请高人出手吧。

如果是太麻烦的话，感觉繁体字也不错，更典雅，更古朴，不改也好！

lintf

学习了，谢谢。