Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Подписаться Бесплатный дискуссионный лист Подписчиков 308
←   Октябрь 2004   →
 1
01.10.2004
08:28:06
22:43:52
 2
02.10.2004
15:26:07
20:51:45
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
25.10.2004
00:46:47
04:54:01
26
26.10.2004
20:38:47
21:19:25
27
28
29
29.10.2004
22:19:23
22:24:24
30
31
31.10.2004
09:33:57
21:48:47


За последние 60 дней ни разу не выходила


Сайт листа: http://codeguru.ru
Открыт: 21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес модератора: comp.soft.prog.prog-owner@subscribe.ru

Модератор
3V

Статистика

308 подписчиков
0 за неделю

VBA

Добрый день.

Есть ли здесь специалисты по VBA (интересует прежде всего
применительно к Word'у). Есть несколько вопросов...

Ответить  
"Anton L. Safin"
Tue, 19 Oct 2004 15:40:06 +0900 (#247639)

 

Ответы:

Здравствуйте Anton,

19.10.2004, 10:40:06 AM, Вы писали:

Смелее ;)

Ответить  
Strory
Wed, 20 Oct 2004 00:20:15 +0400 (#247653)

 

А какие вопросы?

Иногда приходится этим заниматься.

Номер выпуска : 3704
Возраст листа : 394 (дней)
Количество подписчиков : 486
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/247897
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Подписан адрес:
Код этой рассылки: comp.soft.prog.prog
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru?subject=comp.soft.prog.prog

http://subscribe.ru/ http://subscribe.ru/feedback

Ответить  
cmmn@l*****.su
Wed, 20 Oct 2004 10:52:54 +0600 (#247897)

 

Добрый день.

Ну, например, такой вопрос:
Есть в Worde (в параметрах страницы) такая опция, которая называется
"Различать колонтитулы первой страницы". Ну, понятно, что через VBA
поставить эту галочку тоже не проблема:

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

Проблема же в другом. Есть, допустим, в коде два таких куска:

1.
CSect = Selection.Information(wdActiveEndSectionNumber)
With ActiveDocument.Sections(CSect).Headers(wdHeaderFooterFirstPage).Shapes.AddShape(msoShapeRectangle,
CentimetersToPoints(2), CentimetersToPoints(0.5), CentimetersToPoints(18.5),
CentimetersToPoints(28.7))
.Fill.Visible = msoFalse
.Line.Weight = CentimetersToPoints(0.05)
.Name = "shp1"
End With

2.
CSect = Selection.Information(wdActiveEndSectionNumber)
With ActiveDocument.Sections(CSect).Headers(wdHeaderFooterPrimary).Shapes.AddShape(msoShapeRectangle,
CentimetersToPoints(2), CentimetersToPoints(0.5), CentimetersToPoints(18.5),
CentimetersToPoints(28.7))
.Fill.Visible = msoFalse
.Line.Weight = CentimetersToPoints(0.05)
.Name = "shp301"
End With

Как я понимаю, первый кусок должен вставлять рамочку в колонтитул
первой страницы, а второй - в колонтитул остальных страниц. На
практике же оба кода рисуют рамочку в основном колонтитуле, игнорируя
первую страницу. Как победить?

Это вопрос номер раз. Вопрос номер два такой: как обратиться из VBA к
пользовательским свойствам документа (CustomPropertis) - в справке об
этом как-то весьма туманно написано.

И до кучи - третий вопрос. Как обновить поля в колонтитулах страниц?
ActiveDocument.Fields.Update обновляет только поля в тексте.

Ответить  
"Anton L. Safin"
Wed, 20 Oct 2004 12:16:22 +0900 (#248147)