如何通过VBA限制Word动态表格中文本内容控件的高度？

• 核心原因：Word的ContentControl对象本身没有.SetHeight方法，它属于文档流内的嵌入式元素，高度由自身内容、所在单元格的格式（行高、边距、段落设置）共同决定，无法直接设置固定高度。

• 解决方案1：让表格行自动适配内容高度
  如果不需要固定行高，直接设置表格行的高度规则为自动，这样内容控件的内容增加时，行高会自动扩展，不会溢出覆盖下方单元格：

  ' 假设tbl是你的表格对象，rowIndex是目标行号
  tbl.Rows(rowIndex).HeightRule = wdRowHeightAuto
  

• 解决方案2：固定行高时，限制内容控件的内容格式
  若必须固定行高，需要通过调整内容控件的内容格式，确保内容不会超出单元格：

  1. 设置内容控件的段落格式，固定行间距并允许自动换行：

     Dim cc As ContentControl
     Set cc = tbl.Cell(rowIndex, colIndex).Range.ContentControls.Add(wdContentControlRichText)
     ' 设置段落行间距为固定值，单位是磅，根据行高调整
     cc.Range.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
     cc.Range.ParagraphFormat.LineSpacing = 12 ' 示例：12磅行间距
     ' 允许自动换行
     cc.Range.ParagraphFormat.WordWrap = True
     

  2. 调整单元格内部边距，避免内容贴边溢出：

     tbl.Cell(rowIndex, colIndex).TopPadding = 2 ' 顶部内边距2磅
     tbl.Cell(rowIndex, colIndex).BottomPadding = 2 ' 底部内边距2磅
     

• 解决方案3：使用受限类型的内容控件
  根据需求选择合适的内容控件类型，比如wdContentControlText（单行文本），默认会自动换行且不会大幅增高，或者wdContentControlComboBox这类固定高度的控件，从根源避免高度溢出：

  Set cc = tbl.Cell(rowIndex, colIndex).Range.ContentControls.Add(wdContentControlText)
  

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