Excel VBA Make Word - VBA

在Excel VBA中，可以使用宏编程的方式创建和操作Microsoft Word文档。这个功能可以用来自动化繁琐的任务，例如生成报告、合并数据到单个文档中等。

以下是一些Excel VBA中创建和操作Word文档的代码示例。

创建Word文档

Dim objWord As Word.Application
Dim objDoc As Word.Document

' 创建一个新的Word实例
Set objWord = New Word.Application

' 创建一个新的Word文档
Set objDoc = objWord.Documents.Add

' 使Word可见
objWord.Visible = True

编写文本

' 在文档末尾添加文本
objDoc.Content.InsertAfter "Hello, World!"

添加段落

' 在文档末尾添加一个新段落
objDoc.Content.Paragraphs.Add

' 在新段落中添加文本
objDoc.Content.Paragraphs.Last.Range.InsertAfter "This is a new paragraph."

插入图片

' 插入一个图片到文档
Dim objShape As Word.Shape
Set objShape = objDoc.Shapes.AddPicture(Filename:="C:\path\to\picture.jpg")

' 改变图片大小
objShape.Height = 100
objShape.Width = 100

保存和关闭文档

' 保存文档
objDoc.SaveAs "C:\path\to\document.docx"

' 关闭文档
objDoc.Close

' 关闭Word实例
objWord.Quit

这些代码示例只是VBA操作Word文档的冰山一角，可以根据实际需求进行更复杂的操作。同时也需要注意的是，使用VBA操作Word文档的前提是需要在引用中添加Microsoft Word Object Library。