Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.04.05;
Скачать: [xml.tar.bz2];

Вниз

Word Отступ слева   Найти похожие ветки 

 
Andrewtitoff ©   (2009-02-16 11:34) [0]

Здравствуйте!, подскажите пожалуйста как в word-е задать отступ слева для отдельного участка текста?


 
Andrewtitoff ©   (2009-02-16 11:57) [1]

Пробовал так:

s:="некоторый текст"+#13#10;
b:=length(s)-и;
e:=1;

WordDocument1.Range(e,b).Select;
WordDocument1.Sections.PageSetup.LeftMargin:=20;

Задает отступ для всего документа точно так же как и

WordDocument1.PageSetup.LeftMargin:=20;


 
Andrewtitoff ©   (2009-02-16 11:58) [2]

b:=length(s)-и; - просто очепятался там: b:=length(s)-1;


 
KilkennyCat ©   (2009-02-16 12:10) [3]

Включите запись макроса. Задайте отступ. Посмотрите код получившегося макроса.
Это не всегда, но довольно-таки часто помогает.


 
Andrewtitoff ©   (2009-02-16 13:19) [4]

Спасибо!
Макрос выглядит так:

Sub Макрос3()
"
" Макрос3 Макрос
" Макрос записан 16.02.2009 Felix
"
   Selection.TypeText Text:="Строка1"
   Selection.TypeParagraph
   Selection.TypeText Text:="Строка2"
   Selection.TypeParagraph
   Selection.TypeText Text:="Строка3"
   Selection.TypeParagraph
   Selection.TypeText Text:="Строка4"
   Selection.TypeParagraph
   Selection.MoveUp Unit:=wdLine, Count:=1
   Selection.MoveUp Unit:=wdLine, Count:=3, Extend:=wdExtend
   With Selection.ParagraphFormat
       .LeftIndent = CentimetersToPoints(10.16)
       .SpaceBeforeAuto = False
       .SpaceAfterAuto = False
   End With
   Selection.MoveDown Unit:=wdLine, Count:=3
End Sub

Аделать оказалось можно так:

WordDocument1.Range(e,b).Select;
WordParagraphFormat1.ConnectTo(WordApplication1.Selection.
 ParagraphFormat);
  WordParagraphFormat1.LeftIndent := 500;


 
Anatoly Podgoretsky ©   (2009-02-16 13:25) [5]

> KilkennyCat  (16.02.2009 12:10:03)  [3]

Не выйдет, левая граница листа задается для всего документа или листа, оно не наботает на уровне отдельного участка текста, более того он же может оказаться внутри строки.


 
Anatoly Podgoretsky ©   (2009-02-16 13:27) [6]

> Andrewtitoff  (16.02.2009 13:19:04)  [4]

Приведеное решение никак не связано с вопросом и с его расшифровкой.
Это совсем другой вопрос.


 
Andrewtitoff ©   (2009-02-16 16:21) [7]

2 Anatoly Podgoretsky
Как это не задается?, Вы что конгда в ворде нечатаете - не можете у разных участков текста задавать разные отступы?..., ну а то что внутри строки - конечно может но это просто нужно учитывать в программе...
Как это не связанно?, это как раз и есть прямое решение ну или если точнеее один из вариантов решения...


 
Anatoly Podgoretsky ©   (2009-02-16 23:12) [8]

Нельзя для отдельных участков текста, это параметр параграфа.


 
AndreyV ©   (2009-02-17 00:16) [9]

> [8] Anatoly Podgoretsky ©   (16.02.09 23:12)
> Нельзя для отдельных участков текста, это параметр параграфа.

Разве не абзаца?


 
Германн ©   (2009-02-17 00:24) [10]


> Разве не абзаца?

Хм. А что "абзац" в переводе МС отличается от "параграфа"?
В русской традиции применения этих терминов между ними есть очень большая разница. А вот в переводах часто вместо первого используется второе.


 
Anatoly Podgoretsky ©   (2009-02-17 07:21) [11]

> AndreyV  (17.02.2009 0:16:09)  [9]

Абзац это синоним параграфа.


 
Дуб ©   (2009-02-17 08:36) [12]


> Anatoly Podgoretsky ©   (17.02.09 07:21) [11]

Абзац синоним привета.

"Полный параграф" - не звучит. Значит не синонимы. :)



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.04.05;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.006 c
15-1234042050
Юрий
2009-02-08 00:27
2009.04.05
С днем рождения ! 8 февраля 2009 воскресенье


2-1234344792
markers
2009-02-11 12:33
2009.04.05
Обращение к VCL объектам из потока


2-1234454755
Maacheba
2009-02-12 19:05
2009.04.05
Поиск "дырки" в записях


2-1234971867
ford
2009-02-18 18:44
2009.04.05
TlistView Has no parent control


1-1209297887
Volk
2008-04-27 16:04
2009.04.05
помогите





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский