Проверить размер шрифта в каждом параграфе в первой странице документа - Microsoft Office Word

Felian · 13.11.2011, 15:57

Здравствуйте.
Не понимаю, как проверить размер шрифта в каждом параграфе в первой странице документа. Подскажите пожалуйста. Нужно это что бы обнаружить титульный лист, так как он может быть первой страницей или отдельным файлом. Можно так же проверять не размер шрифта, а выравнивание. Пишу проверяльщик форматирования.

Код:

Function HasTitlePage()
    Dim Page1Range As Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=1
    Set Page1Range = Selection.Range
    Page1Range.End = ThisDocument.Bookmarks("\Page").Range.End
    Page1Range.Select
    For Each par In Page1Range.Paragraphs
        ' и вот тут проблема - нельзя обратиться к свойствам par через точку
    Next par
    'HasTitlePage = True
End Function

Sasha_Smirnov · 13.11.2011, 16:29

Привет. Воспроизодить ваш проект сейчас не готов: через 20 минут гран-при F1 в Абу-Даби.

Но подкину идейку: на титульном листе обычно нет колонтитула (с номером страницы).

viter.alex · 14.11.2011, 03:41

Цитата:

Сообщение от Felian

' и вот тут проблема - нельзя обратиться к свойствам par через точку

Не можешь обратиться, потому что совершаешь самую распространённую ошибку: не объявляешь все переменные, а в начале модуля у тебя не стоит Option Explicit, требующий обязательного объявления всех переменных.
Вообще-то, обратиться ты можешь, если помнишь свойства объекта Paragraph…
Итак, добавь до цикла объявление переменной par As Paragraph и у тебя появятся свойства через точку.

Felian · 14.11.2011, 06:21

Спасибо, viter.alex. Вы правы.

Я недавно стал изучать VBA в виду того что нагрузили курсовым проектом. Вообще, в "нормальных" языках хорошо разбираюсь. Не привык к местным тонкостям.

Ципихович Эндрю · 14.11.2011, 17:56

>Вообще, в "нормальных" языках хорошо разбираюсь
То есть это не нормальный язык, а там где равно пишут ==, не равно пишут !=, это какие языки, нормальные?
помоему в школе давно сказали равно =, не равно <>
Будут возраженья?

Sasha_Smirnov · 15.11.2011, 00:18

Ага, и вот первое:

Ципихович Эндрю · 15.11.2011, 05:39

улыбнуло, ну уж лучше так чем !=
не ну тут всё интуитивно понятно, но зачем равно пишут как ==
Ещё язык придумают, например ===

Felian · 15.11.2011, 14:24

Я имел в виду языки системного, а не прикладного, программирования. В Паскале тоже = и <>.

13.11.2011, 15:57	#1
Felian Пользователь Регистрация: 13.11.2011 Сообщений: 24	Проверить размер шрифта в каждом параграфе в первой странице документа Здравствуйте. Не понимаю, как проверить размер шрифта в каждом параграфе в первой странице документа. Подскажите пожалуйста. Нужно это что бы обнаружить титульный лист, так как он может быть первой страницей или отдельным файлом. Можно так же проверять не размер шрифта, а выравнивание. Пишу проверяльщик форматирования. Код: `Function HasTitlePage() Dim Page1Range As Range Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=1 Set Page1Range = Selection.Range Page1Range.End = ThisDocument.Bookmarks("\Page").Range.End Page1Range.Select For Each par In Page1Range.Paragraphs ' и вот тут проблема - нельзя обратиться к свойствам par через точку Next par 'HasTitlePage = True End Function`

13.11.2011, 16:29	#2
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	Привет. Воспроизодить ваш проект сейчас не готов: через 20 минут гран-при F1 в Абу-Даби. Но подкину идейку: на титульном листе обычно нет колонтитула (с номером страницы). Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html

14.11.2011, 06:21	#4
Felian Пользователь Регистрация: 13.11.2011 Сообщений: 24	Спасибо, viter.alex. Вы правы. Я недавно стал изучать VBA в виду того что нагрузили курсовым проектом. Вообще, в "нормальных" языках хорошо разбираюсь. Не привык к местным тонкостям. Последний раз редактировалось Felian; 14.11.2011 в 08:40.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Что разместить на первой странице сайта?	Smitt&Wesson	Свободное общение	123	04.09.2013 18:46
Как не выводить колонтитул на первой странице отчета	Alaksi	Microsoft Office Access	2	10.02.2012 16:45
Спрятать данные на первой странице отчета	Alaksi	Microsoft Office Access	6	11.04.2011 11:59
Размер Image изменяется на размер картинки, а сама она рисуется на области первой картинки	RPGer	Мультимедиа в Delphi	6	20.10.2008 19:54
Размер шрифта	Gorychev	HTML и CSS	6	25.05.2008 11:42

14.11.2011, 17:56	#5
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,069	>Вообще, в "нормальных" языках хорошо разбираюсь То есть это не нормальный язык, а там где равно пишут ==, не равно пишут !=, это какие языки, нормальные? помоему в школе давно сказали равно =, не равно <> Будут возраженья?

15.11.2011, 05:39	#7
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,069	улыбнуло, ну уж лучше так чем != не ну тут всё интуитивно понятно, но зачем равно пишут как == Ещё язык придумают, например ===

15.11.2011, 14:24	#8
Felian Пользователь Регистрация: 13.11.2011 Сообщений: 24	Я имел в виду языки системного, а не прикладного, программирования. В Паскале тоже = и <>.