Sub yin()
'
' yin Macro
' 宏在 2012-10-25 由 微軟用戶 創建
'
Dim HypCount As Integer, i As Integer '關閉螢屏更新
Dim HypName As String '關閉螢屏更新
Application.ScreenUpdating = False '取得活動檔案中超鏈接的總數
HypCount = ActiveDocument.Content.Hyperlinks.Count
For i = 1 To HypCount Step 1
HypName = ActiveDocument.Hyperlinks(i).Name
Selection.Find.Text = HypName
Selection.Find.Execute
Selection.InlineShapes.AddPicture FileName:= _
HypName, LinkToFile:= _
False, SaveWithDocument:=True
Selection.Find.Execute
Next '恢復螢屏更新
Application.ScreenUpdating = True
End Sub
此段運用在word中，別人的我又看不懂，只能來請教了
此代碼用處是將圖片鏈接自動轉換成圖片在word中顯示
問題在于只能再游標位置顯示圖片，段落中的鏈接轉換圖片后都在游標處，我想的是替換超鏈接并讓圖片顯示在在原來的位置
uj5u.com熱心網友回復：
直接粘貼的網址不識別可否用vb一次處理然后進行轉圖轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/66976.html
標籤：VB基礎類
上一篇：提示缺少串列分隔符或
下一篇：with塊變數未設定是怎么回事？