Копирование текста из диапазона в Excel в документ Word

Question

как вам:

1) копирование текста из диапазона в документе Excel.
2) Откройте документ Word.
3) вставляет текст в определенную часть документа слова.

рассматривает

Коджо

Edit: здесь подход

Dim wrdApp As Word.Application 
Dim wrdDoc As Word.Document 
Dim j As Integer 
Set wrdApp = CreateObject("Word.Application") 
wrdApp.Visible = True 
Set wrdDoc = wrdApp.Documents.Open("C:\Files\DailyStrategy.doc") 

With wrdDoc 
    If wrdDoc.Bookmarks.Exists("MarketCommentry") 
     Then wrdDoc.Bookmarks("MarketCommentry").Range.Text = shortString 
     wrdDoc.SaveAs "c:\temp\test.doc" 
    End If 
    ' close the document 
    Set wrdDoc = Nothing 
    Set wrdApp = Nothing 
End With 

Answer 1

Вот некоторые статьи, которые могут помочь:

Control Word from Excel using VBA in Microsoft Excel

Creating a Word Document with Excel VBA

Create formatted Word table from Excel data range

Answer 2

Вот код, я написал для замены закладки текст Слова

Sub FillBookmark(ByRef wdDoc As Object, _ 
    ByVal vValue As Variant, _ 
    ByVal sBmName As String, _ 
    Optional sFormat As String) 

    Dim wdRng As Object 

    'store the bookmarks range 
    Set wdRng = wdDoc.Bookmarks(sBmName).Range 

    'if the optional format wasn’t supplied 
    If Len(sFormat) = 0 Then 
     'replace the bookmark text 
     wdRng.Text = vValue 
    Else 
     'replace the bookmark text with formatted text 
     wdRng.Text = Format(vValue, sFormat) 
    End If 

    're-add the bookmark because the above destroyed it 
    wdRng.Bookmarks.Add sBmName, wdRng 

End Sub 

Подробнее здесь

http://www.dailydoseofexcel.com/archives/2004/08/13/automating-word/