Office2019如何批量刪除藝術(shù)字
如果你確認(rèn)了是藝術(shù)字且不是嵌入型的，可以按Alt+F11，打開VBA編輯窗口，放入下面這段代碼：
?
Sub 刪除藝術(shù)字()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
If sh.Type = msoTextEffect Then
sh.Delete
End If
Next
End Sub
?
如果沒用試試下面這個(gè)
?
Sub 刪除藝術(shù)字()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
If sh.Type = msoTextBox Then
sh.Delete
End If
Next
End Sub
需要將文檔另存為為帶有宏的格式文檔，然后執(zhí)行
?
版權(quán)聲明：
本站所有文章和圖片均來自用戶分享和網(wǎng)絡(luò)收集，文章和圖片版權(quán)歸原作者及原出處所有，僅供學(xué)習(xí)與參考，請勿用于商業(yè)用途，如果損害了您的權(quán)利，請聯(lián)系網(wǎng)站客服處理。
