写文本从Excel到Word中使用VBA 本程序打开一个Word文件，并把它写入文本和自定义的文本略有下降。
解释在VBA程序打开一个已经存在的Word文件存储在硬盘驱动器和写入文件的文本，使文本加粗等之后的文件被保存并关闭，在同一地点存放。
为了使该方案的工作参考“Microsoft Word的XX.X对象库”需要启用。 作者：VBA代码示例文件可用于在本页面最后下载，享受！或者只要复制并粘贴此网页的代码直接。
码Public Sub Write_Text_to_Word_From_Excel_using_VBA()
Dim Write_Text_to_Word_From_Excel_using_VBA_APP As Word.Application
Dim Write_Text_to_Word_From_Excel_using_VBA_DOC As Word.Document
Set Write_Text_to_Word_From_Excel_using_VBA_APP = CreateObject("Word.Application")
Dim PlaceOfWordFile As String
Dim NameOfWordFile As String
PlaceOfWordFile = Range("B4").Value
NameOfWordFile = Range("B5").Value
NamePlace = PlaceOfWordFile + "\" + NameOfWordFile
Write_Text_to_Word_From_Excel_using_VBA_APP.Visible = True
Set Write_Text_to_Word_From_Excel_using_VBA_DOC = Write_Text_to_Word_From_Excel_using_VBA_APP.Documents.Open(NamePlace, ReadOnly:=False)
Row = 0
While Range("B8").Offset(Row, 0).Value <> tom
Write_Text_to_Word_From_Excel_using_VBA_APP.Selection.Font.Name = Range("B8").Offset(Row, 2).Value
Write_Text_to_Word_From_Excel_using_VBA_APP.Selection.Font.Size = Range("B8").Offset(Row, 1).Value
Write_Text_to_Word_From_Excel_using_VBA_APP.Selection.TypeText Text:=Range("B8").Offset(Row, 0).Value
Write_Text_to_Word_From_Excel_using_VBA_APP.Selection.TypeParagraph
Row = Row + 1
Wend
Write_Text_to_Word_From_Excel_using_VBA_DOC.Save
Write_Text_to_Word_From_Excel_using_VBA_APP.Quit
Set Write_Text_to_Word_From_Excel_using_VBA_DOC = Nothing
Set Write_Text_to_Word_From_Excel_using_VBA_APP = Nothing
End Sub
下载Excel文件！Write_Text_to_Word_From_Excel_using_VBA.xls |
