跪求word每一duan复制一次的VBA代码
答案:2 悬赏:80 手机版
解决时间 2021-12-02 23:22
- 提问者网友：末路
- 2021-12-02 00:34
跪求word每一duan复制一次的VBA代码
最佳答案
- 五星知识达人网友：何以畏孤独
- 2021-12-02 01:05
Sub test()
Dim pc%, i%
pc = ActiveDocument.Paragraphs.Count
If pc > 100 Then Application.ScreenUpdating = False
For i = 1 To pc + 3 Step 2
ActiveDocument.Paragraphs(i).Range.Select
Selection.Copy
Selection.MoveRight (1)
Selection.Paste
Next
If pc > 100 Then Application.ScreenUpdating = True
End Sub追问非常感谢！代码有点小小的缺憾，pc+3的上限会导致第30段后的段落就不再复制。不知有何良策改进？
因为有别的事情急着要做，具体原因我也来不及去想，直接把上限改成300了，虽然运行到最后会超限出错，但终归能解决问题。
再次感谢你解决了我的燃眉之急！
Dim pc%, i%
pc = ActiveDocument.Paragraphs.Count
If pc > 100 Then Application.ScreenUpdating = False
For i = 1 To pc + 3 Step 2
ActiveDocument.Paragraphs(i).Range.Select
Selection.Copy
Selection.MoveRight (1)
Selection.Paste
Next
If pc > 100 Then Application.ScreenUpdating = True
End Sub追问非常感谢！代码有点小小的缺憾，pc+3的上限会导致第30段后的段落就不再复制。不知有何良策改进？
因为有别的事情急着要做，具体原因我也来不及去想，直接把上限改成300了，虽然运行到最后会超限出错，但终归能解决问题。
再次感谢你解决了我的燃眉之急！
全部回答
- 1楼网友：woshuo
- 2021-12-02 01:56
这么高难度的东西，看来我真的可以帮到你，但是你说得不是很清楚，能说清楚点吗
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯