WORD VBA问题

总是要有一个打开的时机的，总要有一段打开的代码，不然怎么凭空打开，怎么获取打开的文件名. 如果你想在你的宏运行前打开，你可以把调用与打开的代码放在宏运行的前面. 如：以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)

word vba的一个问题

我是使用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有什么区别？

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，从进程中关闭再开启就没有了。

...

VBA word打开excel 并取数

首先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培训专家

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