如何通过Office.Interop.Word添加多张无损图片并避免内容覆盖？

你遇到的问题根源很明确——每次粘贴图片时都用了整个文档的Range，导致新内容直接覆盖掉之前插入的所有内容。要解决这个问题，核心是每次插入新图片前，把文档的插入点定位到当前内容的末尾，也就是用Collapse(WdCollapseDirection.wdCollapseEnd)方法来折叠Range。

先给你修改后的完整代码，再一步步解释关键调整：

using Microsoft.Office.Interop.Word;
using Microsoft.Office.Core;

// 初始化Word应用和文档
Application wordApp = new Application();
Document wordDoc = wordApp.Documents.Add();
float scaledWidth;
float scaledHeight;
Shape newShape;
InlineShape finalInlineShape;
Range docRange;

foreach (var filepath in path)
{
    // 第一步：插入临时InlinePicture获取自动缩放后的尺寸
    InlineShape autoScaledInlineShape = wordDoc.InlineShapes.AddPicture(filepath);
    scaledWidth = autoScaledInlineShape.Width;
    scaledHeight = autoScaledInlineShape.Height;
    autoScaledInlineShape.Delete();

    // 第二步：创建对应尺寸的Shape并填充高清图片
    newShape = wordDoc.Shapes.AddShape(1, 0, 0, scaledWidth, scaledHeight);
    newShape.Fill.UserPicture(filepath);
    finalInlineShape = newShape.ConvertToInlineShape();
    finalInlineShape.Line.Visible = MsoTriState.msoFalse;

    // 关键修改：定位到文档末尾，避免覆盖已有内容
    docRange = wordDoc.Range();
    docRange.Collapse(WdCollapseDirection.wdCollapseEnd); // 折叠到文档末尾
    finalInlineShape.Range.Cut();
    docRange.Paste();
}

// 保存并关闭文档
wordDoc.SaveAs2(@"C:\test\Project.docx");
wordDoc.Close();
wordApp.Quit();

关键修改说明 #

• 添加docRange.Collapse(WdCollapseDirection.wdCollapseEnd)：
  原来的docRange = wordDoc.Range()会获取整个文档的范围，直接粘贴会覆盖所有内容。调用Collapse并指定wdCollapseEnd后，Range会收缩到文档的最后位置，粘贴时新图片就会追加在已有内容的后面，而不是替换。

• 可选优化：简化剪切粘贴步骤
  你当前的剪切粘贴操作其实有点多余——ConvertToInlineShape()之后，形状已经是文档的一部分了。如果想直接把它放到文档末尾，可以替换剪切粘贴的代码：

  docRange = wordDoc.Range();
  docRange.Collapse(WdCollapseDirection.wdCollapseEnd);
  finalInlineShape.Range.MoveEnd(docRange.Start);
  

另外，你提到的保证画质的逻辑非常靠谱：通过临时InlinePicture获取Word自动计算的缩放比例，再用Shape填充原图，完美避开了直接插入InlinePicture时可能出现的画质压缩问题，这个思路值得点赞。

内容的提问来源于stack exchange，提问作者Robert