求助：如何用VBA脚本给启用宏的Word模板添加蓝色边框条纹

以下是可实现对应蓝色边框条纹的VBA代码，适配启用宏的Word模板：

Sub AddBlueBorderStripe()
    Dim doc As Document
    Dim sec As Section
    
    Set doc = ActiveDocument
    ' 遍历文档所有节，统一设置边框
    For Each sec In doc.Sections
        ' 设置顶部蓝色边框
        With sec.Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle ' 可根据参考效果调整样式，如wdLineStyleDouble
            .LineWidth = wdLineWidth150pt ' 调整边框粗细
            .Color = RGB(0, 102, 204) ' 蓝色RGB值，可按需微调
            .Visible = True
        End With
        
        ' 若需要底部也添加相同边框，取消下方注释
        'With sec.Borders(wdBorderBottom)
        '    .LineStyle = wdLineStyleSingle
        '    .LineWidth = wdLineWidth150pt
        '    .Color = RGB(0, 102, 204)
        '    .Visible = True
        'End With
    Next sec
    
    MsgBox "蓝色边框条纹已添加完成！", vbInformation
End Sub

使用步骤 #

1. 打开目标启用宏Word模板，按下Alt + F11打开VBA编辑器
2. 右键点击项目列表，选择「插入」→「模块」
3. 将上述代码粘贴到新建模块中
4. 返回Word文档，按下Alt + F8，选择AddBlueBorderStripe宏执行即可

自定义调整 #

• 边框样式：修改LineStyle参数，比如wdLineStyleDashDotStroked为点划线、wdLineStyleDouble为双线
• 边框粗细：调整LineWidth数值，如wdLineWidth100pt更细、wdLineWidth225pt更粗
• 蓝色色调：修改RGB三个数值，精准匹配你需要的蓝色

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