For Each link In ActiveDocument.Hyperlinks
link.Address = link.TextToDisplay
Next
※ 引述《acosy (acosy)》之銘言：
: 軟體:Office
: 版本:2007
: 是這樣的，我想做一個功能，這個巨集的功能可以把word文章裡面的
: 所有超連結，都指定為「超連結本身的文字」，
: 比如說：
: 請到這個網址http://xxx.com，
: 再到這個網址http://yyy.com
: 啟動巨集之後，會自動把"http://xxx.com"這個內容填入第一個超連結中，
: 以此類推。
: 目前的作法是
: ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range,
: Address:=Secetion.Range
: 不過這樣必須先手動一個一個複製起來，並按下快速鍵才行，
: 不知道有沒有辦法可以自動把文章中所有的hyperlinks的address都改成跟
: hyperlinks的文字一樣？
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.164.53.138