Skip to content

Instantly share code, notes, and snippets.

@elvin-nsk
elvin-nsk / ChangeFont.bas
Last active July 15, 2025 08:20
CorelDraw. Поменять шрифт и размер текста на всех страницах документа.
Sub ChangeFont()
Const TargetFont = "Tahoma"
Const TargetSize = 10
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim Page As Page
Dim Shape As Shape
For Each Page In ActiveDocument.Pages
For Each Shape In Page.Shapes
If Shape.Type = cdrTextShape Then
Shape.Text.Story.Font = TargetFont