How to batch set to embedded pictures in Word document-CodePudding

My a word2016 document contains 30 a few images, is joined by the program automatically, text format is floating in the images above, I think the image format bulk changes into embedded format, then wrote a VBA macros to deal with, but every time after executing macro, there are always a few picture format can't modify success, but the other can, have several days, I couldn't succeed, hope to get help, thank you, the code is as follows:

Sub ConvertThem ()
Dim oShape As Shape
On the Error Resume Next
For Each oShape In ActiveDocument. Shapes
OShape. Select
OShape. ConvertToInlineShape
Selection. Range. ParagraphFormat. Alignment=wdAlignParagraphCenter
Next
End Sub

CodePudding user response:

On a network backup can test the sample file, convenient testing, or may not be able to reproduce your problem

CodePudding user response:

Good sample files on tomorrow, thanks