麻烦路过的高人看一下，能否利用excel宏实现word的这个功能？
阅读权限50
在线时间 小时
我用VBa 的方法 实际与邮件合并差不多
是不是类似这样&&是的话 如果未解决 的 我玩玩 但是你模板要改一下
QQ截图56.jpg (39.21 KB, 下载次数: 0)
17:04 上传
阅读权限30
在线时间 小时
本帖最后由 rmajly 于
17:47 编辑
闻启学 发表于
我用VBa 的方法 实际与邮件合并差不多
是不是类似这样&&是的话 如果未解决 的 我玩玩 但是你模板要改一下 ...
特别感谢您的热心帮助，不过，用邮件合并确实不合适，实际情况是这样的。
1、首先第一个，我们的工作说白了就是八股文。
2、我们平时用的是word，每页的开头就是都是“科室 姓名&&排名号&&总编号”（因为工作的性质不便透露，我的模板内的文字只能换成我上传的那种样式）。以上两点用邮件合并似乎合适，但是请您继续往下看就明白了。
3、下面的文本内容，其实比较多，有时每一段可能有5-10行的文字（字数不定）。为了简化、方便，我缩简了不少。其实有时候碰到类似的特点的人物，模板里面许多内容可以不必更改，工作的时候，要用眼睛一行行扫描，然后用鼠标选取需要更改的部分，再往里写，感觉特别不直观，速度很慢，效率很低。所以想到了Excel结合VBA。
4、还有一个难点就是我们把这第一个多达首页的类似的报告写好后。之后每一天都要写个简短的报告，报告每天的情况，其实也是八股文。而这个每天即使是几行字（也可能是10几行字的）的报告，当天必须纸张打印出来。在word里，前面提到的每页开头的那一行文字用页眉、页脚就特别不方便（因为打印的时候，需打印页的前面的文字必须改成无色，否则打印就会重叠，而页眉、页脚这时候就显得特别的碍手碍脚了。）
5、这个word文本的格式上级有文件规定，必须是这种格式，中间还插入了那么一行跟页眉、页脚那样的不伦不类的东西，我们这样的草民，无法改变，只能适应。所以模板真的是不能改了。
所以在此特别希望您能出手相助，再一次表示感谢！
阅读权限30
在线时间 小时
本帖最后由 rmajly 于
17:44 编辑
闻启学 发表于
我用VBa 的方法 实际与邮件合并差不多
是不是类似这样&&是的话 如果未解决 的 我玩玩 但是你模板要改一下 ...
特别感谢您的热心帮助，不过，用邮件合并确实不合适，实际情况是这样的。
1、首先第一个，我们的工作说白了就是八股文。
2、我们平时用的是word，每页的开头就是都是“科室 姓名&&排名号&&总编号”（因为工作的性质不便透露，我的模板内的文字只能换成我上传的那种样式）。
以上两点用邮件合并似乎合适，但是请您继续往下看就明白了。
3、下面的文本内容，其实比较多，有时每一段可能有5-10行的文字（字数不定）。为了简化、方便，我缩简了不少。其实有时候碰到类似的特点的人物，模板里面许多内容可以不必更改，工作的时候，要用眼睛一行行扫描，然后用鼠标选取需要更改的部分，再往里写，感觉特别不直观，速度很慢，效率很低。所以想到了Excel结合VBA。
4、还有一个难点就是我们把这第一个多达数页的类似的报告写好后。之后每一天都要写个简短的报告，报告每天的情况，其实也是八股文。而这个每天即使是几行字（也可能是10几行字的）的报告，当天必须纸张打印出来。在word里，前面提到的每页开头的那一行文字用页眉、页脚就特别不方便（因为打印的时候，已经打印过的前面的文字必须改成无色，需打印的文字保留，否则打印就会重叠，而页眉、页脚这时候就显得特别的碍手碍脚了。）
5、这个word文本的格式上级有文件规定，必须是这种格式，中间还插入了那么一行跟页眉、页脚那样的不伦不类的东西，我们这样的草民，无法改变，只能适应。所以模板真的是不能改了。
所以，特别希望您能出手相助，再次对您表示感谢！
阅读权限95
在线时间 小时
rmajly 发表于
非常感谢您的回复，我运行了，但是确实如楼上说的那样，出现了问题。我把您的附件加上按钮并加上了您发 ...
是循环有点问题，已经修改Sub CommandButton生成Word文件_Click()
& &Dim 当前路径, 导出文件名, 导出路径文件名, 判断, i, j
& &Dim Str1, Str2
& &Set sh0 = Sheets(&Sheet1&)
& &当前路径 = ThisWorkbook.Path
& &最后列号 = sh0.Range(&IV1&).End(1).Column
& &B = Val(InputBox(&请输入数据开始列&, &提示&, 3))
& &C = Val(InputBox(&请输入数据结束列&, &提示&, 最后列号))
& & For i = B To C
& && &&&Set Word对象 = CreateObject(&Word.Application&)& & ' 启用WORD
& && &&&导出文件名 = sh0.Cells(3, i) & sh0.Cells(2, i) & &.doc&
& && &&&导出路径文件名 = 当前路径 & &\结果\& & 导出文件名
& && &&&FileCopy 当前路径 & &\模板.doc&, 导出路径文件名&&'//创建新word文件
& && && && &
& && &&&With Word对象
& && && && &.Documents.Open 导出路径文件名&&'//打开新的Word
& && && && &.Visible = True&&'//设置为可见
& && && && &IROW = sh0.Range(sh0.Cells(65536, i).Address).End(3).Row&&'//最后一行
& && && && &For j = 1 To IROW '那些行数据要写
& && && && && & .Selection.HomeKey Unit:=wdStory '光标置于文件首
& && && && && & Str1 = sh0.Cells(j, 1) & &A& '//要被替换的模板数据
& && && && && & Str2 = sh0.Cells(j, i)&&'//替换后的心数据
& && && && && & x = i
& && && && && & Do While Str2 = &&& &'//如果此列为空，则用下一列数据
& && && && && && &&&Str2 = sh0.Cells(j, x + 1)
& && && && && && &&&x = x + 1
& && && && && && &&&If x & C Then Exit Do
& && && && && & Loop
& && && && && & .Selection.HomeKey Unit:=wdStory '光标置于文件首
& && && && && & If .Selection.Find.Execute(Str1) Then '查找到指定字符串
& && && && && && &&&.Selection.Font.Color = wdColorAutomatic '字符为自动颜色
& && && && && && &&&.Selection.Text = Str2 '替换字符串
& && && && && & End If
& && && && &Next j
& && && && &.Documents.Save&&'//保存
& && && && &.Quit
& && && && &Set Word对象 = Nothing
& && &&&End With
& &
& & Next i
End Sub复制代码
阅读权限30
在线时间 小时
opiona 发表于
是循环有点问题，已经修改
非常感谢opiona老师的回复，但是还是出现了“编译错误：找不到过程或库”的弹出窗提示
我再把附件传上来，麻烦您再帮看看。
(16.8 KB, 下载次数: 8)
20:44 上传
点击文件名下载附件
阅读权限95
在线时间 小时
& & & & & & & &
rmajly 发表于
非常感谢opiona老师的回复，但是还是出现了“编译错误：找不到过程或库”的弹出窗提示
我再把附件传上来 ...
可能是WORD没有引用吧，方法见图片
如果还不行，需要知道是那一句代码出问题！
引用Word.png (44.83 KB, 下载次数: 10)
09:44 上传
阅读权限30
在线时间 小时
本帖最后由 rmajly 于
16:53 编辑
opiona 发表于
可能是WORD没有引用吧，方法见图片
如果还不行，需要知道是那一句代码出问题！
非常感谢老师的回复，我用的是office 2003的版本，结果发现出现了以下的问题，如下图所示，我试了很多办法（包括重装office 2003）都解决不了。我也查过些资料，那是因为office2007里才有的，office2003里只有microsoft word 11.0 object library。因为单位的电脑都是office2003,不可能因此就换成2007版本。请问有好的方法吗？再请老师帮帮忙。谢谢！
QQ截图53.jpg (44.03 KB, 下载次数: 10)
11:12 上传
阅读权限95
在线时间 小时
microsoft word 11.0 object librar
也可以的，只要是word就行，什么版本无所谓的！@
不知道出错的代码是哪一行，只能猜！
阅读权限30
在线时间 小时
opiona 发表于
microsoft word 11.0 object librar
也可以的，只要是word就行，什么版本无所谓的！@
不知道出错的代码是 ...
谢谢opiona老师！
我再发个图片您看看。运行那个弹出窗口，点击确定后就出现了这个样子
QQ截图02.jpg (105.89 KB, 下载次数: 6)
22:01 上传
阅读权限30
在线时间 小时
本帖最后由 rmajly 于
19:22 编辑
请老师再帮帮忙，好吗 ？我实在是没辙了。
最新热点 /1
微软、云赛空间和ExcelHome合作举办的Office 365年终盛会即将召开！这里有全球Office最前沿的技术讯息，有微软专家分享的Office应用经验，有多行业的应用案例，还有多重礼品等您拿，让我们益起来！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师在EXCEL中录制了一个宏，请问在编辑器添加什么VBA代码，让该宏自动运行，而不要总是去点击快捷键。在EXCEL中录制了一个宏，请问在编辑器添加什么VBA代码，-知识宝库
你可能对下面的信息感兴趣查看: 635|回复: 7
如何用VBA实现宏代码启用
阅读权限10
在线时间 小时
看了周庆麟老师用VBA编写自杀程序的教程，收获很大。同时也有一个疑问，就是我们平时编写的自杀代码也罢，禁止打开代码也罢，要实现这些功能，前提是EXCEL的宏被启用。如果EXCEL的宏被禁用，或者文件被加密（宏自然也不会执行），那自杀代码将不起任何作用。
有没有办法让禁用宏代码的EXCEL在打开文件是强行启用宏呢？
阅读权限50
在线时间 小时
用文件中的vba代码是不可能实现的，03版本的还可以用4.0宏代码之类的来弄弄，但07以上的版本就没戏了，可用另一个程序来打开调用，不过这样貌似又不合楼主的要求了。。。。。。
阅读权限30
在线时间 小时
可以的 宏病毒就是这样做的~不过高难度我不懂03比较弱小 16EXCEL都来了
阅读权限50
在线时间 小时
可以的 宏病毒就是这样做的~不过高难度我不懂03比较弱小 16EXCEL都来了
你搞清楚了吗？是插件还是独立于excel文件之外的程序？
如果是写在工作簿中的代码，你还想用它来启用自身excel的宏开关，你做梦去吧？除非你是微软的技术人员。。。
阅读权限30
在线时间 小时
你搞清楚了吗？是插件还是独立于excel文件之外的程序？
如果是写在工作簿中的代码，你还想用它来启用自 ...
帅锅你玩过宏病毒了吗？
阅读权限50
在线时间 小时
帅锅你玩过宏病毒了吗？
看样子你是玩过了，发个上来，我的10版本，给你测试！
阅读权限30
在线时间 小时
看样子你是玩过了，发个上来，我的10版本，给你测试！
俺说了 &不过高难度我不懂&
但是宏病毒就是自创建模板自添加代码自动运行
病毒都是做坏事但是当然可以用来启功一个宏
你我跑不进百米11秒不代表没有人能百米进10秒啊
阅读权限50
在线时间 小时
俺说了 &不过高难度我不懂&
但是宏病毒就是自创建模板自添加代码自动运行
你看清楚了吗？
QQ图片27.png (7.74 KB, 下载次数: 0)
10:09 上传
会感染宏病毒，正是因为在不了解的情况下开启了带病毒的文件的宏（或者当时你的excel的宏开关默认就是开启的低级别状态），或者通过独立于excel文件之外的自运行程序进行感染，搞清楚它的情况再说。。。。。。
最新热点 /1
微软、云赛空间和ExcelHome合作举办的Office 365年终盛会即将召开！这里有全球Office最前沿的技术讯息，有微软专家分享的Office应用经验，有多行业的应用案例，还有多重礼品等您拿，让我们益起来！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师