请问：图文混排的嵌入型图片，能靠右吗？

常扬帆

一闪流溢 发表于 2022-2-7 00:14
所有图片居中？
直接查找^g 替换里面ctrl+e 点击全部替换

谢谢您的指导，不过，我替换后，成了这样。

常扬帆

thunor 发表于 2022-2-7 10:56
没问题，可以运行。代码如下：
Sub ImageAlignCenter()
With ActiveDocument.Content.Find

衷心感谢您！搞定，由于近段电脑不方便，所以没及时感谢，见谅！还想请问您：下面图片的空白部分(标记部分)能干掉吗？再次感谢！

thunor

能不能发一张你希望达到什么样目标的效果图？

常扬帆

thunor 发表于 2022-2-10 10:40
能不能发一张你希望达到什么样目标的效果图？

好的，就如下面的效果图。劳烦您了！

thunor

将inline转变为非inline图形的代码为：
For Each iShape In ActiveDocument.InlineShapes
    iShape.ConvertToShape
Next iShape
转变后可能会出现一个我解决不了的问题，会出现两个连续的回车符，但后回车符前应该有一个（隐形的）图形的锚点，所以，不能简单用^p代替^p^p来解决。

常扬帆

thunor 发表于 2022-2-10 13:12
将inline转变为非inline图形的代码为：
For Each iShape In ActiveDocument.InlineShapes
    iShape.Con ...

衷心感谢您，问题已彻底解决！分三个步骤：
1、用下面的代码将图片居中；
Sub ImageAlignCenter()
With ActiveDocument.Content.Find
                    .ClearFormatting '清除格式设置
                    With .Replacement '替换条件
                        .ClearFormatting '清除格式设置
                    End With
                    .Execute FindText:="^l", ReplaceWith:="^p", Format:=True, Replace:=wdReplaceAll
End With
For Each InlineS In ActiveDocument.InlineShapes
    InlineS.Select
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.TypeParagraph
Next
With ActiveDocument.Content.Find
                    .ClearFormatting '清除格式设置
                    With .Replacement '替换条件
                        .ClearFormatting '清除格式设置
                    End With
                    .Execute FindText:="^p^p", ReplaceWith:="^p", Format:=True, Replace:=wdReplaceAll
End With
For Each InlineS In ActiveDocument.InlineShapes
    InlineS.Select
    ActiveWindow.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
Next
End Sub
2、用下面的代码，浮于文字上方
For Each iShape In ActiveDocument.InlineShapes
    iShape.ConvertToShape
Next iShape
3、用^p^p替换为^p
再次感谢您！

一闪流溢

常扬帆 发表于 2022-2-10 08:13
谢谢您的指导，不过，我替换后，成了这样。

不是在替换里面输入ctrl+e,是在替换中按ctrl+e，让格式变成居中，点击全部替换后，图片会应用居中的格式