|
|
|
Создание 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 то у меня жирный шрифт присваивается всему документу-и заголовкам, и аннотациям.) Оч прошу,помогите решить проблему! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.04.2008, 21:50 |
|
||
|
|

start [/forum/topic.php?fid=60&gotonew=1&tid=2162372]: |
0ms |
get settings: |
7ms |
get forum list: |
10ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
58ms |
get topic data: |
8ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
20ms |
get tp. blocked users: |
1ms |
| others: | 240ms |
| total: | 357ms |

| 0 / 0 |
