none
如何把htm文档的第一段当成文件名 RRS feed

  • 问题

  • 如何把htm文档的第一段当成文件名

    Sub 把htm文档的第一段当成文件名并另存为doc文档()

    ActiveDocument.Paragraphs(1).Range.Select

    myfilename = ActiveDocument.Paragraphs(1).Range.Text

    myfilename = myfilename + ".doc" ChangeFileOpenDirectory "D:\backup\桌面\保存位置\" ActiveDocument.SaveAs FileName:=myfilename, fileFormat:=wdFormatDocument, _LockComments:=False, Password:="", AddToRecentFiles:=True, ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False

    End Sub

    Word 2003下运行结果是:由于文件许可权错误,无法保存

    我想把htm文档另存为doc文档,并且文件名修改成htm的第一段的内容,请各位帮我修改下以上vba,谢谢。



    以下是假定的htm 文档:
    !纯种野猪的饲养驯化

    引种前要对纯种野猪仔细观察

    捕猪者用吊弓捕捉的纯种野猪一般很少有内外伤,很容易饲养。但有的捕猪者出售的纯种野猪是用鼠药、农药毒杀而捕获的,因此,收购者要对其仔细观察。鼠药或农药中毒的纯种野猪,其表现为:头部低垂(严重者嘴抵地),站立不动,腹部膨胀,嘴角有少量白沫,吐沫有农药味,眼球底部及边缘呈红色,说明该猪中毒严重,一般在数小时内便会死亡,故不可收购,更不可食用。农药中毒较轻的纯种野猪大脑神经紊乱,有意识障碍,将其放在圈舍内,便会沿着围墙不停地绕圈行走,有的头部撞到墙壁才回头,不食,眼神呆滞,体温略高。为此,应及时治疗抢救。

    2013年2月17日 4:03