用word的宏进行批量添加超链接

最新推荐文章于 2024-07-09 16:46:14 发布

努力复盘成长的如言

最新推荐文章于 2024-07-09 16:46:14 发布

阅读量4.2k

点赞数 1

分类专栏：小技巧文章标签： word 宏替换超链接

本文链接：https://blog.csdn.net/weixin_43856199/article/details/84842907

版权

小技巧专栏收录该内容

7 篇文章 0 订阅

订阅专栏

用word的宏进行批量添加超链接

想在word里进行一些重复性的工作
一直人工复制粘贴太傻了
宏简直不要太好用，能做一些一些重复机械性的操作

本段代码是用于给某些文字添加超链接，顺便还可以修改显示的字符
上代码：

Sub AddHyperlink()
'
' AddHyperlink 宏
' 批量添加超链接
'
Selection.Find.ClearFormatting
Dim i
For i = 1 To 500
With Selection.Find
.Text = "*xxxxxxx要替换的内容*"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
ChangeFileOpenDirectory _
"*xxxword文件所在位置*"
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"*xx要替换的超链接*", SubAddress:="", ScreenTip:="", TextToDisplay:= _
"*xxx显示字符*", Target:="_blank"
Next i
End Sub