Set ImageStream = CreateObject("ADODB.Stream")
With ImageStream
.Type = 1
.Open
.Write ActiveDocument.InlineShapes(1).Range.EnhMetaFileBits
.SaveToFile "d:\Temp\Output.bmp"
.Close
End With
Set ImageStream = Nothing
2、如何把已经到处的图片导入到新文档中？这个函数调用可以参考一下：
ActiveDocument.InlineShapes.AddPicture
如果还是不明白的话，请补充提问。
_____
补充：
请问楼主你运行那个代码片断得到的*完整*错误信息是什么？报错的时候，系统一般会把光标移动到出错的那行代码上，你看到的是哪一行代码出错呢？
我看你贴上来的代码应该是没有什么语法上的错误，“Exit For”的确是不应该要的，但那也不是语法错误啊。
<head>之间的内容可以用vba的正则表达式提取。Function findFiveLetter(sentence)
Dim regEx As New VBScript_RegExp_55.RegExp
Dim matches, s
regEx.Pattern = "<head>.*?</head>"
regEx.IgnoreCase = True 'True to ignore case
regEx.Global = True 'True matches all occurances, False matches the first occurance
s = ""
If regEx.Test(sentence) Then
Set matches = regEx.Execute(sentence)
For Each Match In matches
s = s &" Position: " &Match.FirstIndex
s = s &" Word: " &Match.Value &" "
s = s &Chr(10)
Next
findFiveLetter = s
Else
findFiveLetter = ""
End If
End Function
试试下面的代码，是将sheet1 保存为 html格式。
Sub Chief()iPath = ThisWorkbook.Path & "\" '(保存路径为当前工作簿所在路径)
myN = ActiveSheet.Name
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=iPath & myN & ".html", FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
'(工作表名称为文件名）
ActiveWorkbook.Close
End Sub
'打开询问时不启用ACTIVEX即可
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）