vba怎样打开word
① 用vba打开word文档
1 遍历已经打开的word对象的文件名，如果跟你要打开的一致，那就是已经打开了。2 打开新文件，监控打开新文件时word的提示，如果有文件已打开的提示，那也是已经打开了。
② excel中如何通过VBA打开word文件和ppt文件
一、打开word文件代码：Set wo = CreateObject("Word.Application")
wo.Documents.Open ThisWorkbook.Path & "\流程.doc"
wo.Visible = True
二、打开ppt文件代码：方法1：
Set wo = CreateObject("Powerpoint.Application")
wo.Visible = True
wo.Presentations.Open ThisWorkbook.Path & filename方法2：Sub dd()Dim filepath$, filename$
filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)
Shell "POWERPNT.EXE " & filepathEnd Sub附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。
PrivateSub CommandButton1_Click()
Dim wo AsObject Dim app AsObject
' 创建PowerPoint应用实例
Set app = CreateObject("Powerpoint.Application")
' 使PowerPoint可见
app.Visible = True ' 打开PPS文件
Set wo = app.Presentations.Open(ThisWorkbook.Path & "\a.pps")
' 当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误
OnErrorGoTo errHandle
' PPS演示时全屏
③ word 如何进入VBA
第一步：打开word，如果功能区有开发工具选项，跳到步骤四,如果没有，继续
第二步：打开【文件】选项，点选【选项】
第三步：选择“自定义功能区”中点选“开发工具”，然后点击确定
第四步：点击菜单栏的【开发工具】，点击“Visual
Basic”选项，完成。
④ 如何在EXECL中用VBa打开Word，并输出数据到WORD中，保存，关闭
1、首先打开EXECL表格，然后在工作表中，点击菜单栏【开发工具】。
⑤ 用vba打开word模板并修改后保存
1、打开Word文件的 VBA编辑器，快捷键 Alt+F11，右击【ThisDocument】-》 【插入模块】;
⑥ 怎样用VBA打开WORD文档
Fx="D:\文件.doc"
Set Wd = CreateObject("word.application")
Wd.Documents.Open mPath & "\" & Fx
⑦ 如何用vba代码打开文件夹内的word文档
Sub Read_Word()
Dim worDoc As object
Dim wordappl As object
Dim mydoc As String
Dim myappl As String
mydoc = thisworkbook.path & "\" & "文件名.doc"
'本文档目录下的doc文件，这里可以直接改成路径＋文件名的形式
Set wordappl = CreateObject("Word.application")'设置wordappl对象
Set worDoc = wordappl.Documents.Open(mydoc)
'打开word文档，mydoc变量指定路径和文件名
worDoc.Activate'激活打开的文档
wordappl.Selection.WholeStory '全选文档
wordappl.Selection.Copy'复制选择内容到剪贴板
worDoc.Application.Quit'关闭word文档
Set WordApp = Nothing'释放对象变量的内存
Workbooks(1).Sheets(2).Activate '激活excel第一个工作簿的第二个工作表
ActiveSheet.UsedRange.Clear'把当前工作表清空，如果有重要数据，这条删除
Cells(1, 1).Select'选择A1单元格
ActiveSheet.Paste'粘贴复制的内容
wordappl.quit
set wordappl =nothing
End Sub
⑧ 如何在Excel VBA 中读写word文档 步骤
1.库的配置
在默认情况下，新创建的excel vba中不支持定义word对象。
所以需要先引入word库，操作步骤如下：
1.1 打开excel vba 界面
1.2 选中其中的一个Mole
1.3 选择菜单， Tools --> References
在打开的对话框中选择类似 "Microsoft Word 14.0 Object Library".
1.4 点击OK保存配置。
2. 打开文档
Set wordApplication = CreateObject("Word.Application")
wordApplication.Visible = False
Dim hasOpenDoc As Boolean
hasOpenDoc = IsOpen(filePath) ' is a self-defined function to check file is opend
If hasOpenDoc = True then
Set wordDoc = GetObject(filePath)
End if
If hasOpenDoc = False Then
Set wordDoc = wordApplication.Documents.Open(filePath)
End if
wordDoc.Active
With wordApplication
Dim aParagraph As Word.Paragraph
For Each aParagraph In wordDoc.Paragraphs
' do some thing to every paragraph.
Next aParagraph
End with
wordDoc.Close
Set wordDoc = nothing
' 如下这段代码引用某位牛人的，非常感谢他。由于路径丢失，不能给出链接, 抱歉
' 如下的找寻方式，能够正确的找出文件是否被打开
Function IsOpen(fileName As String) As Boolean
IsOpen = False
Dim findFile As Integer
findFile = FreeFile()
On Error GoTo ErrOpen
Open fileName For Binary Lock Read Write As findFile
Close findFile
Exit Function
ErrOpen:
If Err.Number <> 70 Then
Msg = "Error # " & Str(Err.Number) & "was generated by " & Err.Source & Chr(13) & Err.Description
MsgBox Msg, "Error", Err.HelpFile, Err.HelpContext
Else
IsOpen = True
End If
End Function