Word VBA 按F8逐步执行代码可得正确结果，直接执行代码出错！

xifeng116

以下是Word内容转图片的代码：
Sub yemiantopic()
    Dim nIndex As Integer
    On Error Resume Next
    For nIndex = ActiveDocument.Content.Information(wdNumberOfPagesInDocument) To 1 Step -1
        Selection.GoTo what:=wdGoToPage, Name:=nIndex
        ActiveDocument.Bookmarks("\page").Range.Copy
        ActiveDocument.Bookmarks("\page").Range.Select
        Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
    Next
    MsgBox "转换结束！"
End Sub


按F8逐步执行代码可得正确结果（全部页面转为图片），直接执行代码就出错！只转换两页。去掉“On Error Resume Next”出现错误提示如下附图，不知问题出在哪里？

xifeng116

没人回复！

413191246se

楼主，请重新耐心测试一下吧，提示剪贴板有问题，按 F8 逐步测试一下。

xifeng116

413191246se 发表于 2019-8-23 13:50
楼主，请重新耐心测试一下吧，提示剪贴板有问题，按 F8 逐步测试一下。

F8逐步执行测试到所有页面转换完毕都没问题的，直接执行就有问题

daibao88

代码应该没有问题，可能和电脑有关，每次循环中间插入延时，缓缓吧。

413191246se

楼主，我给你的代码改了一下，能输出图片，但第一张图片下面一段不正常！感觉 .PasteSpecial 这个方法/属性不能正确转图片，请测试：

1. Sub 页面转图片()
   
2. '    On Error Resume Next
   
3.     Dim n&, m&
   
4.     Dim act As Document
   
5.     Dim doc As Document
   
6. 
   
7.     Set act = ActiveDocument
   
8.     Set doc = Documents.Add
   
9.     m = act.Content.Information(wdNumberOfPagesInDocument)
   
10. 
    
11.     For n = 1 To m
    
12.         act.Activate
    
13.         Selection.GoTo what:=wdGoToPage, Name:=n
    
14.         act.Bookmarks("\page").Range.Copy
    
15.         doc.Activate
    
16.         Selection.Collapse 0
    
17.         Selection.PasteSpecial Placement:=wdInLine, DataType:=wdPasteEnhancedMetafile
    
18.     Next
    
19. '    MsgBox "转换结束！", 0 + 48, "页面转图片"
    
20. End Sub

复制代码

413191246se

楼主，我逐步调试和自动运行都发现有问题，不正确！感觉这个 .PasteSpecial 方法不可靠！

xifeng116

413191246se 发表于 2019-8-23 22:56
楼主，我逐步调试和自动运行都发现有问题，不正确！感觉这个 .PasteSpecial 方法不可靠！

是的，PasteSpecial 方法不可靠！
调整了下代码，简单的文档转换没问题，复杂点的还是出错：
Sub yemiantopic()
    Dim nIndex As Integer
   
    On Error Resume Next
   
    For nIndex = ActiveDocument.Content.Information(wdNumberOfPagesInDocument) To 1 Step -1
        Selection.GoTo what:=wdGoToPage, Name:=nIndex
        ActiveDocument.Bookmarks("\page").Range.Select
        With Selection
            .Range.ListFormat.ConvertNumbersToText
            .Copy
            '.CopyAsPicture
            .Collapse Direction:=wdCollapseEnd
            .PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False
        End With
        Selection.GoTo what:=wdGoToPage, Name:=nIndex
        ActiveDocument.Bookmarks("\page").Range.Delete
    Next
    MsgBox "转换结束！"
End Sub

413191246se

楼主，你的代码确实比我的好！刚才实验一下，发现 3 页文档形成图片后，有一处不正确。
建议找找网上是否有截图软件效果可能会比较好。

loquat

那就不要用剪贴板，有可能你的其他软件也会使用剪贴板