VBA и Word

[foxik]

Здравствуйте, я "чайник", но очень хочкется знать, литературы по макросам в Worde очень мало, помогите если можете:
Выделяется кусок строки , например "123456", копируется командой Selection.Copy - как то что она скопировала присвоить переменной, чтобы при выводе MsgBox () вывелось "123456"

[pva]

dim text1 = Selection.Text 'надо сделать пока ещё текст отмечен
'теперь засовывкшь этот текст куда хочешь

[Selena57]

Здравствуйте! Как чайник чайника прошу поделиться накопленным опытом: как присвоить содержимое части текста доумента Word, например, одного предложения строковой переиенной?

[pva]

Берём текст предложения №2:

dim text1 = ActiveDocument.Sentences(2).Range.Text

[Selena57]

Cпасибо! Команда проходит с АКТИВНЫМ документом даже без dim.
Проблема с выполнением той же процедуры с документом, открытым как object в форме Excel.
Dim WA As Object
Set WA = CreateObject("word.application")
WA.Documents.Open "D:\cont.doc"
a$ = WA.Documents.Sentences(1).Text

Проходит сообщение
"Объект не поддерживает это свойство или метод"

[pva]

тэг code помогает красиво раскрасить код :)


a$ = WA.Documents(1).Sentences(1).Range.Text