Метод VBA для отступа "Special Hanging" ... расстояние между точкой маркера и текстом - PullRequest
Новая
       50

Метод VBA для отступа "Special Hanging" ... расстояние между точкой маркера и текстом

0 голосов
/ 21 мая 2019

По сути, я пытаюсь найти метод VBA, который соответствует приведенному ниже, поскольку он, кажется, контролирует величину расстояния между точкой маркера и соответствующим текстом (enter image description here):

enter image description here

При поиске в "Object" в браузере объектов они появляются, но, похоже, не выполняют то, что мне нужно:

enter image description here

TabHangingIndent просто принимает целое число в качестве параметра, которое представляет собой сколько отступов после точки с маркером, а не фактическое расстояние при использовании по умолчанию TabHangingIndent(0).

HangingPunctuation ... не уверен, что это делает честно, но это глупость из того, что я могу сказать в документации. Ищите что-то, что, вероятно, понадобится InchesToPoints(x).

Есть предложения по правильному классу и методу для использования?

1 Ответ

0 голосов
/ 21 мая 2019

Закончилось просто записью макроса, чтобы увидеть, что было изменено.Не самая интуитивная вещь: 

With .Cell(r, c)
    .Range.Shading.BackgroundPatternColor = RGB(255, 255, 153)
    .Range.ListFormat.ApplyBulletDefault
    .Range.ParagraphFormat.FirstLineIndent = InchesToPoints(-0.1) 'was this line here
    .Range.ParagraphFormat.LeftIndent = InchesToPoints(0.1)
End With
...