[問題] Word 巨集批次取代文件內元件(圖片)
軟體: Word 2010 in Win 7
工作上做了許多名牌，因應其他同事的編輯方便所以要在Word中做
我的做法是在表格內放設計好的圖檔，字再另外編排上去
圖檔設定: 在文字之後，不隨文字移動，鎖定在左/上 邊界 0公分
問題來了，已經做好數百份名牌之後 圖檔被要求修改，得替換掉原先的圖檔
但我用取代功能 ^g 無法搜尋到文件，一張一張改太繁瑣了，於是想用巨集解決
目前看了一些教學後做了一段，但是試執行發生錯誤：不正確的定位項（qualifier）
不知道有沒有高手能幫忙解決
Sub 巨集1()
Dim n
On Error Resume Next
For n = 1 To ActiveDocument.Shapes.Count.Select
Selection.InlineShapes(n).AddPicture FileName:= _
"D:\xxx\xxx\xxx\123.jpg", LinkToFile:=False, _
SaveWithDocument:=True
Next n
End Sub
以上是自己試著改過的，以下是單純取代一張圖片的巨集
Sub 巨集1()
ActiveDocument.Shapes("Picture 211").Select
Selection.InlineShapes.AddPicture FileName:= _
"D:\xxx\xxx\xxx\123.jpg", LinkToFile:=False, _
SaveWithDocument:=True
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.50.42.183
Office 近期熱門文章
PTT數位生活區 即時熱門文章
11
38