Встроенные вставки предварительно отформатированных строк - PullRequest
Новая
       6

Встроенные вставки предварительно отформатированных строк

0 голосов
/ 13 мая 2018

, работая над макросом ниже для заполнения таблицы MS word, я имел в виду ячейку с двумя утверждениями: одно - жирный текст, а другое - нет, ниже приведен способ, которым я подошел к нему. Я уверен, что есть более умный, в большей степени встроенный способ, позволяющий быстро вставлять отформатированные строки. Кроме того, приведенная ниже реализация не работает. Есть мысли? 

For n = 1 To nCount
    With oTable.Rows(n + 1)
        'Page number
        .Cells(1).Range.Text = _
            oDoc.Comments(n).Scope.Information(wdActiveEndPageNumber)
        .
        .
        .
        .Cells(3).Range.Text = "First Statement: "
        .Cells(3).Range.Select
        With .Cells(3).Range
            .Bold = True
        End With
        .Cells(3).Range.Bold = False
        .Cells(3).Range.InsertAfter ("Second Statement")
    End With
Next n

1 Ответ

0 голосов
/ 13 мая 2018 
Dim Rng As Range
For n = 1 To nCount
    With oTable.Rows(n + 1)
        'Page number
        .Cells(1).Range.Text = _
            oDoc.Comments(n).Scope.Information(wdActiveEndPageNumber)
        '
        '

    Set Rng = .Cells(3).Range
    With Rng
      .End = .End - 1
      .Text = "First Statement: "
      .Font.Bold = True
      .Collapse wdCollapseEnd
      .Text = "Second Statement"
      .Font.Bold = False
    End With
Next n
...