怎样能让word文档自动读取或引入EXCEL里指定单元格的数据，效果跟正文一样？

Moneky

smilling1314 发表于 2017-9-27 12:57
你说的xls2doc，在哪里？

打开浏览器
在地址栏中输入www.baidu.com
再在百度的搜索框中输入 Xls2doc
鼠标左键单击搜索按钮
。。。。。写不下去了，然后在页面中找到和excelhome与xls2doc相关的项点击即可

182197315

帮你写了一个，代码如下：
Private Sub CommandButton生成Word文件_Click()
Dim WordApp As New Word.Application
Dim  i%, arr
FileCopy ThisWorkbook.Path & "\资本市场周报(模板).docx", ThisWorkbook.Path & "\资本市场周报.docx"
arr = Array(Cells(5, 2), Cells(5, 5), Cells(6, 5), Cells(7, 5), Cells(8, 5), Cells(11, 2), Cells(11, 5), Cells(12, 2), Cells(12, 5), Cells(13, 2), Cells(13, 5), Cells(14, 2), Cells(14, 5), Cells(15, 2), Cells(15, 5))
With WordApp
    .Documents.Open ThisWorkbook.Path & "\资本市场周报.docx"
    .Visible = True
    For i = 1 To 15
        .Selection.HomeKey Unit:=wdStory '光标置于文件首
        If .Selection.Find.Execute("数据" & i) Then
            .Selection.Text = arr(i - 1)
            .Selection.Font.Color = wdColorAutomatic
        End If
    Next i
End With
WordApp.Documents.Save
WordApp.Quit
Set WordApp = Nothing
End Sub

182197315

以下是附件

smilling1314

182197315 发表于 2017-9-27 19:58
以下是附件

您好，非常感谢你的帮忙。附件我看过，做出来的效果正如我想要的。我想问问怎么用啊？

182197315

smilling1314 发表于 2017-9-28 12:54
您好，非常感谢你的帮忙。附件我看过，做出来的效果正如我想要的。我想问问怎么用啊？

在excel里面输入内容，运行程序就能自动生成文档

xyxcc177

如果周报格式不变，根据数据，写一段自动生成的文字，就可以了。

smilling1314

182197315 发表于 2017-9-28 19:12
在excel里面输入内容，运行程序就能自动生成文档

你好！能告诉我你的Q号么（在消息那里回复）？你帮我弄好的周报编写怎么用我还是有些不明白。我发消息给你，麻烦你回复我一下。万分感谢！

182197315

smilling1314 发表于 2017-9-30 11:14
你好！能告诉我你的Q号么（在消息那里回复）？你帮我弄好的周报编写怎么用我还是有些不明白。我发消息给 ...

已结给你留言

luyu12334

这也可以，太神奇了

182197315

把表格和模板放在一个文件夹，点击按钮就ok了