如何让EXCEL中的内容自动填充到另一个WORD文档中
如何让EXCEL中的内容自动填充到另一个WORD文档中，是不是可以写一个宏命令之类的东西啊，如果是宏命令是不是两个都需要是EXCEL文档！
EXCEL的内容填充到WORD文档中的方法及步骤：
首先将Excel表格打开，选中表格，复制。
2. 然后，打开Word，右键，粘贴。
3. 点击左上角的加号会全选整个页面
4. 然后将光标移动到表格上，右键，选择“表格属性”，弹出对话框。
5. 首先点击“表格‘’，设置居中，设置指定宽度（数字课根据数据大小填写）。
6. 然后，选择“行”，设定“指定高度”“行高值”。
7. 点击确定，就完成了。
温馨提示：内容为网友见解，仅供参考
第1个回答 2020-10-21
第2个回答 2015-08-11
如何让EXCEL中的内容自动填充到另一个WORD文档中的解决方法如下：
1、对excel中的数据进行处理，每一列对应word中一个特定区域的值
2、新建一word文档，并启用邮件合并功能。
3、根据邮件合并的向导，设置好各项东西。
4、进行邮件合并，就可以得到需要的word文档了。
1、对excel中的数据进行处理，每一列对应word中一个特定区域的值
2、新建一word文档，并启用邮件合并功能。
3、根据邮件合并的向导，设置好各项东西。
4、进行邮件合并，就可以得到需要的word文档了。
第3个回答 2012-11-26
把第二章表格做到EXCEL里面去，就放在第一张表的另一个工作表里就行，然后用VLOOKUP函数把表一导进表二需要改变的2个地方，再建个宏
输入：
Sub 打印()
Dim Answer
Answer = MsgBox("姓名，编号，“是”继续打印，“否”退出打印", vbYesNo, "提示")
[A3] = 1
If Answer = vbNo Then
MsgBox "退出打印", vbOKOnly + vbInformation, "提示"
Exit Sub
Else
For i = 62092206070246 To n
If [A5] = n+1 Then
Exit Sub
Else
ActiveSheet.PrintOut
[A3] = [A3] + 1
End If
Next
End If
End Sub
A3表示姓名，A5表示编号，n表示最后的那个编号
输入：
Sub 打印()
Dim Answer
Answer = MsgBox("姓名，编号，“是”继续打印，“否”退出打印", vbYesNo, "提示")
[A3] = 1
If Answer = vbNo Then
MsgBox "退出打印", vbOKOnly + vbInformation, "提示"
Exit Sub
Else
For i = 62092206070246 To n
If [A5] = n+1 Then
Exit Sub
Else
ActiveSheet.PrintOut
[A3] = [A3] + 1
End If
Next
End If
End Sub
A3表示姓名，A5表示编号，n表示最后的那个编号
第4个回答 2012-11-26
不用VBA即可解决
步骤
1[Excel]把D列分成2列，使原来的后4位单独成一列
2[Word]如果你的第二张图片是Word中内容的截图，可以考虑使用Word的邮件合并功能即可解决你的打印问题
有关【邮件合并】功能，可以百度本回答被提问者和网友采纳
步骤
1[Excel]把D列分成2列，使原来的后4位单独成一列
2[Word]如果你的第二张图片是Word中内容的截图，可以考虑使用Word的邮件合并功能即可解决你的打印问题
有关【邮件合并】功能，可以百度本回答被提问者和网友采纳
相似回答
