CorelDRAW VBA - 解决段落文本溢出（使文本适合框架）

在排列段落文本时，经常会遇到由于段落文本内容较多，导致超出的内容没有在段落文本框内部完全显示，也就是常说的文本溢出的情况。本文介绍将文本适合到它的框架，即匹配到文本的框架大小，可以解决文本溢出的问题。

参考代码

Sub test()Dim doc As DocumentDim s As ShapeDim t As Text' 创建文档Set doc = CreateDocument' 创建段落文本Set s = doc.ActiveLayer.CreateParagraphText(2, 4, 6, 9, "This is a test for the frames.")' 得到段落文本对应的 Text 对象Set t = s.Text' 将文本适应到框架t.FitTextToFrame
End Sub