原文如下

如果复制出来的图片是上面这样的原文样式就完美了
存成单页的WORD文件也是如此。不管怎么样，还得万分感谢版主，非常称职的版主，有求必应，技术一流高超，一流全面。

谢谢，这个有误如何更正，

示例用的是WORD 2007，是不是WORD版本问题
这句改为这样试试：
wd.Documents(1).ActiveWindow.Selection.PasteSpecial(0, .f., 0, .f., 0, "", "")

复制文本，粘贴转图片，WORD重排了?
是不是粘贴使用的数据格式问题，试试改变PasteSpecial方法的DataType参数。
*    PasteSpecial(IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel)
*    第5个参数（DataType）是 WdPasteDataType：
*    wdPasteOLEObject ................. 0    OLE 对象
*    wdPasteRTF ....................... 1    RTF 格式
*    wdPasteText ...................... 2    文本
*    wdPasteMetafilePicture ........... 3    图元文件图片
*    wdPasteBitmap .................... 4    位图
*    wdPasteDeviceIndependentBitmap ... 5    与设备无关的位图
*    wdPasteHyperlink ................. 7    超链接
*    wdPasteShape ..................... 8    形状
*    wdPasteEnhancedMetafile .......... 9    增强型图元文件
*    wdPasteHTML ...................... 10   HTML

[此贴子已经被作者于2023-3-29 10:50编辑过]

你们负责研讨，我负责擦鞋：
吹版威武！无限敬仰！

我用的是WPS 改成这句，还是不行

WORD不同版本也有兼容问题，WPS与WORD就肯定有不兼容的地方。

好的。多谢了。

应该不是参数的问题，在Word中直接复制 保留源格式粘，好象最后一个段落样式也会改变的。

试着，将Word另存为PDF后，再取图或另存？