how do you:
1) copy text from a range in an Excel Document.
2) Open a Word Document.
3) inserts the text into a specific part of the word document.
regards
Kojo
Edit: here is the approach
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:FilesDailyStrategy.doc")
With wrdDoc
If wrdDoc.Bookmarks.Exists("MarketCommentry")
Then wrdDoc.Bookmarks("MarketCommentry").Range.Text = shortString
wrdDoc.SaveAs "c:empest.doc"
End If
' close the document
Set wrdDoc = Nothing
Set wrdApp = Nothing
End With
See Question&Answers more detail:
os 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…