国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

步驟如下：

1、在Word中打開你需要處理的doc文檔；
2、鍵入ALT+F11；

3、左邊的工程里面有個“Normal”，展開它后有個“模塊”節(jié)點；

4、在這個“模塊”節(jié)點上點鼠標(biāo)右鍵，選擇“插入-模塊”，這樣右邊就會出現(xiàn)代碼窗口；

5、在出現(xiàn)的VBA代碼窗口中，粘貼下面的代碼；

6、按“F5”運行代碼；
 

%--------------------------------

Sub 批量修改圖片格式()

Dim i As Integer

For i = 1 To ActiveDocument.InlineShapes.Count

If ActiveDocument.InlineShapes(i).Type = 3 Then

ActiveDocument.InlineShapes(i).PictureFormat.ColorType =msoPictureGrayscale

End If

Next

End Sub

%--------------------------------

自動：msoPictureAutomatic
黑白：msoPictureBlackAndWhite

灰度：msoPictureGrayscale
沖蝕：msoPictureMixed
水?。?font color="#ED1C24">msoPictureWatermark