看起来你找的思路方向是对的，但在TextBox自动调整的配置和Word布局刷新上漏了关键细节，导致Shape的宽度一直停留在初始的10，没跟着文本内容变化。我来帮你拆解问题出在哪，以及怎么修正：

核心问题分析 #

你的代码里Shape宽度没更新，主要有这几个原因：

1. AutoSize枚举值使用不当：直接写1虽然在部分环境下可能对应自动调整，但Office Interop里更可靠的是用MsoAutoSize枚举常量，避免版本差异导致的匹配错误。
2. Word布局未即时刷新：Word有时候不会立刻计算并更新Shape的属性，尤其是在后台操作时，导致你获取的Width还是初始值。
3. 测试文本范围错误：你用了Document.Sections[1].Range.Text，这是整个节的所有文本，而非仅标题文本，测试的内容本身就不对，自然无法得到正确的宽度。

修正后的代码示例 #

我调整了代码的关键逻辑，同时优化了标题范围的获取（假设你的标题是第一节的第一段，可根据实际情况修改）：

var section = Document.Sections[1];
// 计算可用宽度：页面宽度减去左右各1cm边距（总计2cm）
var pageWidth = section.PageSetup.PageWidth - Application.CentimetersToPoints(2);

// 准确获取标题的Range（示例为第一节的第一段，替换为你实际的标题范围）
var headingRange = section.Range.Duplicate;
headingRange.SetRange(section.Range.Start, section.Range.Paragraphs[1].Range.End);

var fontSize = headingRange.Font.Size;

while (fontSize >= 10)
{
    // 添加临时文本框（位置设为负数避免界面闪烁）
    var tempShape = Document.Shapes.AddTextbox(
        Orientation: MsoTextOrientation.msoTextOrientationHorizontal,
        Left: -1000, Top: -1000,
        Width: 10, Height: 10);

    // 先关闭自动调整，设置文本和字体，再开启形状适配文本
    tempShape.TextFrame.AutoSize = MsoAutoSize.msoAutoSizeNone;
    tempShape.TextFrame.TextRange.Text = headingRange.Text;
    tempShape.TextFrame.TextRange.Font.Size = fontSize;
    
    // 清除文本框内边距，避免额外 padding 影响宽度计算
    tempShape.TextFrame.MarginLeft = 0;
    tempShape.TextFrame.MarginRight = 0;
    tempShape.TextFrame.MarginTop = 0;
    tempShape.TextFrame.MarginBottom = 0;

    // 开启自动调整：让形状完全适配文本内容
    tempShape.TextFrame.AutoSize = MsoAutoSize.msoAutoSizeShapeToFitText;

    // 强制Word刷新布局，确保Shape宽度被正确计算
    Application.ScreenRefresh();

    var shapeWidth = tempShape.Width;
    tempShape.Delete();

    if (shapeWidth <= pageWidth)
    {
        break;
    }
    fontSize--;
}

// 应用最终确定的字体大小到标题
headingRange.Font.Size = fontSize;

关键修正点说明 #

• 用枚举常量替代硬编码值：MsoAutoSize.msoAutoSizeShapeToFitText明确告诉Word让形状适配文本，比直接写1更稳定。
• 强制布局刷新：Application.ScreenRefresh()会让Word立刻计算并更新所有形状的属性，确保你获取的shapeWidth是真实的文本宽度。
• 精准获取标题范围：测试的文本必须和实际标题一致，否则计算出的字体大小会偏离需求。如果你的标题是特定样式（比如Heading 1），也可以通过样式来获取Range：

  var headingRange = Document.Content.Find.Execute(FindText: "^p", Style: "Heading 1").Parent;
  

• 优化临时Shape位置：把Left和Top设为负数，避免临时形状在界面上闪烁，提升体验。

额外优化建议 #

如果你的问题只是针对标题中的某个长单词，而非整个标题，还可以只测试这个长单词的宽度，这样计算会更高效：

tempShape.TextFrame.TextRange.Text = "YourSuperLongFileNameWithoutSpaces";

这个思路本身是可行的，只要修正上述细节，就能正确获取文本宽度并调整到合适的字体大小。

内容来源于stack exchange