处理WORD中的超链接

按ALT+F11打开 调出宏编辑器（VBE）：

Option Explicit
Sub AddHyperLinks()
Dim i As Paragraph, myRange As Range
Dim KeyPosition As Long
Application.ScreenUpdating = False
With ActiveDocument
For Each i In .Paragraphs
Set myRange = i.Range
With myRange
KeyPosition = VBA.InStr(.Text, "http://")
If KeyPosition > 0 Then
.SetRange .Start + KeyPosition - 1, .End - 1
.Hyperlinks.Add Address:=.Text, Anchor:=myRange
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub

（ALT+F8运行宏）

让复制的超链接即刻生效：

1：分列，要求分成两列，第一列宽度为4厘米，第二列文字左对齐，无框线（注意，不要被文字描述所迷惑）直接使用查找与替换即可。
2：将所有网址变成超级链接形式。使用格式/自动套用格式即可。  
3：如果使用VBA。

shift+回车，即软回车,是手动换行符，用“^l”来表示。

类似的还有：

硬回车  ^p

制图符  ^t

批注标记  ^a

任意字符  ^?

任意数字  ^#

任意字母  ^$

脱字号  ^^

分栏符  ^n

省略号  ^i

全角省略号  ^j

长划线  ^+

1/4长划线  ^q

短划线  ^=

无宽可选分隔符  ^x

无宽不间断符  ^z

尾注标记  ^e

域    ^d

脚注标记  ^f

图形  ^g

人工换行符  ^l

人工分页符  ^m

不间断连字符  ^~

OPQ网购优惠信息分享基地

【折学家】-【根据地】-【汇分享】

支持一下我的另一个博客：
http://opq20.blog.163.com/blog/