В ворде из окон параметры страницы и абзац, нужно извлечь данные

@balibuli · Регистрация: 19.09.2015

Студворк — интернет-сервис помощи студентам

Помогите! В ворде из окон параметры страницы и абзац, нужно извлечь данные в БД. С окном шрифт все получается, а с этими нет, поля выдает не такие как выставляются.

@Казанский · 25.10.2015, 23:32

balibuli, включите в Ворде запись макроса, вызовите окно Абзац, закройте, остановите запись и посмотрите код. Увидите примерно следующее (Word 2007) - это более-менее полный список свойств формата абзаца.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Макрос1()
'
' Макрос1 Макрос
'
'
  With Selection.ParagraphFormat
    .LeftIndent = MillimetersToPoints(0)
    .RightIndent = MillimetersToPoints(-3.3)
    .SpaceBefore = 0
    .SpaceBeforeAuto = False
    .SpaceAfter = 0
    .SpaceAfterAuto = False
    .LineSpacingRule = wdLineSpace1pt5
    .Alignment = wdAlignParagraphLeft
    .WidowControl = True
    .KeepWithNext = False
    .KeepTogether = False
    .PageBreakBefore = False
    .NoLineNumber = False
    .Hyphenation = True
    .FirstLineIndent = MillimetersToPoints(10)
    .OutlineLevel = wdOutlineLevelBodyText
    .CharacterUnitLeftIndent = 0
    .CharacterUnitRightIndent = 0
    .CharacterUnitFirstLineIndent = 0
    .LineUnitBefore = 0
    .LineUnitAfter = 0
    .MirrorIndents = False
    .TextboxTightWrap = wdTightNone
  End With
End Sub

Чтобы получить справку по какому-либо свойству, поставьте курсор в его имя и нажмите F1.
Чтобы не связываться с Selection, можно выбрать абзац по номеру, например

Visual Basic
1
2
3
4
  With myDocument.Paragraphs(3).Format 'не ParagraphFormat!
    x = .LeftIndent
    y = .RightIndent
'и т.д.

Аналогично запишите в макрос вызов окна Параметры страницы.

@balibuli · 26.10.2015, 20:11 **[ТС]**

Сообщение от Казанский

Аналогично запишите в макрос вызов окна Параметры страницы.

Если я в окне Абзац выставляю LeftIndent = 1см, вывожу это к примеру в текстбокс, выдает 28,35. Почему?
textbox1.text= CentimetrsToPoints(selection.paragraphfo rmat.leftindent)
Вот у меня в чем вопрос.

@Казанский · 26.10.2015, 20:57

balibuli, свойство LeftIndent устанавливается и возвращается в поинтах. Поэтому если Вы в диалоге написали "1 см", это эквивалентно

Visual Basic
1
ActiveDocument.Paragraphs.LeftIndent = CentimetersToPoints(1)

Если написали "10 мм", это эквивалентно

Visual Basic
1
ActiveDocument.Paragraphs.LeftIndent = MillimetersToPoints(10)

, а результат будет одинаков. И вернуть величину свойства Вы можете в разных единицах - поинтах, см, мм, дюймах:

Code
1
2
3
4
5
6
7
8
?ActiveDocument.Paragraphs.LeftIndent
 28,35 
?pointstocentimeters(ActiveDocument.Paragraphs.LeftIndent)
 1,000125 
?pointstomillimeters(ActiveDocument.Paragraphs.LeftIndent)
 10,00125 
?pointstoinches(ActiveDocument.Paragraphs.LeftIndent)
 0,39375

Функции CentimetersToPoints и т.п. не делают ничего сверхестественного, просто умножают аргумент на соответствующий коэффициент.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@balibuli 0 / 0 / 0 Регистрация: 19.09.2015 Сообщений: 19

	В ворде из окон параметры страницы и абзац, нужно извлечь данные 25.10.2015, 22:00. Показов 800. Ответов 3 Метки нет (Все метки) Помогите! В ворде из окон параметры страницы и абзац, нужно извлечь данные в БД. С окном шрифт все получается, а с этими нет, поля выдает не такие как выставляются. 0