请大神帮忙修改下代码 word需要保存成图片

爱日你

需求：
1.有一页word，需要将整页的内容保存成一张JPG的图片(需要保存到本地文件夹)；
2.目前案例工具，是将整页复制，保存成图片新建第二页后，把图插入第二页；
（我需要修改成直接保存到本地，不要新建第二页）


目前代码如下：
Sub wordToImage()

cnt = Selection.Information(wdNumberOfPagesInDocument)
For i = 1 To cnt
    Selection.GoTo wdGoToPage, wdGoToAbsolute, i
    Selection.Bookmarks("\page").Range.Select
    Selection.Copy  
    Selection.EndKey wdStory
    Selection.PasteSpecial DataType:=wdPastewdPasteMetafilePicture, placement:=wdInLine
Next

End Sub

爱日你

大神帮帮忙

爱日你

期待大神支招

413191246se

楼主，如果仅仅是一页，可以在 Word 中以单页显示，找到所需的页面，按键盘上的硬拷贝按键 PrintScreen，然后，打开图片浏览小程序 IrfanView 粘贴，再用鼠标勾选页面范围，另存为 jpg/gif 均可。

爱日你

413191246se 发表于 2021-2-14 13:45
楼主，如果仅仅是一页，可以在 Word 中以单页显示，找到所需的页面，按键盘上的硬拷贝按键 PrintScreen，然 ...

谢谢大圣关注。因为有时候存在大量需要保存成JPG图片的情况。例子中的代码支持多页的转换成图片的情况。若能实现，还请帮忙支招，谢谢。

413191246se

楼主，我感觉你未把需求说明白，不知道是想将文档页面保存成图片后保存到本文档呢？还是保存到你的本地磁盘里面？（但 Word 并不能保存页面为图片！）——如果想要将文档保存为图片，请在网络引搜索关键词“Word2Jpg”有在线转换功能，如果确实需要，不妨花 15 元钱注册一下（可以先试用其功能）。
* 楼主，下面是将 Word 文档逐页保存到本文档成为图元文件（图片）的代码（将 楼主 的代码 略改）：

1. Sub aaaa_WordToImage_New()
   
2.     Dim lngDocPages As Long, i As Long
   
3.     With Selection
   
4.         lngDocPages = .Information(wdNumberOfPagesInDocument)
   
5.         .EndKey 6
   
6.         .InsertBreak
   
7.         For i = 1 To lngDocPages
   
8.             .GoTo wdGoToPage, wdGoToAbsolute, i
   
9.             .Bookmarks("\Page").Range.Select
   
10.             .Copy
    
11.             .EndKey 6
    
12.             .PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, placement:=wdInLine, DisplayAsIcon:=False
    
13.         Next
    
14.     End With
    
15. End Sub
    

复制代码

爱日你

413191246se 发表于 2021-2-15 12:40
楼主，我感觉你未把需求说明白，不知道是想将文档页面保存成图片后保存到本文档呢？还是保存到你的本地磁盘 ...

谢谢大侠提醒。我需要保存图片到本地文件夹。
您提供的代码跟我正文描述的代码功能相近，可以保存整页为图片，但不能保存到本地文件夹。使用电脑不能安装转换软件，所以才希望通过VBA实现。

wang-way

我有代码   手机上网  迟点发

爱日你

wang-way 发表于 2021-2-15 21:47
我有代码   手机上网  迟点发

感谢，期待指导。

爱日你

wang-way 发表于 2021-2-15 21:47
我有代码   手机上网  迟点发

大侠，能分享下代码吗？