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

常扬帆

附件中，这样排版不整齐，请问能就这种混排的图片靠右、靠上吗？谢谢！

thunor

可以的。先选中图片，然后将光标右移一个单位，此时光标处于图片与回车符之间，再选择格式中的右对齐就可以了。VBA可以实现。

常扬帆

thunor 发表于 2022-2-6 08:09
可以的。先选中图片，然后将光标右移一个单位，此时光标处于图片与回车符之间，再选择格式中的右对齐就可以 ...

谢谢您！您或者哪位大佬能赐段代码吗？衷心感谢！

thunor

可以。所有的图全是inlineshapes吗？有没有表？有没有非inlineshapes的图形？也需要将它们一并转变为居中吗？

thunor

另外，你的内容格式中有软回车、硬回车，图形有独立一行也有紧接文本，你是希望达到什么效果？是只图形靠右吗？图形前的文字靠不靠右？

常扬帆

thunor 发表于 2022-2-6 12:51
另外，你的内容格式中有软回车、硬回车，图形有独立一行也有紧接文本，你是希望达到什么效果？是只图形靠右 ...

谢谢您！只怪我表述不全，麻烦您了。
所有的图全是inlineshapes，没有表，没有非inlineshapes的图形，只将图片居中。

一闪流溢

所有图片居中？
直接查找^g 替换里面ctrl+e 点击全部替换

thunor

将所有软回车替换为硬回车。
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

常扬帆

您好！分步处理的话，第二个出错；整体处理时，出现图片上的问题。

thunor

没问题，可以运行。代码如下：
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
你在使用过程中根本就没有删除对中文说明部份增加注解符号，所以出错。