用vba宏给word文档加水印添加水印，我已经弄了一段代码但是为什么无法修改字体大小，

来源：蜘蛛抓取(WebSpider) 时间：2016-10-14 03:36 标签： 文档加水印
查看: 547|回复: 3
excel vba 修改word文档内容，不显示修改过程
阅读权限10
在线时间 小时
其他功能都已经实现了，但是在用excel中的vba代码修改word文档时，会打开word文档，并逐步显示修改的过程，怎么省去界面上的显示，提高工作效率呢？
求教，现在用的是open方法。谢谢大家。
阅读权限95
在线时间 小时
修改数据可保存在EXCEL中，修改后一次性复制到WORD中
阅读权限50
在线时间 小时
在程序的最前面加
Application.DisplayAlerts = False
Application.ScreenUpdating = False
把word的（.Visible ）= False
Application.DisplayAlerts = True
Application.DisplayAlerts = True
阅读权限10
在线时间 小时
在程序的最前面加
Application.DisplayAlerts = False
Application.ScreenUpdating = False
已解决，谢谢大神！！！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师解决word2010提示此文档有宏，该应用程序的宏语言支持功能被取消
打开WORD2010提示：此文档有宏，该应用程序的宏语言支持功能被取消。功能要求的VBA不可用…，然后一连串的确定后在菜单栏上出现了一个“加载项”一项。
出现这样的问题应该是安装过程有问题，在安装过程中没有安装“OFFICE
共享功能”下的“VBA数字工程证书”和“Visual　Basic　for　Applications”。解决办法：运行安装文件，选择“添加/删除功能”选择“自定义安装”选择“OFFICE
共享功能”下的“VBA数字工程证书”和“Visual　Basic　for　Applications”　这两项　继续安装就可以了！！同时解决了出现“所做更改会影响共用模板
Normal.dotm　”的问题。
后面的是网上下载的没有试过。
问题：打开WORD时提示：此文档有宏，该应用程序的宏语言支持功能被取消。功能要求的VBA不可用
仅仅打开word就有这个问题的话，调安全性是没有用的。
这个是word的一个安全漏洞，可以在不设置word的情况下自动运行制定的宏（病毒），可逃避部分杀毒软件的查杀！
解决办法：删除C:\Documents and Settings\[系统登陆名]\Application
Data\Microsoft\Word\STARTUP
文件夹下的模板文件或所有文件。此目录下的模板文件在word启动时间自动加载。
不需要其它设置就可以了。
每次打开有内容的Word文档时，Word2007总会弹出一个对话框，提示宏出错“此文档有宏，该应用程序的宏语言支持功能被取消。功能要求的VBA不可用。是否以只读方式打开？”，并要双击几次才能关闭对话框！关闭文档时也会弹出同样的对话框。遇见这种错误我的解决方法如下：1、打开word
→ 点击左上角图标（Office按钮） → word选项 → &加载项 →
&管理【com加载项】，点击“转到” → 把“Microsoft
word稿纸向导、Microsoft word书法加载项、Microsoft word斜线表头向导、Microsoft
word信封向导、Office Special Symbol Input Add-in”五项取消（即把前面的勾去掉 →
确定。2、删除C:\Documents and Settings\[系统登陆名]\Application
Data\Microsoft\Word\STARTUP文件夹下的模板文件或所有文件。做完以上两步操作之后然后再打开word文件就没有错误提示了，一切搞定。
3在使用OFFICE2010的WORD的时候，关闭时会出现“所做更改会影响共用模板NORMAL”？
　　1.Word选项(I) / 加载项 / 转到(G).../
　　2.把里面的3项内容都删除/确定/&
　　3.Word选项(I) / 信任中心 / 信任中心设置 (T)...
　　4.选择 “启用所有宏”和“信任对 VBA 工程对象模型的访问”/ 确定
　　5.重新启动 WORD 2010
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。查看: 3026|回复: 5
VBA怎样获取word文档的第一行内容，然后后，其字体设置。。。
VBA怎样获取word文档的第一行内容，然后后，其字体设置。。。
字体设置成：楷体
颜色：红色
请老师们帮帮我写下这个代码，最主要的是，获取整篇文档的第一行。
谢谢老师是们了。
本帖最后由 hwc2ycy 于
19:44 编辑
& & Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
& & Selection.EndKey Unit:=wdLine, Extend:=wdExtend
& & With Selection.Font
& && &&&.Size = 15
& && &&&.Name = &楷体_GB2312&
& & End With复制代码录的。
hwc2ycy 发表于
真厉害，学习了！
还有字体颜色，试验了好久，添加了一句设置字体颜色的代码：Sub 设置字体()
& & Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=&&
& & Selection.EndKey Unit:=wdLine, Extend:=wdExtend
& & With Selection.Font
& && &&&.ColorIndex = 6
& && &&&.Size = 15
& && &&&.Name = &楷体_GB2312&
& & End With
End Sub复制代码
yyyydddd8888 发表于
真厉害，学习了！
还有字体颜色，试验了好久，添加了一句设置字体颜色的代码：
呵呵，我上面name属性也漏了，不知道是复制出了问题还是咱回事。
hwc2ycy 发表于
呵呵，我上面name属性也漏了，不知道是复制出了问题还是咱回事。
老师的水平真的很高！佩服！
yyyydddd8888 发表于
老师的水平真的很高！佩服！
，WORD也不会，慢慢摸。
|||Excel精英培训
Powered by帐号:密码:下次自动登录{url:/nForum/slist.json?uid=guest&root=list-section}{url:/nForum/nlist.json?uid=guest&root=list-section}
贴数:1&分页:天上掉大饼：学思行言发信人: roy (天上掉大饼：知行合一), 信区: OfficeSoft
标&&题: 贴个将多个word文件合并到一个文件中的VBA宏
发信站: 水木社区 (Fri Dec&&7 18:02:14 2007), 站内 && 前几天答辩，论文是用word分章写的，每章一个word文件。
今天在线提交论文，被告知必须将所有文件合并成一个才能提交，怒。 && 于是就写了个小程序来做这个事情。
不是很完美，但是够用了。
代码如下： && Option Explicit
Sub mergeFiles() &&&& Dim filename As String &&&& Dim doc As Document &&&&&&&&&& Set doc = ThisDocument &&&& '清除当前文档中的内容 &&&& doc.Content.Delete &&&&&& '遍历目录中全部doc文件，调用mergeDoc过程处理 &&&& ChDir ("C:\test\") &&&& filename = Dir("*.doc") &&&& Do While Len(filename) &&&&&&&& mergeDoc filename, doc &&&&&&&& filename = Dir &&&& Loop
End Sub && Sub mergeDoc(filename As String, doc As Document) &&&& Dim app As Application &&&& Dim newDoc As Document &&&& Dim sec As Section &&&&&&&&&& Set app = Application &&&& '打开要添加的doc文件 &&&& Set newDoc = app.Documents.Open(filename) &&&& '在当前文档中新建一节 &&&& Set sec = doc.Sections.Add &&&& '将doc文件的内容拷贝到剪贴板中 &&&& newDoc.Content.Copy &&&& '将doc文件的页面设置拷贝到当前节 &&&& sec.PageSetup = newDoc.PageSetup &&&& '将带格式的内容从剪贴板拷贝到当前文档 &&&& sec.Range.PasteAndFormat wdFormatOriginalFormatting &&&& '关闭doc文档 &&&& newDoc.Close
-- &&&& 共和九十六年五月十八日，柳镜晓下达出动命令，联军十七师沿津浦路向北开进。 &&&& 柳镜晓自己声称提前出动的原因是：“烈风军已向保定发起进攻，若沧州、石家庄 &&&& 失守，山东就要直接处在战火之中！” &&&& …… &&&& 共和国历史上最大规模的河北会战拉开了它的序幕。有许多人更是自豪的将其称为： &&&& “九次河北会战”。 &&&& ※ 修改:·roy 于 Dec&&7 18:02:33 修改本文·[FROM: 211.151.91.*]
※ 来源:·水木社区 newsmth.net·[FROM: 211.151.91.*]
文章数:1&分页:
抽奖到手软！将狂欢进行到底！

我要回帖

更多关于 文档加水印 的文章

 

随机推荐