@Lumina55

Как мне сделать макрос который работал с шрифтами?

Написать макрос, в котором последовательно перебраются разные форматы шрифта и выводятся в Word в автоматическом режиме.
  • Вопрос задан
  • 49 просмотров
Пригласить эксперта
Ответы на вопрос 2
BasiC2k
@BasiC2k
Решаю проблемы за деньги. Дорого.
Public Sub Font_Enumerate()
Dim i As Integer, oDoc As Document, oParagraph As Paragraph

Set oDoc = ThisDocument

oDoc.Bookmarks("\EndOfDoc").Select ' Курсор - в конец документа

For i = 1 To Application.FontNames.Count
    DoEvents
    oDoc.Content.InsertParagraphAfter
    Set oParagraph = oDoc.Paragraphs(oDoc.Paragraphs.Count)
    oParagraph.Range.Text = "Studieren, studieren, studieren (c). " & vbTab & Application.FontNames(i)
    oParagraph.Range.Sentences(1).Font.Name = Application.FontNames(i)
Next i

Set oDoc = Nothing
End Sub


От Вас хотелось бы только узнать - кто автор бессмертной фразы, что генерируется кодом? )
Ответ написан
twobomb
@twobomb
Sub мой_макрос()
    For i = 1 To FontNames.Count
         Selection.Font.Name = FontNames(i)
         Selection.TypeText (vbCr + FontNames(i))
    Next i
End Sub
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы