| Вопрос: как скопировать из listBox в word | Добавлено: 01.05.06 15:28 |
Автор вопроса:  лена
|
| Поскажите как можно как скопировать из listBox в word информацию |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #1 | Добавлено: 02.05.06 12:12 |
| Если в ручную, то текст из listBox можно скопировать только специальной программой (например Kleptomania). | ||
|
Номер ответа: 2 Автор ответа: SRVICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #2 | Добавлено: 03.05.06 10:14 |
|
Dim WordApp As Word.Application ' экземпляр приложения
Dim DocWord As Word.Document' экземпляр документа Private Sub Комманда1_Click() 'создаём новый экземпляр Word-a Set WordApp = New Word.Application 'определяем видимость Word-a по True - видимый, 'по False - не видимый (работает только ядро) WordApp.Visible = True 'создаём новый документ в Word-e Set DocWord = WordApp.Documents.Add '// если нужно открыть имеющийся документ, то пишем такой код 'Set DocWord = WordApp.Documents.Open("C:\DDD.doc" 
'активируем его DocWord.Activate End Sub Private Sub cmdExit_Click() DocWord.Close True 'закрываем Word (без запроса на сохранение) WordApp.Quit True 'уничтожаем обьект - документ Set DocWord = Nothing 'уничтожаем обьект - Word Set WordApp = Nothing End sub Private Sub cmdInsertText_Click() For N = 0 To List1.ListCount - 1 'печатаем какой то текст (при этом он выделен) DocWord.Application.Selection.InsertAfter List1.List(N) DocWord.Application.Selection.InsertAfter " Tahoma, полужирный)" 'делаем выделенный текст полужирным "Font.Bold=True" DocWord.Application.Selection.Font.Bold = True 'делаем выделенный текст синим DocWord.Application.Selection.Font.Color = wdColorBlue 'делаем выделенный текст размером 12 пунктов DocWord.Application.Selection.Font.Size = 12 'делаем текст шрифтом "Tahoma" DocWord.Application.Selection.Font.Name = "Tahoma" 'снимаем выделение с текста DocWord.Application.Selection.EndOf Данная строка кода добавляет параграф ниже существующего. 'начинаем с новой строки, то есть новый параграф (при этом параметры 'текста как в предыдущей строке) DocWord.Application.Selection.InsertParagraphAfter Печатаем новый параграф. With DocWord.Application.Selection 'печатаем какой то текст (при этом он выделен) 'и используем Tab для отступа .InsertAfter vbTab & "Вторая строка текста с отступом (обычный" .InsertAfter ", черный, 14 пт, Arial)" 'текст напечатался с параметрами текста в 'предыдущем параграфе, поэтому 'вводим новые параметры 'делаем выделенный текст простым "Font.Bold= False" .Font.Bold = False 'делаем выделенный текст черным .Font.Color = wdColorBlack 'делаем выделенный текст размером 14 пунктов .Font.Size = 14 'делаем текст шрифтом "Arial" .Font.Name = "Arial" 'снимаем выделение с текста .EndOf 'начинаем с новой строки, то есть новый параграф '(при этом параметры текста как в предыдущей строке) .InsertParagraphAfter 'делаем строку промежуток .InsertParagraphAfter End With End Sub Типа так, в общем если разберёшься то всё должно работать 
|
||
|
Номер ответа: 3 Автор ответа: SRVICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #3 | Добавлено: 03.05.06 10:17 |
| забыл, ещё надо в Референсах добавить ссылку на ВОРД и в процедуре cmdInsertText закончить цикл "Next N" | ||
Страница: 1 |