Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как программно вставить в документ WORD "линию границ"? / 3 сообщений из 3, страница 1 из 1
31.01.2008, 12:41:11
    #35100119
Gorrion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно вставить в документ WORD "линию границ"?
В документе WORD, если ввести много нижних подчеркиваний, то WORD заменяет их на так называемую "линию границ"? Обыскал много форумов, но так и не нашел, как ее вставить в документ программно! Запись макросов не помогает!
Подскажите кто знает, пожалуйста!
...
Рейтинг: 0 / 0
31.01.2008, 13:24:22
    #35100343
LETME
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно вставить в документ WORD "линию границ"?
А попробуйте покапаться примерно с таким кодом:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim docActive As Document
Dim rngTemp As Range

Set docActive = ActiveDocument
Set rngTemp = ActiveDocument.Range(Start:= 0 , End:= 1 )

With rngTemp.Borders
    .InsideLineStyle = wdLineStyleSingle
    .InsideLineWidth = wdLineWidth225pt
End With

Получается сделать примерно то, что Вы желаете.
Т.е. суть - обозначить рэндж, где нужна линия и превратить бордер в то, что нужно.
...
Рейтинг: 0 / 0
31.01.2008, 13:42:13
    #35100419
Gorrion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно вставить в документ WORD "линию границ"?
что-то у меня не выходит(.
Я не стал заморачиваться и сделал так:

Object r = Type.Missing;
sel.Paragraphs.Format.LineSpacing = 6;
sel.Paragraphs[1].Format.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphLeft;
sel.InlineShapes.AddHorizontalLineStandard(ref TM);
ThisDocument.InlineShapes[1].Fill.Visible = Microsoft.Office.Core.MsoTriState.msoTrue;
ThisDocument.InlineShapes[1].Fill.Solid();
ThisDocument.InlineShapes[1].Fill.ForeColor.ObjectThemeColor = Microsoft.Office.Interop.Word.WdThemeColorIndex.wdThemeColorText1;
ThisDocument.InlineShapes[1].HorizontalLineFormat.PercentWidth = 95;
ThisDocument.InlineShapes[1].Height = Convert.ToSingle(1.5);
ThisDocument.InlineShapes[1].HorizontalLineFormat.NoShade = true;
ThisDocument.InlineShapes[1].HorizontalLineFormat.Alignment = Microsoft.Office.Interop.Word.WdHorizontalLineAlignment.wdHorizontalLineAlignLeft;
sel.Paragraphs.Format.LineSpacing = 11;
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как программно вставить в документ WORD "линию границ"? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]