WORD表格求百分比

443147055

如上图，实务中经常会在WORD表格中遇到求百分比的情形，想着有没有代码能批处理。自自己刚开始学习vba,业务不熟悉，求帮助。就是将份额这一栏的数字先中后点击宏命令，自动在比例这一栏中生成金额占比。

cuanju

建议将表格复制到excel中，用公式计算：求百分比后，再粘贴回word。
至于表格框线的格式（上下粗框线，其余虚线），可以最后用代码批量改。
===================================================
Sub word表格框线3()        
    On Error Resume Next
    For Each Tbl In ActiveDocument.Tables
        For n = -6 To -1  '循环设置各个方向的边框线
            Tbl.Borders(n).LineStyle = wdLineStyleDot
        Next n
        Tbl.Borders(wdBorderTop).LineStyle = wdLineStyleDouble
        Tbl.Borders(wdBorderBottom).LineStyle = wdLineStyleDouble
    Next
End Sub

cuanju

也可发送word示例文件，方便分析。

daibao88

Sub word表格框线3()
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
        Tbl.Borders.InsideLineStyle = wdLineStyleDot
        Tbl.Borders.OutsideLineStyle = wdLineStyleDot
        Tbl.Borders(wdBorderTop).LineStyle = wdLineStyleDouble
        Tbl.Borders(wdBorderBottom).LineStyle = wdLineStyleDouble
    Next
End Sub
为么循环呢？

cuanju

daibao88 发表于 2019-11-5 21:45
Sub word表格框线3()
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables

大赞。这样的代码，简洁有效率。

daibao88

cuanju 发表于 2019-11-6 07:04
大赞。这样的代码，简洁有效率。

复制你的，改改了