摘要：求教一个word vba 控件的问题方式1：选定文件，右键-属性，将文档属性中的只读选项的勾去掉后再打开文件修改，修改后即可保存； 方式2：打开文件，另存为其它文件名，修改后也可保存。 无法保存时候处...

求教一个word vba 控件的问题

方式1：选定文件，右键-属性，将文档属性中的只读选项的勾去掉后再打开文件修改，修改后即可保存； 方式2：打开文件，另存为其它文件名，修改后也可保存。

无法保存时候处理方法： 从开始菜单进入程序-office-office工具-应用程序恢复-选择不能保存的文件-结束应用程序（此时能保存文件的最近的状态兵退出）

word 控件怎么样安装,在哪里可以下载到？

不知以下回答是不是你的问题，若不是hi我留言菜单，视图---工具栏次级菜单中有没有visual basic一项，能打开吗？你装的是简版的office？有些简版不带vba。

光盘版我记得是默认安装的。

若要使用可以重新下一个带vba的office简版，或留下邮箱，我给你发一个，说明一下你要2003的还是2007的，光盘版还是简版

excelvba如何设置保护自编控件按钮

操作步骤。

第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。

第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。

第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。

第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。

Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker) .Title = ＂选择目标文件夹＂ If .Show = -1 Then myPath = .SelectedItems(1) Else Exit Sub End IfEnd WithmyPas = InputBox（＂请输入打开密码：＂）With Application.FileSearch .LookIn = myPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ＂大家好＂ .Replacement.Text = ＂你好＂ .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll myDoc.Save myDoc.Close Set myDoc = Nothing Next End IfEnd WithApplication.ScreenUpdating = TrueEnd Sub 第五，保存上面代码，退出VB编辑模式，返回Word文档界面。

第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。

第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。

就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。

VBA Word Excel 数据交互

我是使用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

如何让ExcelVBA的窗体控件在打开文件时直接显示？窗体控件做

目标文档做好后，可以另存一种可以令宏丢失的格式，您的希望就可以达成。

如，将这个文档另存为“Word 97-2003 文档”格式（在“保存类型”列表中指定），既不影响别的Word版本打开，而且打开时也没有宏安全性警告，打开后里边的控件就是非编辑状态，可以直接使用。

excel打开提示：此工作簿已丢失其VBA项目,ActiveX控件

版本一：方式1：选定文件，右键-属性，将文档属性中的只读选项的勾去掉后再打开文件修改，修改后即可保存； 方式2：打开文件，另存为其它文件名，修改后也可保存。

无法保存时候处理方法： 从开始菜单进入程序-office-office工具-应用程序恢复-选择不能保存的文件-结束应用程序（此时能保存文件的最近的状态兵退出）版本二、这是Excel文件中引用了一些你电脑里没有的Dll文件。

在工具/宏/VBA编辑器中，工具/引用里，把丢失的引用去除即可。

但有可能其中的程序就无法正常运行。

版本三、这种现象一般都是发生在你的文档通过其他文件作为数据库或者是数据资料来源，同时又缺少或数据来源文件不在读取文档指定或相同目录下时出现，比如word文档通过邮件合并功能读取了excel文件中的数据生成邮件合并模板文件后，移除excel数据源文件或将word邮件合并模板文件转移到其他目录时就会出现这个现象，解决方法就是将数据源文件放到指定的位置或与读取文档放置在同一目录下就能解决。

打开excel表格时,提示＂此工作簿已丢失了其VBA项目、ActiveX控件...

同时又缺少或数据来源文件不在读取文档指定或相同目录下时出现； 方式2：打开文件，将文档属性中的只读选项的勾去掉后再打开文件修改，右键-属性、这种现象一般都是发生在你的文档通过其他文件作为数据库或者是数据资料来源；引用里。

版本三，另存为其它文件名，修改后也可保存。

无法保存时候处理方法： 从开始菜单进入程序-office-office工具-应用程序恢复-选择不能保存的文件-结束应用程序（此时能保存文件的最近的状态兵退出）版本二、这是Excel文件中引用了一些你电脑里没有的Dll文件。

在工具/宏/VBA编辑器中，工具/，把丢失的引用去除即可。

但有可能其中的程序就无法正常运行，修改后即可保存版本一：方式1：选定文件，比如word文档通过邮件合并功能读取了excel文件中的数据生成邮件合并模板文件后...