急啊：如何将WORD文档中的图片另存为JPG格式的文件？（用OLE）(100分)

R

Rlongriver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #1

[?]如题，文档中的图片格式可能是JPG,也可能是其它格式，
1，如何判断文档中的图片格式？
2，如何取出文档中的所有图片，然后将它们另存？
[]请各们帮忙，能给出一些代码最好^_^![],谢！
----------------------------------------------------------

 

R

Rlongriver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #2

为什么没人回答？？？？？？？？

 

X

xusong168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #3

把整个doc另存为html格式，然后在这些生成的文件中找出图片文件。

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #4

知道后，贴出来让大家学习。帮你up

 

R

Rlongriver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #5

[8D]为什么没人回答？是不是该转到别的问题分类中，那类问题回答的人多啊？[?]

 

X

xusong168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #6

老兄，我回答了呀！

 

R

Rlongriver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #7

xusong168老兄，能不能写点代码来看看啊！谢！

 

X

xusong168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #8

Sub Macro1()
'
' Macro1 Macro
' 宏在 2002-10-31 由 xs 录制
'
ChangeFileOpenDirectory "C:/PWIN95/Desktop/"
ActiveDocument.SaveAs FileName:="kjhkj.htm", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow.View.Type = wdWebView
End Sub

 

X

xusong168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #9

然后搜索这个目录下的JPG图片文件。

 

R

Rlongriver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-06

• #10

接受答案了.