请大神出手相助，帮更改一下代码实现所需格式，附件已附部分代码及图样，谢谢！

wangchcm

统一设请请

     

   

   

   

   

  
   

  

  

  

  

   

  

  

  

  

   

  

  

  

  

   

  

  

  

  

   

  

  

  

  

   

  

  

  

  

请教大神，附件中已有一位大神写的代码，但不是这个格式的，请大神帮改一下原代码，批量改成上图的样式（左、右无边框，上下是1.5磅实线，中间是这种细线），谢谢！

xyxcc177

Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        With tbl.Borders
             .OutsideLineStyle = wdLineStyleSingle
             .OutsideLineWidth = wdLineWidth150pt
             .InsideLineStyle = wdLineStyleDashDot
             .InsideLineWidth = wdLineWidth100pt
         End With
            With tbl.Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleDot
            .LineWidth = wdLineWidth100pt
            .Color = wdColorAutomatic
        End With
        With tbl.Borders(wdBorderVertical)
            .LineStyle = wdLineStyleDot
            .LineWidth = wdLineWidth100pt
            .Color = wdColorAutomatic
        End With
    Next tbl
    Set tbl = Nothing
   

wangchcm

xyxcc177 发表于 2020-4-2 15:32
Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        With tbl.Borders

感谢大神！！！能否去掉表格中的左、右外边框，保留上下外边框？谢谢大神！！！