powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание Word-документа с помощью VBA-скрипта.
1 сообщений из 1, страница 1 из 1
Создание Word-документа с помощью VBA-скрипта.
    #35275668
Vengal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Собственно проблема вот в чём. У меня есть скрипт,который берёт некую информацию из источника и преобразует в ворд-документ(спецификацию):

Вот часть скрипта:

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
то у меня жирный шрифт присваивается всему документу-и заголовкам, и аннотациям.)

Оч прошу,помогите решить проблему!
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание Word-документа с помощью VBA-скрипта.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]