VBA将Word文档转换成图片代码修正

gareth

通过VBA复制粘贴方式，可以将word 转为图片格式，但有个问题难以解决，就是对表格复制粘贴后，显示不全，求大侠提点！


word转图片.zip (33.22 KB, 下载次数: 17)

2021-1-29 10:23 上传

点击文件名下载附件

Sub ord 转为图片()
    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.PasteSpecial datatype:=wdPasteMetafilePicture
        newDocument.Content.ShapeRange(1).ConvertToInlineShape
    Next i
End Sub

zhanglei1371

建议先转为PDF，再PDF转图片。这种复制粘贴的容易出问题。