VBA即用型代码手册：创建一个新文档并保存html文件

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是： VBA即用型代码手册：创建一个新文档并保存html文件 Create and SaveAs Html File

【分享成果，随喜正能量】289 你不甘平庸，却又不思进取，既无法忍受目前生活的状态，又没有能力改变当下的一切。没有躺平的命，却得了躺平的病。能力不足，梦想又多，无非是贪心；不愿意付出，又不肯拼，无非是妄念；反复纠结，过于矫情，无非是软弱。改变不了环境，你可以改变自己，改变不了过去，你可以改变现在。不是井里没有水，而是挖得不够深，不是成功来的慢，而是放弃速度太快。

第六章 Word对象及示例

Word Objects and Macro Examples

9 创建一个新文档并保存html文件 Create and SaveAs Html File

Sub mynzCreateAndSaveAs()

'创建一个新文档并保存为过滤后的 html [在默认文件夹中并以当前时间命名]

Dim strTime As String

Dim strPath As String

Dim oDoc As Document

strPath = ActiveDocument.Path & Application.PathSeparator

strTime = Format(Now, "yyyy-mm-dd hh-mm")

Set oDoc = Documents.Add 'create a new doc and asign it to oDoc variable

'write some text in the new doc reffering to it using oDoc variable

oDoc.Range.InsertBefore "VBA"

oDoc.SaveAs FileName:=strPath & strTime, FileFormat:=wdFormatFilteredHTML

oDoc.Close wdDoNotSaveChanges 'close doc

End Sub

• 本节内容参考程序文件：Chapter06.docm
• 本节内容参考程序文件：Chapter06.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：