Макрос в word открываем файл

Sub Zapusk_Word_iz_Excel_01()
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.Documents.Add
            objWrdApp.Visible = True
        End If
    Set objWrdDoc = objWrdApp.Documents.Add
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub

Sub Zapusk_Word_iz_Excel_02()
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
            objWrdApp.Visible = True
        End If
    Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub

Sub Peredacha_Dannyh_iz_Excel_v_Word()
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
            objWrdApp.Visible = False
        End If
    Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
    Range("A1:E2").Copy
    objWrdDoc.Range(0).Paste
    objWrdDoc.Close True
    'True - с сохранением, False - без сохранения
    objWrdApp.Quit
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub

Другие материалы по теме:

Millions of small businesses all around the world use Microsoft Word and Excel daily to create correspondence or crunch numbers. If you are like many small business owners, there are probably plenty of times when you have both Excel and Word open at the same time. In fact, copying and pasting data from an Excel spreadsheet into a Word sales letter is a task many business users perform often. While minimizing Excel to open an existing document in Word — or to create a new one — is relatively quick and simple, using Visual Basic for Applications, or VBA, you can program macros or command buttons in Excel that make opening and working with Microsoft Word even faster and more productive.

Enable the Developer Tab

1. Launch Microsoft Excel on your computer. Click the “File” tab on the ribbon bar, then the “Options” link.

2. Click the “Customize Ribbon” link on the left side of the Excel Options window. Locate the “Developer” value in the right pane under the “Customize the Ribbon” header. Click the check box next to the “Developer” value label.

3. Click the “OK” button to save the option changes and return to the main Excel program window. After you return to the main Excel window, the Developer tab appears on the ribbon bar.

Opening an Existing Word Document from Excel

1. Click the “Developer” tab on the Excel ribbon bar. Click the “Insert” icon on the Developer tab. In the drop-down box, click and select the “Button” control in the Form Controls section.

2. Click the cell in the Excel spreadsheet where you want the command button control to appear. The Assign Macro window opens automatically.

3. Type “OpenWordFile” or something similar in the Macro Name field. Be sure not use spaces in the name or the macro won’t save properly. Click the “New Button” in the Assign Macro window. The Microsoft Visual Basic for Applications editor window opens and appears on the screen.

4. Highlight all of the text in the Book1 – Module1 (Code) window. Press the “Backspace” key to delete all of the text. Copy and paste the following code into the window:

   Sub Open_Word_Document() ‘Open an existing Word Document from Excel Dim objWord As Object Set objWord = CreateObject(«Word.Application») objWord.Visible = True ‘Change the directory path and file name to the location ‘of the document you want to open from Excel objWord.Documents.Open «C:Documentsmyfile.doc» End Sub

5. Change the “C:Documentsmyfile.doc” value to the complete file path of the existing Word document file you want to open with the command button in Excel. For instance, if the documents resides in the “C:My Document” folder and has the filename “sales letter.docx,” change the value to “C:My Documentssales letter.docx.”

6. Click the “Save” icon on the Visual Basic editor toolbar. A new Excel “Save As” window appears on the screen.

7. Enter a new file name for the workbook file in the “File Name” field, then click “Save.” Alternatively, leave the current file name in place, then click the “Save” button.

8. Click the “Command Button” in the Excel spreadsheet. Microsoft Word opens automatically and displays the file from the path you entered in the Visual Basic editor code window.

Create New Word Document from Excel

1. Launch Microsoft Excel and click the Developer tab.

2. Click the “Insert” icon on the Developer tab and select the Button control. Select the cell on your spreadsheet where you want to place the command button.

3. Create a new macro name called “NewWordDocument” or something similar. Click the “New” button in the Assign Macro window.

4. Copy and paste the following code into the Visual Basic editor window:

   Sub NewWordDocument() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim i As Integer Set wrdApp = CreateObject(«Word.Application») wrdApp.Visible = True Set wrdDoc = wrdApp.Documents.Add ‘ or ‘Set wrdDoc = wrdApp.Documents.Open(«C:FoldernameFilename.doc») ‘ sample word operations With wrdDoc For i = 1 To 100 .Content.InsertAfter «Here is a sample test line #» & i .Content.InsertParagraphAfter Next i If Dir(«C:DocumentsMyNewWordDoc.doc») <> «» Then Kill «C:DocumentsMyNewWordDoc.doc» End If .SaveAs («C:DocumentsMyNewWordDoc.doc») .Close ‘ close the document End With wrdApp.Quit ‘ close the Word application Set wrdDoc = Nothing Set wrdApp = Nothing End Sub

5. Save the new macro code in the Visual Basic editor. Save the Excel workbook file when prompted to do so. Close the editor window to return to Excel.

6. Click the command button you created on the spreadsheet. Microsoft Word opens and displays a new blank document.