Vba 填写word word 填写窗体
使用VBA在查询WORD中表格的内容
我是使用OFFICE 2003来做的，不知道你那好使不好使Private Sub CommandButton2_Click()"防止重复打开同一Word文档导致错误If Not WordDocIsOpen(＂F：\总工月报表.doc＂) Then"创建Word对象Set objWordApp = CreateObject(＂Word.Application＂)objWordApp.Visible = True"打开指定文档Set objDocument = objWordApp.Documents.Open(＂F：\总工月报表.doc＂)"获取当前Excel的SHEET1的单元格C2数据strName = ThisWorkbook.Sheets(1).Cells(2, 3).Value"将取得得值设定到Word表格的1行2列中objDocument.Tables(1).Cell(1, 2).Range.Text = strNameEnd IfEnd Sub"判断Word文档是否被重复打开Function WordDocIsOpen(ByVal strDocName As String) As BooleanDim objWordApp As ObjectDim objWordDoc As ObjectWordDocIsOpen = FalseSet objWordApp = NothingOn Error Resume NextstrDocName = UCase(strDocName)"判断是否有Word程序被打开Set objWordApp = GetObject(, ＂Word.Application＂)If Not objWordApp Is Nothing Then"判断指定Word文件是否被打开For Each objWordDoc In objWordApp.DocumentsIf UCase(objWordDoc.FullName) = strDocName ThenWordDocIsOpen = TrueExit ForEnd IfNextEnd IfSet objWordDoc = NothingSet objWordApp = NothingEnd Function
如何在Word中打开VBA编程窗口
三招防范宏病毒由于宏病毒经常在办公软件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、如果还不行，看杀毒软件的设置有问题没有。
Excel vba中怎样填写数值改变单元格后触发事件
vba读取word内容会弄吗？dir(*.Doc)知道怎么用吗？大约思路吧1、枚举所有word文档2、查找word中的你需要的内容3、填写到excel表中呵呵，不知道你vba水平如何，但按你的题目，我也只能回答这么多了。
按这个思路百度去，总会找到办法的。
-