七年級語文教案-虞世南《蟬》詩歌鑒賞（通用14篇）

修改：D:\test\ 為原始文件夾修改：D:\test1\ 為目標(biāo)文件夾SubHtmltodoc()DimMyFileAsStringDimArr(10000)AsString'一次處理最大的文件數(shù)量，根據(jù)需要修改數(shù)字10000改為需要處理的數(shù)量DimcountAsIntegerMyFile=Dir("D:\test\"&"*.html")count=count+1Arr(count)=MyFileDoWhileMyFile<>""MyFile=DirIfMyFile=""ThenExitDoEndIfcount=count+1Arr(count)=MyFile'將文件的名字存在數(shù)組中LoopFori=1TocountDocuments.OpenFileName:="D:\test\"&Arr(i),ConfirmConversions:=False,ReadOnly:=_False,AddToRecentFiles:=False,PasswordDocument:="",PasswordTemplate:=_"",Revert:=False,WritePasswordDocument:="",WritePasswordTemplate:="",_Format:=wdOpenFormatAuto,XMLTransform:=""'修改視圖模式為普通模式ActiveWindow.ActivePane.View.Type=wdPrintView'格式修改代碼Selection.WholeStoryWithSelection.ParagraphFormat.SpaceBeforeAuto=0.SpaceBefore=0.SpaceAfterAuto=0.SpaceAfter=0.SpaceBeforeAuto=0.SpaceBefore=0.SpaceAfterAuto=0.SpaceAfter=0.DisableLineHeightGrid=0.ReadingOrder=wdReadingOrderLtr.AutoAdjustRightIndent=-1.WidowControl=-1.KeepWithNext=0.KeepTogether=0.PageBreakBefore=0.FarEastLineBreakControl=-1.WordWrap=-1.HangingPunctuation=-1.HalfWidthPunctuationOnTopOfLine=0.AddSpaceBetweenFarEastAndAlpha=-1.AddSpaceBetweenFarEastAndDigit=-1.BaseLineAlignment=wdBaselineAlignAutoEndWithSelection.Font.Name="宋體"WithSelection.Font.Size=14.SizeBi=14EndWith'保存為doc格式ActiveDocument.SaveAsFileName:="D:\test1\"&Replace(Arr(i),".html",".doc"),FileFormat:=wdFormatDocument,_LockComments:=False,Password:="",AddToRecentFiles:=True,WritePassword_:="",ReadOnlyRecommended:=False,EmbedTrueTypeFonts:=False,_SaveNativePictureFormat:=False,SaveFormsData:=False,SaveAsAOCELetter:=_FalseActiveDocument.CloseNextEndSubHtmltodocxSubHtmltodocx()DimMyFileAsStringDimArr(10000)AsString'一次處理最大的文件數(shù)量，根據(jù)需要修改數(shù)字10000改為需要處理的數(shù)量DimcountAsIntegerMyFile=Dir("D:\test\"&"*.html")count=count+1Arr(count)=MyFileDoWhileMyFile<>""MyFile=DirIfMyFile=""ThenExitDoEndIfcount=count+1Arr(count)=MyFile'將文件的名字存在數(shù)組中LoopFori=1TocountDocuments.OpenFileName:="D:\test\"&Arr(i),ConfirmConversions:=False,ReadOnly:=_False,AddToRecentFiles:=False,PasswordDocument:="",PasswordTemplate:=_"",Revert:=False,WritePasswordDocument:="",WritePasswordTemplate:="",_Format:=wdOpenFormatAuto,XMLTransform:=""'修改視圖模式為普通模式ActiveWindow.ActivePane.View.Type=wdPrintView'格式修改代碼Selection.WholeStoryWithSelection.ParagraphFormat.SpaceBeforeAuto=0.SpaceBefore=0.SpaceAfterAuto=0.SpaceAfter=0.SpaceBeforeAuto=0.SpaceBefore=0.SpaceAfterAuto=0.SpaceAfter=0.DisableLineHeightGrid=0.ReadingOrder=wdReadingOrderLtr.AutoAdjustRightIndent=-1.WidowControl=-1.KeepWithNext=0.KeepTogether=0.PageBreakBefore=0.FarEastLineBreakControl=-1.WordWrap=-1.HangingPunctuation=-1.HalfWidthPunctuationOnTopOfLine=0.AddSpaceBetweenFarEastAndAlpha=-1.AddSpaceBetweenFarEastAndDigit=-1.BaseLineAlignment=wdBaselineAlignAutoEndWithSelection.Font.Name="宋體"WithSelection.Font.Size=14.SizeBi=14EndWith'保存為docx格式ActiveDocument.SaveAsFileName:="D:\test1\"&Replace(Arr(i),".html",".docx"),FileFormat:=12,_LockComments:=False,Password:="",AddToRecentFiles:=True,WritePa