如何用VBA来获取Coreldraw 中文本里面的值，如：文本里如何一个“2”如何来获取“2:”

如何用VBA来获取Coreldraw 中文本里面的值，如：文本里如何一个“2”如何来获取“2:”

最近我学这个。本来想搜别的问题，闯进这个问题来了。虽然年代久远，还是回答一下，以备后人查询。
如果是我，我估计会这么解决：先给相应的文本框重命名，比如重命名为"a"。value=ThisDocument.Pages(1).Shapes.FindShape("a",cdrTextShape).Text.Story.Text

Sub main() ' 创建一个新的文档 Dim doc As Document Set doc = CreateDocument doc.Unit = cdrMillimeter ' 在活动图层上创建一个段落文本 Dim textbox As Shape Set textbox = doc.ActiveLayer.CreateParagraphText(0, 0, 120, 10, "这是一个文本框（段落文本）这个值是你想要获取的", cdrChineseSingapore, cdrCharSetDefault, "宋体", 20, cdrTrue, cdrFalse, cdrDoubleThinFontLine, cdrCenterAlignment) MsgBox textbox.Text.Story.Text ' 这个是获取这个文本的值 End Sub

这个貌似实现起来有点难度,先要找到Coreldraw的窗口句柄,再查找到它的子窗口句柄,一直查到那个文件框,然后才能得到里面的值.

这个太冷门了！！！目前没有办法！！！