Z zzutrain Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-11 #1 我需要一个bitmap图象，专门用来显示word的内容，也就是把word的内容用bitmap 来显示，不知道各位能不能给点帮助？
Y yzhshi Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-11 #2 VBA代码如下，自己转换吧。 该示例将活动文档的内容复制为图片，并将其作为图片粘贴到文档的结尾。 Sub CopyPasteAsPicture() ActiveDocument.Content.Select With Selection .CopyAsPicture .Collapse Direction:=wdCollapseEnd .PasteSpecial DataType:=wdPasteMetafilePicture End With End Sub
VBA代码如下，自己转换吧。 该示例将活动文档的内容复制为图片，并将其作为图片粘贴到文档的结尾。 Sub CopyPasteAsPicture() ActiveDocument.Content.Select With Selection .CopyAsPicture .Collapse Direction:=wdCollapseEnd .PasteSpecial DataType:=wdPasteMetafilePicture End With End Sub
Z zzutrain Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-11 #3 我需要的是整个word文挡，完全转换成bitmap,包括表格，图象，文字等等。bitmap的内容和word完全一样，只是显示的方法不一样。
L linsb Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-11 #5 我已部分解决，但有问题：只能转换首页，对表格可能丢一些竖线或水平线。
Z zzutrain Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-12 #8 能不能直接转换word文档，最好可以有个原代码来看看。分不够可以再加。 我的E-mail:zzutrain@163.com
心 心随风 Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-15 #9 Sub CopyPasteAsPicture() ActiveDocument.Content.Select With Selection .CopyAsPicture End With End Sub 执行完上述过程后，windows的剪贴板中会保存一个图片格式的内容。
Sub CopyPasteAsPicture() ActiveDocument.Content.Select With Selection .CopyAsPicture End With End Sub 执行完上述过程后，windows的剪贴板中会保存一个图片格式的内容。
L linsb Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-15 #10 Sub CopyPasteAsPicture() ActiveDocument.Content.Select With Selection .CopyAsPicture End With End Sub 只能转换首页，对表格可能丢一些竖线或水平线。
Sub CopyPasteAsPicture() ActiveDocument.Content.Select With Selection .CopyAsPicture End With End Sub 只能转换首页，对表格可能丢一些竖线或水平线。
L linsb Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-15 #11 楼主，把你要转的word文档发给我，我给你转一下，看看效果，如果可以我再把源码给你。
Z zzutrain Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-26 #13 本问题早已自行解决。谢谢大家参与，下次来散分。
