你的问题出在操作了单元格的整个字符范围，而不是仅针对下拉内容控件本身设置字体。单元格里的月份和日期已经是22pt，我们只需要给新创建的下拉控件单独指定字体属性，不需要修改单元格其他内容的格式。

核心解决方案 #

Word的ContentControl对象自带Range属性，我们可以直接对这个Range设置字体大小和斜体，这样只会作用于下拉控件内部的文本，不会影响单元格里已有的月份/日期内容。不需要改动Appearance属性，它是用来控制控件的外观样式（比如是否显示边框），和字体无关。

修改后的代码 #

'Dim DDown As Word.Contentcontrol and curChar As int earlier in code (for context)
Set cel = tbl.Cell(i, j)
Set celRange = cel.Range

' 先定位到单元格末尾（跳过已有的月份/日期内容）
celRange.Collapse wdCollapseEnd
celRange.MoveEnd wdCharacter, -1 ' 避免覆盖单元格的结束标记

' 创建下拉控件
Set DDown = celRange.ContentControls.Add(wdContentControlDropdownList)

' 给下拉控件添加选项
DDown.DropdownListEntries.Add "Shipping within 7 days"
DDown.DropdownListEntries.Add "On schedule"
DDown.DropdownListEntries.Add "On Hold"

' 单独设置下拉控件的字体：7pt + 斜体
With DDown.Range.Font
    .Size = 7
    .Italic = True
End With

' 添加换行（不影响已有格式）
celRange.Collapse wdCollapseEnd
celRange.Text = vbCrLf
celRange.Collapse wdCollapseEnd

Set DDown = Nothing

关键改动说明 #

1. 移除了celRange.Characters(curChar).Font.Size = 7：这行代码会修改单元格指定位置开始的所有字符格式，包括前面的月份日期，所以必须删掉。
2. 直接操作下拉控件的Range：通过DDown.Range.Font设置字体，只作用于下拉控件内部的文本，完全不会干扰单元格里已有的22pt内容。
3. 保留了定位逻辑：确保下拉控件添加在单元格已有内容的后面，不会覆盖月份日期。

这样修改后，你的日历里月份日期保持22pt，下拉列表会显示7pt的斜体文本，完全符合需求。

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