1 Тема от ajavrik

  • ajavrik
  • рядовой
  • Неактивен
  • Зарегистрирован: 18.01.2010
  • Сообщений: 1

Тема: Прочеркивание незаполненных строк

Необходимо средствами автоматизации WORD в незаполненных до конца строках документа проставить прочеркивание.

Пример:

Правоустанавливающие документы на приобретаемое жилье, зарегистрированные в установленном законом порядке (документы, подтверждающие право собственности продавца на квартиру):----------------------------------------------------------------

Документы БТИ. Среди них должны быть: -----------------------------------------------
- кадастровый план;--------------------------------------------------------------------
- экспликация.------------------------------------------------------------------------

Помогите, пожалуйста!

ОС- ХР. Word 2003

Отредактировано ajavrik (18.01.2010 10:44:16)

Post's attachments

Прочеркивание.doc 20.5 Кб, 3 скачиваний с 2010-01-18 

You don't have the permssions to download the attachments of this post.

2 Ответ от Вождь

  • Прочеркивание незаполненных строк
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181

Re: Прочеркивание незаполненных строк

Вот, написал на колене:

Public Sub TabStopRight()
' в выделенной области добавить позицию табуляции с заполнителем

Dim P As Word.Paragraph

    For Each P In Selection.Paragraphs
        With P.Range
            ' добавляем позицию табуляции
            P.TabStops.Add _
                Position:=.PageSetup.TextColumns(1).Width - P.RightIndent, _
                Alignment:=Word.wdAlignTabRight, _
                Leader:=Word.wdTabLeaderDashes
            ' вставляем символ табуляции
            .Characters.Last.InsertBefore VBA.vbTab
        End With
    Next P
    
End Sub

Но тут может быть много нюансов  wink

Макросы под заказ и готовый пакет - mtdmacro.ru

СайтВождь