MS Word interop：如何计算表格单元格可容纳的文本量并拆分文本

完全可以准确计算固定尺寸单元格可容纳的文本量，不需要手动测量字符宽度，直接调用Word原生排版接口检测即可，全程不会改动第一个单元格尺寸、字体设置，计算结果和实际显示效果完全一致。

不要自行根据字体、字号手动计算可容纳字符数，Word的自动换行、标点避头尾、字偶距、全半角字符宽度差异等排版规则，会导致手动计算的结果存在明显误差。

核心实现逻辑：

• 清空第一个单元格的原有内容，排除单元格末尾自带的不可见段落标记（该标记会占用排版空间，不排除会导致计算结果偏短）
• 逐字符向第一个单元格追加文本，每次追加后检测当前文本的最后一个字符是否仍处于第一个单元格的行列范围内
• 一旦检测到最后一个字符溢出到其他单元格，停止追加，回退到上一个长度，即为第一个单元格可容纳的最大文本长度
• 将拆分后的两段文本分别写入两个单元格即可

修改后的完整代码如下：

using System.IO;
using System.Reflection;
using Word = Microsoft.Office.Interop.Word;

class Program
{
    static void Main()
    {
        string filename = "example.docx";
        string text = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor";

        var wordApp = new Word.Application { Visible = false };
        string path = Path.Combine(Directory.GetCurrentDirectory(), filename);
        var doc = wordApp.Documents.Open(path, ReadOnly: false, Visible: true);
        doc.Activate();
        var table = doc.Tables[1];

        // 初始化第一个单元格的Range，排除末尾默认段落标记
        Word.Range cell1Range = table.Cell(1, 1).Range;
        cell1Range.Text = "";
        cell1Range.MoveEnd(Word.WdUnits.wdCharacter, -1);

        int maxFitLength = 0;
        // 逐字符检测可容纳的最大文本长度
        for (int i = 0; i < text.Length; i++)
        {
            cell1Range.Text = text.Substring(0, i + 1);
            Word.Range lastChar = cell1Range.Characters[i + 1];
            // 判断最后一个字符是否仍在第1行第1列的单元格内
            int charRow = lastChar.get_Information(Word.WdInformation.wdEndOfRangeRowNumber);
            int charCol = lastChar.get_Information(Word.WdInformation.wdEndOfRangeColumnNumber);
            if (charRow != 1 || charCol != 1)
            {
                maxFitLength = i;
                break;
            }
            maxFitLength = i + 1;
        }

        // 拆分文本写入两个单元格
        string fitText = text.Substring(0, maxFitLength);
        string remainText = text.Substring(maxFitLength);
        
        table.Cell(1, 1).Range.Text = fitText;
        Word.Range cell2Range = table.Cell(2, 1).Range;
        cell2Range.MoveEnd(Word.WdUnits.wdCharacter, -1);
        cell2Range.Text = remainText;

        doc.Save();
        object missing = Missing.Value;
        doc.Close(ref missing, ref missing, ref missing);
        wordApp.Quit(ref missing, ref missing, ref missing);
    }
}

补充说明：

• 整个检测过程由Word自身排版引擎完成，和用户手动排版的效果完全一致，不会出现文本溢出或者单元格留空过多的问题
• 如果文本包含换行符、特殊符号、内嵌内容，该检测逻辑依然生效
• 检测过程中Word保持后台运行即可，不会弹出窗口干扰用户

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