VBA

pva · Отправлено: **23:29, 28-10-2008** | #2

Код:

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

Selena57 · Отправлено: **20:46, 24-03-2009** | #3

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

pva · Отправлено: **18:48, 25-03-2009** | #4

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

Код:

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

Selena57 · Отправлено: **14:42, 28-03-2009** | #5

Cпасибо! Команда проходит с АКТИВНЫМ документом даже без dim.
Проблема с выполнением той же процедуры с документом, открытым как object в форме Excel.

PHP код:


Dim WA As Object

Set WA = CreateObject("word.application")

WA.Documents.Open "D:\cont.doc"

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

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

pva · Отправлено: **20:37, 28-03-2009** | #6

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

Код:

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