☰

Word 2007 VBA 宏从多个超链接（显示文本）中删除段落标记

tag-icon • tag-icon microsoft-word vba macros hyperlink
Word 2007 VBA 宏从多个超链接（显示文本）中删除段落标记

是否有人有一个宏可以删除段落标记，但只能从我的所有超链接内部删除（而不是从超链接外的普通文本删除）？

这是将文本从许多网站复制到 MS Word 中的一个常见问题（但许多其他人并不这样做！）。

原始网页超链接 2 行

复制到word-5行

word 中的代码-没有段落标记

编辑超链接框-无法编辑显示文本

答案1

感谢 Tanya 提供的线索-

Sub D___Hyperlinks_ParaMarksReplWithSpaces()

Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Hyperlink")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .text = "^p"
    .Replacement.text = " "
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
End With

With Selection.Find
    .text = "^l"
    .Replacement.text = " "
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
End With

相关内容