Developing.ru

Код: Выделить всё

Sub CopyFromExcel2()
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim fname As String
    Application.Columns("A:A").SpecialCells(xlCellTypeConstants, 3).Copy
    fname = Application.GetOpenFilename(" Word  Documents (*.doc), *.doc") 'выбираем документ
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    wdApp.Documents.Open Filename:=fname, ReadOnly:=False
    wdApp.Documents(fname).Activate
    Set wdDoc = wdApp.ActiveDocument
    Call wdDoc.Range.PasteAndFormat(wdFormatPlainText) 'вставляем в Word как текст
'    wdApp.ActiveDocument.SaveAs Filename:=fname 'сохраняем документ Word
'    wdApp.Quit 'закрываем документ Word
    Set wdDoc = Nothing
    Set wdApp = Nothing
    Application.CutCopyMode = False
End Sub

Код: Выделить всё

Sub CopyFromExcel3()
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim fname As String
    ph = ActiveWorkbook.Path
    Application.Columns("A:A").SpecialCells(xlCellTypeConstants, 3).Copy
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    wdApp.Documents.Open Filename:=ph & "\" & "Шаблон.doc", ReadOnly:=False
    wdApp.Documents("Шаблон.doc").Activate
    Set wdDoc = wdApp.ActiveDocument
    Call wdDoc.Range.PasteAndFormat(wdFormatPlainText) 'вставляем в Word как текст
'    wdApp.ActiveDocument.SaveAs Filename:=fname 'сохраняем документ Word
'    wdApp.Quit 'закрываем документ Word
    Set wdDoc = Nothing
    Set wdApp = Nothing
    Application.CutCopyMode = False
End Sub