首页  »   VBA

VBA将Word文档转换成图片的有关问题

网友分享于:2015-10-30  浏览:3次
VBA将Word文档转换成图片的问题
程序将选择一页内容,复制,选择性粘贴(增强图源文件)到新的文件中,如此反复完成所有页面

但是程序通不过,该如何修改?



Sub ppp()
    Dim oldDocument As Document
    Dim newDocument As Document
    Dim r1 As Range
    Dim r2 As Range
    Dim rr As Range
    
    Set oldDocument = ActiveDocument
    totalPages = oldDocument.Paragraphs(oldDocument.Paragraphs.Count).Range.Information(wdActiveEndPageNumber)
    Set newDocument = Documents.Add(DocumentType:=wdNewBlankDocument)
    Set r2 = oldDocument.GoTo(what:=wdGoToPage, Which:=wdGoToAbsolute, Count:=1)
    newDocument.Activate
    For i = 1 To totalPages
        Set r1 = r2
        Set r2 = oldDocument.GoTo(what:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i + 1)
        posend = r2.End
        If r2.End = r1.Start Then posend = oldDocument.Content.End
        oldDocument.Range(r1.Start, posend).Copy
        Selection.PasteAndFormat (wdPasteMetafilePicture)  ‘这里wdPasteMetafilePicture出错
    Next i
End Sub

------解决思路----------------------
楼主好人,谢谢分享。。。

相关解决方案

最新解决方案