Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.04.05;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.007 c
15-1233814999
Vlad
2009-02-05 09:23
2009.04.05
Delphi


2-1234510283
нуб
2009-02-13 10:31
2009.04.05
Чекбокс в DBGrid


2-1234697378
cer
2009-02-15 14:29
2009.04.05
Передача данных в шаблон Эксель


15-1232570914
Cyrax
2009-01-21 23:48
2009.04.05
Чем отличаются Nokia N95, Nokia N95 1 year navigation...


2-1234453501
Oleg_teacher
2009-02-12 18:45
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский