ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 257|回复: 9

[求助] 怎么把excel里的东西批量替换word里对应的数据

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-1-13 11:42 | 显示全部楼层 |阅读模式
excel里第E列是我做的辅助列,需要把第G列的东西替换进word里对应E列的地方,格式不变,能不能生成一个名字是[地址]的word

Desktop.rar

24.79 KB, 下载次数: 10

TA的精华主题

TA的得分主题

发表于 2020-1-13 13:29 | 显示全部楼层
Excel表格的C6单元格改为总面积;
Word文档中第4行的[宗地(丘)面积]改为: [宗地(丘)面积]
在模块1里面抄好代码
引用Microsoft Word 15.0 Object Library
'mb.docx文件不能打开
执行代码。
2020-1-13输出数据.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-13 14:19 | 显示全部楼层
蓝桥玄霜 发表于 2020-1-13 13:29
Excel表格的C6单元格改为总面积;
Word文档中第4行的[宗地(丘)面积]改为: [宗地(丘)面积]
在模块1里面 ...

大佬,在保存的时候跳出了
无法在未启用宏的工作簿中保存以下功能
.vb 项目

要怎么处理啊

TA的精华主题

TA的得分主题

发表于 2020-1-13 14:57 | 显示全部楼层
vol5764 发表于 2020-1-13 14:19
大佬,在保存的时候跳出了
无法在未启用宏的工作簿中保存以下功能
.vb 项目

保存成启用宏的文件

TA的精华主题

TA的得分主题

发表于 2020-1-13 17:28 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-25 14:31 | 显示全部楼层
蓝桥玄霜 发表于 2020-1-13 13:29
Excel表格的C6单元格改为总面积;
Word文档中第4行的[宗地(丘)面积]改为: [宗地(丘)面积]
在模块1里面 ...

请问大佬,如果想在您这个代码里面加一个,判别excel是哪一类就删除word里面其他类别的东西
就比方说如果我在excel里选择是A类型的
然后在word里就把b和c类型对应的短语,句子,描述,表格删除

TA的精华主题

TA的得分主题

发表于 2020-1-25 15:00 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-29 21:46 | 显示全部楼层
蓝桥玄霜 发表于 2020-1-25 15:00
要求不明确,建议用附件来说明问题。

大佬,新年快乐,情况类似是这么个情况,您抽空麻烦帮我看一下,谢谢大佬!

Desktop.zip

45.8 KB, 下载次数: 115

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-29 21:48 | 显示全部楼层
蓝桥玄霜 发表于 2020-1-25 15:00
要求不明确,建议用附件来说明问题。

最上面两段话判别只留一个或者都不留,下面五个表格只留一个

TA的精华主题

TA的得分主题

发表于 2020-1-30 11:28 | 显示全部楼层
  1. cz = "[判定净值模板1]"
  2. With doc
  3.     For Each par In .Paragraphs
  4.         If InStr(par.Range.Text, cz) Then
  5.             par.Range.Delete
  6.             Exit For
  7.         End If
  8.     Next
  9. End With
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-4-10 01:47 , Processed in 0.055744 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表