Открыть word через vba

Open Word Document

This Word VBA Macro will open a word document from the specified directory:

Sub OpenDoc()
    Dim strFile As String

    strFile = "c:UsersNenadDesktopTest PM.docm"    'change to path of your file
    If Dir(strFile) <> "" Then    'First we check if document exists at all at given location
        Documents.Open strFile
    End If
End Sub

Now you can interact with the newly opened document with the ActiveDocument Object. This code will add some text to the document.

ActiveDocument.Range(0, 0).Text = "Add Some Text"

Open Document to Variable

You can also open a Word document, immediately assigning it to a variable:

Sub OpenDoc()
    Dim strFile As String
    Dim oDoc as Document

    strFile = "c:UsersNenadDesktopTest PM.docm"    'change to path of your file
    If Dir(strFile) <> "" Then    'First we check if document exists at all at given location
        Set oDoc = Documents.Open strFile
    End If
End Sub

Allowing you to interact with the document via the variable oDoc.:

oDoc.Range(0, 0).Text = "Add Some Text"

Generally it’s best practice to open to a variable, giving you the ability to easily reference the document at any point.

Open Word Document From Excel

This VBA procedure will open a Word Document from another MS Office program (ex. Excel):

Sub OpenDocFromExcel()
    Dim wordapp
    Dim strFile As String


    strFile = "c:UsersNenadDesktopTest PM.docm"
    Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open strFile
    wordapp.Visible = True
End Sub

Documents.Open Method (Word)

Opens the specified document and adds it to the Documents collection. Returns a Document object.

Syntax

expression . Open( FileName , ConfirmConversions , ReadOnly , AddToRecentFiles , PasswordDocument , PasswordTemplate , Revert , WritePasswordDocument , WritePasswordTemplate , Format , Encoding , Visible , OpenConflictDocument , OpenAndRepair , DocumentDirection , NoEncodingDialog )

expression Required. A variable that represents a Documents collection.

Parameters

Return Value

Document

Security

Avoid using hard-coded passwords in your applications. If a password is required in a procedure, request the password from the user, store it in a variable, and then use the variable in your code. For recommended best practices on how to do this, see Security Notes for Microsoft Office Solution Developers.

Example

This example opens MyDoc.doc as a read-only document.

Sub OpenDoc() 
 Documents.Open FileName:="C:MyFilesMyDoc.doc", ReadOnly:=True 
End Sub

This example opens Test.wp using the WordPerfect 6.x file converter.

Sub OpenDoc2() 
 Dim fmt As Variant 
 fmt = Application.FileConverters("WordPerfect6x").OpenFormat 
 Documents.Open FileName:="C:MyFilesTest.wp", Format:=fmt 
End Sub

See also

Concepts

Documents Collection Object