文化人40210584
用vba打开word模板并修改后保存
方法1当我们打开Word时，会弹出“Microsoft Office Word 需要 VBA 宏语言支持来完成此操作。
”这项功能目前尚未安装，是否现在安装？点击是又安装不了，证明此方法行不通，那么就点击否。
2然后弹出“此文档有宏，该应用程序的宏语言支持功能被取消。
功能要求的VBA不可用，是否以只读方式打开该文档？直接点击取消。
3然后点击菜单栏的工具按钮，再选择“宏”，然后选择“安全性”。
4在弹出的安全项中，选择非常高。
只允许运行安装在受信任位置的宏。
所有其他签署的和未经签署的宏都将被禁用。
5然后点击可靠发行商，将颁发对象中有的宏全部选择，然后点击删除，要全部删除掉，然后去掉信任所有安装的加载项和模板及信任对于“Visual Basic项目”的访问前面的勾，两个复选框都不要勾选，然后点击确定返回打开Word就可以了。
VBA将一个word表格中的内容复制到另外一个word的表格中
'打开后焦点发生了转移，activedocument已经指向刚打开的文件了'改为Sub Macro1()Dim myDoc'On Error Resume NextWith ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).RangeSet myDoc = Word.Application.Documents.Open(＂E:\1.docx＂).Delete.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)End WithEnd Sub'(InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)这行代码中，你确定表2存在吗？我测试时只建一个表，所以改为Tables(1).) '也可以这样控制焦点Sub Macro1()Dim myDoc'On Error Resume NextSet myDoc = Word.Application.Documents.Open(＂E:\1.docx＂, , , , , , , , , , , vbHide)With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range.Delete.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)End WithEnd Sub '至于为什么多出一个换行符我还没想明白
请问如何批量把word文档名,放在word文档的首行
假设你的文档放在 C:\ABC目录下1、开始-运行-打开（输入CMD）-确认；2、C：（回车）3、CD C:\ABC（回车）4、dir *.doc/b >c:\abcdoc.txt5、exit（回车）此时在C：\的根目录下已建立一个名为abcdoc.txt文件，你把里面内容复制到WORD文档的首行就了。
Word编写VBA程序的时候,工程中的Normal怎么去掉？？？
不可能去掉 ，Normal 指的是Word的 Normal模板 当你在打开Word程序时，Normal模板是自动加载的，也就是说打开Word后的那张可以直接写字的“白纸”就是Normal模板Normal模板即使被手动删除后，在下次打开Word时，系统也会自动地创建一个新的Normal模板，所以说不可能被删除掉 其次，在VBA中 ，appliacation.NormalTemplate 这个对象，也不支持 Close方法 。
总而言之，只要是打开了Word ，就不可能关闭Normal模板了~~Excel不存在Normal模板这个概念~~Excel的VBA工程是存放在一个单独的Excel工作簿中的，然后每次运行Excel时加载这个工作簿word的Normal模板里面存储了很多用户自定义的信息，包括样式、工具栏的设置、加载项、VBA工程等等，Normal是储存这些东西的一个介质，明白么~~
用Excel 登录了说有同学的各科成绩导入用Word 做的模板
用word里面的邮件合并功能，首先：视图——工具栏——邮件合并，点出邮件合并工具栏，然后在工具栏上点击“打开数据源”，把你那个excel文件导入进来，把光标定位在姓名栏——插入域——姓名——插入——关闭，其他各科成绩也是定位在相应的科目，然后重复上面的工作，不同的是插入域不是“姓名”，而是相应各科成绩（例如：物理，数学……）。
全部插入完之后，查看合并数据，如果没有问题的话，就合并到新文档，把新文档打印出来就可以了。
要一份Word排版大作业,快！
一、常见的“选中”方法： ü 全选（快捷键Ctrl+A）：就是全部选中文档内的所有内容。
这所有内容包括：文字、表格、图形、图像等可见的和不可见的标记。
ü 按住Shift+Page Down从光标处向下选中一屏，Shift+Page Up从光标处向上选中一屏。
ü 按住Shift+左选中光标左边第一个字符，Shift+右选中光标右边第一个字符，Shift+上选中从光标处向上到同列的字符，Shift+右选中从光标处向下到同列的字符。
（注：此处的？？、à、á、？？表示：上、下、左、右光标键） ü Ctrl+Shift+á从光标向上选中光标所在的一段，Ctrl+Shift+？？从光标向下选中光标所在的一段。
ü 扩展选中（快捷键F8）：按一次打开扩展功能；再按一次选中光标所在的位置的单词（若是中文的话选中光标所在的后一个字）；再按一次选中光标位置所在的一句；再按一次选中光标位置所在的一段落；再按一次则相当于全选。
取消扩展功能，按Esc键。
ü 把光标放到页面的左边，出现形如“？？”，点击就选中一行。
上下拖到就选中若干行。
ü Alt+鼠标拖动：选中矩形区域。
ü 按住Shift选中多个对象（非嵌入型的），也可以用绘图工具栏第二个按钮的“选择对象”（“？？”）来选择。
对于Word2003可以把光标放到任一位置，点右键/“选择格式相似的文本”功能，这个功能有点类似于F4，比较“另类”。
“相似”两字很值得玩味，多试几遍，其意自现。
二、“不常用”的“选中”方法 说他“不常用”并不真的是不常用，而是对于新手而言的不常用。
ü 通过菜单格式/样式和格式（Word2003版，别的版本类似），点击要选择的样式，点右边的下拉框，出现“选择所有XX实例”、“修改”、“删除”等。
此处的XX代表使用这种样式的段落是多少，点选“选择所有XX实例”就选中了所有应用了此样式的段落。
（注：对于规范的排版，这个是最好用的，可能我们只要四五个样式就把一篇小册子搞定。
） ü 不得不提到的替换（快捷键Ctrl+F）：在查找内容中输入要选中的文字、或点格式、高级等设置，再点选突出显示所有在该范围找到的项目，在选查找全部、关闭，这就就选中了你可以想到的任意的内容。
这个看似简单，其实是所有技巧中伸缩度最大的一个。
三、一种类似于图形软件方面的选中技巧： 在Photoshop中，有一个命令叫“保存选区”非常好用，在Word中也可以找到类似的方法，这就是书签。
利用书签“存储选区”也是很好的方法，但要注意，他必须是连续的区域。
方法是：先选中要定义的区域，插入/书签，输入书签名，定义一个书签。
使用时：插入/书签，找到想选中的书签，点“定位”就选中了书签所代表的选择。
这个功能在后台VBA中也很好用，制定特定模板的首选。
。
。
。
。
。
。
百度的
VBA可以将excel单元格内容,替换word文档指定位置中的内容么？
当然可以，我以前写的，你可以参考一下：Private Sub CommandButton1_Click()On Error Resume NextDim iRow As Integer, myPath As StringDim wdApp As Word.Application, wdDoc As Word.Document, wdRange As Word.RangeDim 收文日期 As String， 标题 As String， 来文单位 As String， 文号 As String， 拟办情况 As String'--------------------------------------------------------------------------------------------------------Label3.Caption = ＂封面正在生成中...＂'--------------------------------------------------------------------------------------------------------iRow = TextBox1.Text'获取待填写信息来文单位 = Cells(iRow, 3).Text来文单位 = Replace（来文单位， Chr(10), ＂^p＂） '将excel中的换行替换成word中的换行文号 = Cells(iRow, 4).Text文号 = Replace（文号， Chr(10), ＂^p＂） '将excel中的换行替换成word中的换行标题 = Cells(iRow, 5).Text标题 = Replace（标题， Chr(10), ＂^p＂） '将excel中的换行替换成word中的换行收文日期 = CStr(Year(Now())) & Cells(iRow, 6).Text拟办情况 = TextBox2.Text'--------------------------------------------------------------------------------------------------------myPath = ThisWorkbook.Path & ＂\封面\＂'文件若已打开，则关闭已打开文件For Each wdDoc In Documents If InStr(1, wdDoc.Name, myPath & ＂（＂ & 收文日期 & ＂）＂ & 标题 & ＂.doc＂, 1) Then wdDoc.Close savechanges:=wdDoNotSaveChanges Exit For End IfNext wdDoc'--------------------------------------------------------------------------------------------------------Set wdDoc = CreateObject(myPath & ＂空白模板.doc＂) '打开wordwdDoc.Activate '--------------------------------------------------------------------------------------------------------'填写文档Set wdRange = wdDoc.Content '将word的文档内容赋予wdrangewdRange.Find.Execute FindText：=＂{来文单位}＂， ReplaceWith：=来文单位， Replace:=wdReplaceAllwdRange.Find.Execute FindText：=＂{文号}＂， ReplaceWith：=文号， Replace:=wdReplaceAllwdRange.Find.Execute FindText：=＂{收文时间}＂， ReplaceWith：=收文日期， Replace:=wdReplaceAllwdRange.Find.Execute FindText：=＂{内容摘要}＂， ReplaceWith：=标题， Replace:=wdReplaceAllwdRange.Find.Execute FindText：=＂{办公室拟办}＂， ReplaceWith：=拟办情况， Replace:=wdReplaceAll'--------------------------------------------------------------------------------------------------------'文档另存为wdDoc.SaveAs Filename:=myPath & ＂（＂ & 收文日期 & ＂）＂ & 标题 & ＂.doc＂End Sub
打开word老是出现“您正试图运行的函数包含有宏或需要宏语言支持的...
三招防范宏病毒由于宏病毒经常在办公软件Office中出现，给广大用户造成不小的损失。
笔者发现，通过以下三招可以远离宏病毒（以Word为例）。
第一招：设置宏安全级别 打开Word，选择“工具选项安全性宏安全性”命令，这样就打开了宏的安全级别属性设置选项，将安全级别由默认的“高”修改为“非常高”，最后单击“确定”即可。
这样可以防止除Word默认的宏以外的其他宏运行。
第二招：运行宏病毒自动提示 打开Word，选择“工具选项安全性宏安全性”命令，单击“可靠发行商”标签，取消选择“信任所有安装的加载项和模板”复选框，然后单击“确定”即可。
这样当打开含有宏的Word文档时，就会提示宏已被禁止。
当然，也可能让正常的宏使用受到限制。
第三招：卸载VBA彻底预防宏病毒 VBA全称是Visual Basic for Application，它是Microsoft Visual Basic的宏语言版本。
用于Windows应用程序的宏。
是Word中宏的支持工具包，一旦禁用此包，一些自定义模板和所有的宏将不可用。
具体方法：双击“控制面板”中的“添加/删除程序”图标，找到Microsoft Office的安装项，单击“更改”按钮，选择“添加或删除功能”选项后，单击“下一步”按钮，在弹出来的窗口选“选择应用程序的高级自定义”复选框，再单击“下一步”按钮，这样，就可以选择删除该工具包。
在打开的Office程序及附加内容和工具中单击“Office共享功能“前的加号，找到“Visual Basic for Application”，单击前面的驱动器图标，选择“不安装”按钮即可。
经过以上三招，宏病毒将会远离你的Office了，这里是以Word为例介绍的，其实对Excel也同样适用，不妨一试。
、只要运行注册表就可以啦！具体做法：在“开始”里找到“运行”按纽，点击后在“打开”栏里输入“regedit”，就可以打开注册表了；找到HKEY_LOCAL_MACHINE打开，找SOFTWARE打开，找Microsoft打开，找office打开，找11.0打开，找EXCEL打开，找security打开后看到它旁边的窗口有一项名称为LEVEL的，双击它，在跳出的编辑DWORD值里面看到数值数据（V）：下面的空格啦，你就可以在里面修改数值啦。
注意：填写1为低，填写2为中，填写3为高。
2、在注册表里删除所有关于excel 2003的东东，然后，重新安装office 2003。
3、如果还不行，看杀毒软件的设置有问题没有。
转载请注明出处51数据库 » vba word 模板
