查看: 3065|回复: 7
如何利用excel vba提取word中表格的部分内容，复制粘贴到excel
阅读权限20
在线时间 小时
表格内容选取的原则是通过两个关键词，选取两个关键词之间的内容
Sub TEST()
& & Dim wdApp As Object
& & Dim wdDoc As Object
& & Dim wdRng As Object
& & Dim pos1 As Long
& & Dim pos2 As Long
& & Set wdApp = CreateObject(&Word.Application&)
& & Set wdDoc = wdApp.Documents.Add
& & Set wdRng = wdDoc.Range
& & Set wdRng = wdDoc.Range
& & wdRng.Find.Execute &四、岗位任职资格体&
& & pos1 = wdRng.End
& & Set wdRng = wdDoc.Range
& & wdRng.Find.Execute &五、岗位工作特征&
& & pos2 = wdRng.Start
& & wdDoc.Range(pos1, pos2).Copy& && && &'到这一句一直报错
& & Worksheets(&Sheet2&).Range(&A1&).Paste
& & wdDoc.Close False
& & wdApp.Quit
& & Set wdRng = Nothing
& & Set wdDoc = Nothing
& & Set wdApp = Nothing
00:02 上传
点击文件名下载附件
34.85 KB, 下载次数: 63
阅读权限20
在线时间 小时
要选取的内容在表格中的内容是不固定的，只能通过关键字确实位置。
阅读权限95
在线时间 小时
按照你的代码，我修改如下》》》》》》Sub 宏1()
& & Dim wordapp As Object
& & Dim mydoc
& & Dim mypath$, myname$
& & Dim wdRng As Object
& & Dim pos1%, pos2% '定义找到的字段的首位位置
& & Application.DisplayAlerts = False
& & Set wordapp = CreateObject(&word.application&)
& & mypath = ThisWorkbook.Path & &&
& & myname = Dir(mypath & &*.doc*&)
& & Set mydoc = wordapp.Documents.Open(mypath & myname)
& & Set wdRng = mydoc.Range
& & wdRng.Find.Execute (&（一）&)
& & pos1 = wdRng.Start
& & Set wdRng = mydoc.Range
& & wdRng.Find.Execute (&五、&)
& & pos2 = wdRng.Start
& & mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容
& & mydoc.Close False
& & wordapp.Quit
& & Worksheets(&Sheet2&).Select
& & Range(&A1&).Select
& & ActiveSheet.Paste
& & Application.ScreenUpdating = True
& & Application.DisplayAlerts = True
End Sub复制代码
阅读权限20
在线时间 小时
按照你的代码，我修改如下》》》》》》
你好，到这一句总是报错ActiveSheet.Paste
阅读权限20
在线时间 小时
按照你的代码，我修改如下》》》》》》
ActiveSheet.Paste这一句报错后，点调试后，不做修改点继续就又可以了
阅读权限95
在线时间 小时
你好，到这一句总是报错ActiveSheet.Paste
这一句错！跟你提到的“问题”无关！我只是针对你的问题来回答的！其余报错也跟我无关！！！
阅读权限20
在线时间 小时
本帖最后由
22:38 编辑
ActiveSheet.Paste这一句报错后，点调试后，不做修改点继续就又可以了
加上这一句后On Error Resume Next，不报错了，但也不进行复制操作了，只能报错后点调试，再点继续才能实现想要的结果
阅读权限20
在线时间 小时
这一句错！跟你提到的“问题”无关！我只是针对你的问题来回答的！其余报错也跟我无关！！！
大神，你好，希望你能再帮帮忙，看看这个问题怎么解决，不胜感激
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 598|回复: 6
如何提取word到excel，再从excel提取到word
阅读权限10
在线时间 小时
顺便规范一下word的格式
阅读权限10
在线时间 小时
请求大神支持
16:53 上传
点击文件名下载附件
68.93 KB, 下载次数: 10
阅读权限95
在线时间 小时
本帖最后由 duquancai 于
17:28 编辑
请求大神支持
不同程序之间的相互调用，一般都不喜欢做，速度慢不说，对应关系也得慢慢去找。这种问题还是自己有空慢慢去搞！我表示支持你！！！
阅读权限10
在线时间 小时
不同程序之间的相互调用，一般都不喜欢做，速度慢不说，对应关系也得慢慢去找。这种问题还是自己有空慢慢 ...
有费用的，具体私聊
阅读权限100
在线时间 小时
一般的做法是弄个word模版，然后用替换的办法，从excel更新数据到word
阅读权限10
在线时间 小时
一般的做法是弄个word模版，然后用替换的办法，从excel更新数据到word
谢谢提醒，可以批量且不会更改已经做好的文档吗
阅读权限100
在线时间 小时
一页书丶 发表于
谢谢提醒，可以批量且不会更改已经做好的文档吗
替换之后另存一个新的word就行
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel中使用VBA读取excel本文档中数据写入到word表格中_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&100W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
excel中使用VBA读取excel本文档中数据写入到word表格中
阅读已结束，下载本文需要
定制HR最喜欢的简历
你可能喜欢78 条评论分享收藏感谢收起赞同 21 条评论分享收藏感谢收起写回答&>&VBA从excel读出数据写到word表格指定位置
VBA从excel读出数据写到word表格指定位置
上传大小：318KB
这个文件是接着上一个，深化了一些，可以从excel中读出数据，写到word的格式化好的表格中。可以帮助大家好好的利用代码操作word，生成的word文档保存在d盘根目录下
文章介绍：
http://blog.csdn.net/lg836/archive//3769883.aspx
综合评分：3
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有18条
缺少工程和库，打不开呀
描述和内容不符
正在写一个工具，借鉴一下，谢谢！
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验，不建议使用迅雷下载
VBA从excel读出数据写到word表格指定位置
会员到期时间：
剩余下载个数：
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
为了良好体验，不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可返还被扣除的积分
被举报人：
请选择类型
资源无法下载 （ 404页面、下载失败、资源本身问题）
资源无法使用 （文件损坏、内容缺失、题文不符）
侵犯版权资源 （侵犯公司或个人版权）
虚假资源 （恶意欺诈、刷分资源）
含色情、危害国家安全内容
含广告、木马病毒资源
*投诉人姓名：
*投诉人联系方式：
*版权证明：
*详细原因：
VBA从excel读出数据写到word表格指定位置}