批量操作，协调办公

cfqan

3190496160 发表于 2025-1-5 10:08
一些细节未考虑，仅供参考，实在不行，可以加v

非常感谢你，感恩

cfqan

3190496160 发表于 2025-1-5 10:06
Sub 写入word打印()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For j = 2 To 6
            wdD.Tables(j - 1).Cell(1, 1).Range.Text = ar(i, j)
        Next j


老师，这里看不懂，能注释一下吗

gwjkkkkk

gwjkkkkk

参与一下。。。

欧陈养

gwjkkkkk 发表于 2025-1-5 19:42
参与一下。。。

老师，想保存再打印，代码怎么改

gwjkkkkk

欧陈养 发表于 2025-1-5 20:34
老师，想保存再打印，代码怎么改

请参考。。。

欧陈养

gwjkkkkk 发表于 2025-1-5 20:52
请参考。。。

谢谢，老师。

欧陈养

欧陈养 发表于 2025-1-5 20:56
谢谢，老师。

每个表内容是一样的

欧陈养

gwjkkkkk 发表于 2025-1-5 20:52
请参考。。。

老师，没有写入内容啊

lzw5251

3190496160 发表于 2025-1-5 10:06
Sub 写入word打印()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

非常利害，完美达到想要的效果！！！