Я использую VBA в Powerpoint, чтобы найти стили в тексте, а затем обернуть этот текст тегами уценки HTML. Ниже приведен код, который я пытаюсь использовать, чтобы найти жирный текст, а затем обернуть его в <b>bold text</b>
.
К сожалению, код, похоже, возвращает логическое значение, а не текстовый диапазон.
Что я делаю неправильно?
With oSh.TextFrame.TextRange
For x = 1 To .Paragraphs.Count
With .Paragraphs(x)
Debug.Print "Paragraph: " & x
For y = 1 To .Runs.Count
If .Runs(y).Font.Bold Then
.Runs(y).Font.Bold = "<b>" & .Runs(y).Font.Bold & "</b>"
End If
Next
End With
Next
End With