我的一份word2016檔案中包含了30幾張圖片，是由程式自動加入的，圖片版式是浮于文字上方的，我想把圖片版式批量修改成嵌入式版式，于是寫了個VBA宏去處理，但每次執行宏以后，總是有那么幾副圖片的版式無法修改成功，但其它的可以。搞了好幾天了，也沒法成功，希望得到幫助，謝謝了。代碼如下：
Sub ConvertThem()
Dim oShape As Shape
On Error Resume Next
For Each oShape In ActiveDocument.Shapes
oShape.Select
oShape.ConvertToInlineShape
Selection.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next
End Sub
uj5u.com熱心網友回復：
檔案里只留下那么一兩個這樣的，可以嗎？還不可以的話，手工操作可以否？可以，轉換陳述句上下斷點，看是否運行到了此處。uj5u.com熱心網友回復：
每次得執行個兩三次，才能把所有圖片搞定
uj5u.com熱心網友回復：
那就有些不好說了。或可把 On Error Resume Next 陳述句暫時注釋了，出錯時停下來看看錯誤描述；估計收益不會大。要么，在 For 陳述句外再加個 While ..Shapes.Count >0 自動地來上幾輪試試？
uj5u.com熱心網友回復：
好的我再試一下，謝謝了！
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/252297.html
下一篇：VMware虛擬機