在excel中写一段VBA代码：新建一个word，并把excel表中A1单元格的数据输入word

中。你需要打开Visual Basic Editor，然后在工作表对象的代码窗口中输入以下代码：

Sub ExportWord()
Dim wdApp As Object
Dim wdDoc As Object
Dim myText As Range

'创建一个Word应用程序
Set wdApp = CreateObject("Word.Application")

'使Word程序可见
wdApp.Visible = True

'添加一个新文档
Set wdDoc = wdApp.Documents.Add

'创建一个引用并选定A1单元格
Set myText = ActiveSheet.Range("A1")

'将选定单元格中的数据复制到Word文档中
myText.Copy
wdDoc.Range.Paste

'清空剪贴板并释放对象
Application.CutCopyMode = False
Set wdDoc = Nothing
Set wdApp = Nothing

End Sub

以上代码将创建一个新的Word文档，然后将A1单元格的数据复制到Word文档中。注意，您需要在Excel文件中启用Microsoft Word Object Library才能使用上述代码。