window.clipboardData.setData "Text", "Hello, World!"
Set objWord = CreateObject("Word.Application")
objWord.Visible = false
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.TypeText "Эта строчка будет в буфере"
objSelection.WholeStory
objSelection.copy
objDoc.close wdDoNotSaveChanges
objWord.quit
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 24