WORD VBA问题

首先alt+f11，工具引用，勾选microsoft excel 11.0 object library，然后插入模块 Sub op()Dim app As New Excel.ApplicationDim wb As Excel.WorkbookSet wb = app.Workbooks.Open(＂d:/tt.xls＂)MsgBox wb.Sheets(＂sheet1＂).Range(＂c5＂)app.QuitEnd Sub子易空间站 - Excel培训专家

利用VBA在word中调用excel的数据 编译错误：方法和数据成员未找到

这是在EXCEL环境中直接引用EXCEL的语句。

在WORD中不能这样引用。

代码如下：Private Sub CommandButton1_Click()Dim xls As New Excel.ApplicationDim wk As New Excel.WorkbookDim sh As New Excel.WorksheetSet wk = xls.Workbooks.Open(＂d:\111.xls＂)Set sh = wk.Sheets(＂Sheet1＂)temp = sh.Range(＂A10＂)Set sh = Nothingwk.CloseSet wk = Nothingxls.QuitSet xls = NothingMsgBox tempEnd Sub

打开Word时总是出现 “Microsoft Office Word 需要 VBA 宏语言支持来...

展开全部 方法 1 当我们打开Word时，会弹出“Microsoft Office Word 需要 VBA 宏语言支持来完成此操作。

”这项功能目前尚未安装，是否现在安装？点击是又安装不了，证明此方法行不通，那么就点击否。

2 然后弹出“此文档有宏，该应用程序的宏语言支持功能被取消。

功能要求的VBA不可用，是否以只读方式打开该文档？直接点击取消。

3 然后点击菜单栏的工具按钮，再选择“宏”，然后选择“安全性”。

4 在弹出的安全项中，选择非常高。

只允许运行安装在受信任位置的宏。

所有其他签署的和未经签署的宏都将被禁用。

5 然后点击可靠发行商，将颁发对象中有的宏全部选择，然后点击删除，要全部删除掉，然后去掉信任所有安装的加载项和模板及信任对于“Visual Basic项目”的访问前面的勾，两个复选框都不要勾选，然后点击确定返回打开Word就可以了。

...

vba,word和excel相互调用

总是要有一个打开的时机的，总要有一段打开的代码，不然怎么凭空打开，怎么获取打开的文件名. 如果你想在你的宏运行前打开，你可以把调用与打开的代码放在宏运行的前面. 如：以excel打开word为例，你可以在Workbook_Open下放置你调用和打开word 的代码： Private Sub Workbook_Open() dim aaa as ...application End Sub 方法你应该比较熟悉了，就是在vbaproject下双击ThisWorkbook，然后在上边的下拉列表里选对象和事件.如果在宏中用路径打开被调用的文件，那么该文件就必须放在路径指定的位置，我不想这样。

我想放在任意位置。

放在任意位置你可以用一个打开对话框呀，如下面代码：Dim fd As FileDialog Dim Wbook As Workbook Dim rowindex As Integer Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd .Filters.Add ＂EXCEL 文件＂， ＂*.xls＂, 1 '过滤 If .Show = -1 Then rowindex = 1 For Each vrtSelectedItem In .SelectedItems Set Wbook = Workbooks.Open(vrtSelectedItem)

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

EXCEL VBA和WORD VBA有什么区别？

展开全部 Sub GenDocfromExcel()'excel控制word，生成新文件，插入图片和文件名，保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'...Range(＂A1:B13＂).Copy '复制当前内容Dim WordApp As Word.Application '定义变量Set WordApp = CreateObject(＂Word.Application＂) '生成WORD对象WordApp.Documents.Add '新建文件WordApp.Selection.Paste '粘贴fn$ = ＂D:\＂ & Range(＂b1＂) '生成文件名WordApp.ActiveDocument.SaveAs fn$ '保存文件WordApp.Quit '退出Set WordApp = Nothing '取消变量End Sub...

如何在EXECL中用VBa打开Word,并输出数据到WORD中,保存,关...

展开全部 在EXcel的VB编辑器中插入一个模块，输入如下代码试试看。

Sub ExcelToWord() Dim WordObject As Object '声明一个对象变量，这里即将声明为Word对象 On Error Resume Next Set WordObject = CreateObject(＂Word.Application＂) '用set来创建Word对象，这里是运行Word程序，但未新建文档 WordObject.Visible = 0 '后台运行Word对象，只在任务管理器中存在WinWord.exe进程，但在任务栏上看不到word；如果为1或者True则可以看到word运行界面 WordObject.Documents.Add DocumentType:=wdNewBlankDocument '新建一word文档 '以下为获取Excel表格中的内容，准备把数据传送给Word，可以根据自己的实际需要定制代码，这里只是示例代码 Excel.Application.Sheets(1).Activate '切换当前电子表格的表1为当前激活表 Excel.Application.Sheets(1).UsedRange.Select '选中当前激活表的所有数据 Selection.Copy '将选中的区域进行复制 WordObject.Application.Activate '将后台运行的Word激活为当前窗口 WordObject.ActiveWindow.Selection.Paste '将刚才从Excel中复制进剪贴板中的内容粘贴进word中来 WordObject.Saved = True '将保存文档的Saved属性设置为True，这样后台运行的Word在保存文档时就不会弹出是否保存的对话框了，达到悄无声息的效果 WordObject.ActiveDocument.SaveAs ＂D:\temp\导出数据.doc＂ '调用saveas命令保存文档，根据实际，指定文档的保存路径和名称 WordObject.Application.Quit '退出并关闭程序文档 Set WordObject = Nothing '释放对象End Sub...

word vba的一个问题

展开全部 Word 20071、Word选项→加载项→管理【com加载项】，转到→把“稿纸向导、书法加载项、office special symbol input add-in”三项取消→确定即可。

2、工具→宏->安全性→可靠发行商，将下方的选择框中的钩清空，再将宏安全性改为最高。

3、可能是初次安装Office时共享里的VBA没安装，可以重新再安装一下VBA和信任证书。

4、Word选项→加载项→转到→把里面的5项内容都删除，然后确定→Word选项→信任中心→信任中心设置→选择 “启用所有宏”和“信任对 VBA 工程对象模型的访问”→确定，最后重新启动Word2007即可。

Word 2003打开word，不打开任何文档，进入菜单：工具→选项→安全性→宏安全性→安全级（或：工具→宏→安全性），选择“非常高”；可靠发行商里的“颁发对象”都删除，复选框也都不选，确定。

如果设定后不能关闭word，从进程中关闭再开启就没有了。

...

转载请注明出处51数据库 » vba word delayms