![如何在 Word/Outlook 中自动格式化超链接文本?](https://linux22.com/image/1378951/%E5%A6%82%E4%BD%95%E5%9C%A8%20Word%2FOutlook%20%E4%B8%AD%E8%87%AA%E5%8A%A8%E6%A0%BC%E5%BC%8F%E5%8C%96%E8%B6%85%E9%93%BE%E6%8E%A5%E6%96%87%E6%9C%AC%EF%BC%9F.png)
我喜欢在 Outlook 中向 Word 文档和电子邮件添加超链接。我通常更喜欢将链接更改Text to display
为比 URL 更易读的内容。我遵循一些 URL 的模式。例如,我们有一个合流wiki,我通常会重新格式化来自
https://host/confluence/display/space/Some+Wiki+Page
到
Our Wiki - Some Wiki Page
当然,URL 本身已经相当具有描述性了,但我还是更喜欢文本形式。我也喜欢以这种方式格式化其他链接(例如Amazon.com - Some Product
)。
有没有办法在粘贴链接时创建自动格式化规则?也许在宏中?
如果有办法Insert Hyperlink
在我粘贴链接时自动弹出对话框,我也会接受答案。
答案1
此宏将粘贴剪贴板中的链接至 TextToDisplay="參考“。您可以在宏中编辑任何您想要的内容,并使用不同的TextToDisplay制作多个宏。
有人可能可以轻松地让它识别域并预格式化文本。但我不需要,所以没有这么做。
要运行此宏,您必须包含一个参考:
工具 > 参考 > 浏览 > ..Windows\System32\FM20.dll,打开,确定(添加 MS Forms 2.0 对象库)
这是在 Word 2003 中完成的,因此不保证其他版本也能如此,但可能会有效。
例如,我制作了一个名为 hyperlink_yt 的宏,用于带有 TextToDisplay="yt" 的 youtube 链接,并为该宏分配了快捷键 Alt+Y。
Sub hyperlink_ref()
' Makes clipboard-hyperlink ref
Dim MyData As DataObject
Dim strClip As String
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=strClip, SubAddress:="", ScreenTip:="", TextToDisplay:="ref"
End Sub