Цикл до конца документа

Мне нужно выбрать каждую третью строку документа и отформатировать текст полужирным, подчеркнутым и синим. У меня уже есть этот код, но мне нужно зациклить его на определенное количество раз.

проблема в том, что все циклы учебники я найти применение переменных или состояние до тех пор, пока некоторые условия. Как я могу установить, что условие " достигло нижней части документа?"

код я создал ниже, а в скобках строки, что мне нужно помочь с:

Selection.HomeKey Unit:=wdStory

[Do the following code until the end of the document]

        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        With Selection.Font
            .Bold = wdToggle
            .Color = 12611584
            .Underline = wdUnderlineSingle
        End With

        Selection.MoveDown Unit:=wdLine, Count:=3

[end of loop]

очень простой вопрос. Я знаком с настройкой этих типов циклов в excel, но в word я не могу понять это. Я ценю всех, кто находит время ответить.

9
задан Ƭᴇcʜιᴇ007
28.04.2023 2:12 Количество просмотров материала 2562
Распечатать страницу

1 ответ

это должно работать

Dim lastRow As Long
lastRow = ActiveDocument.BuiltInDocumentProperties("Number Of Lines")
MsgBox lastRow

BuiltInDocumentProperties KB

что-то вроде этого будет работать, и быть того же типа for цикл как excel -

Sub CountLines()

Dim lastRow As Long
Dim i As Long
lastRow = ActiveDocument.BuiltInDocumentProperties("Number Of Lines")
For i = 1 To lastRow
    If i Mod 3 = 0 Then
        'Do Stuff
    End If
Next

End Sub

или быть более основательным -

Sub CountLines()

    Dim lastRow As Long
    Dim i As Long
    lastRow = ActiveDocument.BuiltInDocumentProperties("Number Of Lines")
    For i = 1 To lastRow
        If i Mod 3 = 0 Then
            ActiveDocument.Paragraphs(i).Range.Font.Bold = True
            'Do other stuff
        End If
    Next

End Sub
1
отвечен Raystafarian 2023-04-29 10:00

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх