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

Question

Как поживаете:

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

1009 * привет *

Коджо

Редактировать: вот подход

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

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

Контрольное слово из Excel с использованием VBA в Microsoft Excel

Создание документа Word в Excel VBA

Создание отформатированной таблицы Word из диапазона данных Excel

Answer 2

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

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/