
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
23.04.2008, 21:50
|
|||
|---|---|---|---|
|
|||
Создание Word-документа с помощью VBA-скрипта. |
|||
|
#18+
Собственно проблема вот в чём. У меня есть скрипт,который берёт некую информацию из источника и преобразует в ворд-документ(спецификацию): Вот часть скрипта: Word.Application.Documents.Add() K = 1 For I = 0 To QryRes.RecordCount - 1 Word.ActiveDocument.Content.InsertAfter QryRes.GetRecord(I).ValueAsString("CHAPTER_ID") & Chr(9) & QryRes.GetRecord(I).ValueAsString("CHAPTER_NAME") Word.ActiveDocument.Content.InsertParagraphAfter //Здесь идёт выведение заголовков. If QryRes.GetRecord(I).ValueAsString("FULL_ANNOT") <> "" Then Word.ActiveDocument.Content.InsertAfter(QryRes.GetRecord(I).ValueAsString("FULL_ANNOT")) Word.ActiveDocument.Content.InsertParagraphAfter() End If //Здесь идёт выведение аннотации,если есть таковая(сразу после соответствующего заголовка). K = K + 1 Next I Как мне, допустим, сделать так, чтобы заголовки(только заголовки,и ничто больше!!!) были жирным шрифтом? (если я добавляю в любое место скрипта строчку: Word.Selection.Font.Bold = True или Word.ActiveDocument.Content.Font.Bold = True то у меня жирный шрифт присваивается всему документу-и заголовкам, и аннотациям.) Оч прошу,помогите решить проблему! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&mobile=1&tid=2162372]: |
0ms |
get settings: |
14ms |
get forum list: |
21ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
78ms |
get topic data: |
13ms |
get forum data: |
4ms |
get page messages: |
30ms |
get tp. blocked users: |
2ms |
| others: | 248ms |
| total: | 418ms |

| 0 / 0 |
