Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.10.2011, 17:50   #1
Molotoklk
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 36
По умолчанию Как поставить точки до конца строки?

Добрый день подскажите пожалуйста, как сделать так, чтоб от конца текста до конца строки проставлялись точки, как например в содержании книги?
Molotoklk вне форума Ответить с цитированием
Старый 03.10.2011, 18:04   #2
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

В настройках Абзаца выбрать Табуляцию, в настройках Табуляции установить по правому краю, длину табуляции установить равной правому краю документа, выбрать разделитель ".". В конце каждого абзаца ставить табуляцию
Пименов Александр вне форума Ответить с цитированием
Старый 04.10.2011, 09:54   #3
Molotoklk
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 36
По умолчанию

Большое спасибо!
Подскажите пожалуйста, почему цикл не переходит на следущую строку в таблице:
Код:
Dim n As Integer
n = Selection.Tables(1).Rows.Count
For i = 1 To n 


ActiveDocument.Tables(1).Columns(1).Select
    
    Selection.EndKey Unit:=wdLine
 ActiveDocument.DefaultTabStop = CentimetersToPoints(1.25)
    Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(16.75 _
        ), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderDots
    Selection.TypeText Text:=vbTab
        Selection.MoveDown Unit:=wdLine, Count:=1
Next i

Последний раз редактировалось Molotoklk; 04.10.2011 в 15:12.
Molotoklk вне форума Ответить с цитированием
Старый 04.10.2011, 16:05   #4
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Потому, что в цикле нет команды перехода на другую строку.
Dim rw as Row
For each rw in ActiveDocument.Tables(1).Columns(1) .Rows
rw.Select
Selection.ParagraphFormat.TabStops. Add Position:=CentimetersToPoints(16.75 _
), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderDots
Selection.TypeText Text:=vbTab
Next rw
Пименов Александр вне форума Ответить с цитированием
Старый 04.10.2011, 16:07   #5
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Цикл For each in Next переберает все строки в столбце 1
Пименов Александр вне форума Ответить с цитированием
Старый 04.10.2011, 16:10   #6
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Здесь еще лучше ActiveDocument заменить на Selection, тогда ссылка будет на выделенную таблицу а не на Таблицу 1 документа........
Пименов Александр вне форума Ответить с цитированием
Старый 04.10.2011, 17:08   #7
Molotoklk
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 36
По умолчанию

Сам же отвечаю на свой вопрос
Работает, если перед ActiveDocument.Tables(1).Columns(1) .Select вставить if i=1 Then
Большое спасибо))
Molotoklk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не воспринимаются символы конца строки Sam Gold C++ Builder 1 18.05.2010 16:15
ввод до конца строки. ssi Помощь студентам 0 27.01.2010 09:47
Имеются координаты точки. Как проверить какого цвета соседние точки на форме? Rin Мультимедиа в Delphi 2 10.11.2009 22:47
Количество пробелов до конца строки Qv_1 Microsoft Office Word 8 01.06.2009 19:58
Потоки и символ конца строки Deatz Общие вопросы C/C++ 3 07.05.2008 20:02