VB.Net编辑Word样式：如何设置边框与文本的间距？

我之前做Word自动化开发时也碰到过完全一样的情况——搞定了边框的样式、颜色和线宽，偏偏卡在了文本间距的设置上。其实Word Interop的Border对象专门提供了控制边框与文本距离的属性，直接设置就能解决：

完整代码示例 #

Imports Microsoft.Office.Interop.Word

Public Sub ConfigureWordStyleBorder()
    Dim wordApp As New Application()
    Dim doc As Document = wordApp.Documents.Add()
    
    ' 获取目标样式（这里以自定义样式为例，可替换为内置样式名如"标题1"）
    Dim targetStyle As Style = doc.Styles("自定义样式名")
    
    ' 先清除原有边框配置（可选，按需调整）
    targetStyle.Borders.Enable = False
    
    ' 配置底部边框的各项属性
    With targetStyle.Borders(WdBorderType.wdBorderBottom)
        .LineStyle = WdLineStyle.wdLineStyleSingle ' 单实线
        .Color = wordApp.SchemeColors(WdColorSchemeIndex.wdColorSchemeAccent1) ' 强调文字颜色1
        .LineWidth = WdLineWidth.wdLineWidth05pt ' 0.5磅线宽
        ' 设置距文本底部的4磅间距，直接传磅值即可
        .DistanceFromBottom = 4
    End With
    
    ' 保存并清理资源
    doc.SaveAs2("C:\TestStyledDoc.docx")
    doc.Close()
    wordApp.Quit()
    
    ' 释放COM对象，避免Word进程残留
    System.Runtime.InteropServices.Marshal.ReleaseComObject(doc)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(wordApp)
End Sub

关键细节说明 #

• DistanceFromBottom属性直接接受磅值参数，你需要的4磅直接赋值4就行，Word会自动处理单位转换，不用额外做单位换算。
• 如果需要设置其他方向的文本间距，对应使用DistanceFromTop、DistanceFromLeft、DistanceFromRight属性即可。
• 为了保证跨环境兼容性，建议尽量使用Word内置样式，或者在代码中完整创建自定义样式并配置所有属性，避免依赖本地环境的自定义样式配置。
• 务必引用对应版本的Microsoft.Office.Interop.Word程序集，同时记得释放COM对象，防止Word进程在后台残留。

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