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

smilling1314

背景：周报里有很多数据要自己用计算器一个个算好再填上去的，很费时（注：上文只是周报开头的一小部分而已）。

目标：WORD文档能自动读取EXCEL里指定单元格数据，而且文档看上去跟平常的一样（因为周报要对外发出的）

具体设想：我用EXCEL把数据弄好，然后把EXCEL表和周报WORD文档关连起来，周报WORD文档需填写数据的地方能自动修改，不用我再手工一处处改。

实践：

上面的结果是我用https://jingyan.baidu.com/article/7c6fb4287e9e3680652c9060.html“选择性粘贴”对话框中选择“粘贴链接”，“形式”选择“工作表对象” 这种方法实现的。但有以下问题待解决：

1、 在WORD文中看到，引用EXCEL表读入的跟文中的明显上浮了，EXCEL表里的单元格我涂了颜色，WORD文中也跟着有颜色。而且长度也跟EXCEL里单元格的宽度是一样的，显得很另类。怎么才能跟正常文档显示一样（包括字体大小、格式、位置、数据长度等都跟正文一样）？

2、还有没有其它更好的方法？

请各位大侠帮忙！万分感谢！！

182197315

你不是邮件合并的吗？
先参考以下代码
Private Sub CommandButton生成Word文件_Click()
   Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, 判断, i, j
   Dim Str1, Str2
   当前路径 = ThisWorkbook.Path
   最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row
   判断 = 0
   导出文件名 = "授课通知.doc"
   导出路径文件名 = 当前路径 & "\" & 导出文件名
   FileCopy 当前路径 & "\授课通知(模板).doc", 导出路径文件名
   With Word对象
      .Documents.Open 导出路径文件名
      .Visible = True
      .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader '设置位置在页眉
      Str1 = "数据006"
      Str2 = Sheets("数据2").Cells(2, 2)
      .Selection.HomeKey Unit:=wdStory '光标置于文件首
      If .Selection.Find.Execute(Str1) Then '查找到指定字符串
         .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
         .Selection.Text = Str2 '替换字符串
      End If
      .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter '设置位置在页脚
      Str1 = "数据007"
      Str2 = Sheets("数据2").Cells(2, 1)
      .Selection.HomeKey Unit:=wdStory '光标置于文件首
      If .Selection.Find.Execute(Str1) Then '查找到指定字符串
         .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
         .Selection.Text = Str2 '替换字符串
      End If
      .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument '设置位置在正文
      .Selection.WholeStory '全选
      .Selection.Copy '复制
      If 最后行号 > 3 Then
         For i = 2 To 最后行号 - 1 '复制页
            .Selection.EndKey Unit:=wdStory '光标置于文件尾
            .Selection.InsertBreak Type:=wdPageBreak '分页
            .Selection.PasteAndFormat (wdPasteDefault) '粘贴
         Next i
      End If
      For i = 2 To 最后行号
        For j = 1 To 5 '填写文字数据
           Str1 = "数据" & Format(j, "000")
           Str2 = Sheets("数据").Cells(i, j + 1)
           .Selection.HomeKey Unit:=wdStory '光标置于文件首
           If .Selection.Find.Execute(Str1) Then '查找到指定字符串
              .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
              .Selection.Text = Str2 '替换字符串
           End If
        Next j
        For j = 1 To 3 '填写表格数据
           .ActiveDocument.Tables(i - 1).Cell(2, j).Range = Sheets("数据").Cells(i, j + 6)
           .ActiveDocument.Tables(i - 1).Cell(4, j).Range = Sheets("数据").Cells(i, j + 9)
        Next j
      Next i
   End With
   Word对象.Documents.Save
   Word对象.Quit
   Set Word对象 = Nothing
   If 判断 = 0 Then
      i = MsgBox("已生成“" & 导出路径文件名 & "”！", 0 + 48 + 256 + 0, "提示：")
   End If
End Sub

2489586288

兄弟，我多年前有和你一样的需求，周报，月报，懒得复制粘贴调整，最终也没有解决。但是离开原来的工作岗位了，不用再做了，也是个解决方案吧。

smilling1314

182197315 发表于 2017-9-26 21:54
你不是邮件合并的吗？
先参考以下代码
Private Sub CommandButton生成Word文件_Click()

我不是用邮件合并的。我是在EXCEL复制单元格，在WORD里相应的地方“选择性粘贴”——“粘贴链接”，“形式”选择“工作表对象” 这种方法实现的。
感谢你写的代码！
针对你给的代码，有几个问题想了解：
1、代码是写入WORD中还是EXCEL中？是写进宏那里吗？
2、代码只是针对我文中那部分还是整体的？因为文中只是一小部分，还有内容还没写上去的。

wajour

可以参考标签模式，就像字典一样。将excel的内容在word进行查找替换即可。例如在word中写《2017年营业收入》，excel中在A1写2017营业收入，B1写对应的数据。这样就可以批量将Word中约定格式的内容替换掉了，其实邮件合并的原理跟这个是很像，不过邮件合并不够灵活，必须是一列一个指标，一类值(因此将字典数据转置后就可以直接用邮件合并功能了)

smilling1314

wajour 发表于 2017-9-27 09:00
可以参考标签模式，就像字典一样。将excel的内容在word进行查找替换即可。例如在word中写《2017年营业收入 ...

你好！谢谢你的指导。
标签模式我还没听说过。我先百度一下，然后按你的方法试试。
谢谢你！

duquancai

smilling1314 发表于 2017-9-27 11:58
你好！谢谢你的指导。
标签模式我还没听说过。我先百度一下，然后按你的方法试试。
谢谢你！

看了你前面4楼的回帖，你暂时还不知道怎么使用VBA，所以你也别试了，浪费时间和精力，你试不出来的。

Moneky

试试我的xls2doc

smilling1314

duquancai 发表于 2017-9-27 12:25
看了你前面4楼的回帖，你暂时还不知道怎么使用VBA，所以你也别试了，浪费时间和精力，你试不出来的。

我的确不晓得VBA。能手，那你有什么好的解决办法？

smilling1314

Moneky 发表于 2017-9-27 12:42
试试我的xls2doc

你说的xls2doc，在哪里？