創(chuàng)建一個美術(shù)字文本對象，并用消息框顯示第1個到第5個字符，并將第9到第14個字符改為大寫形式。

參考代碼

Sub test()' 定義相關(guān)變量Dim t As TextDim s As ShapeDim d As Document' 創(chuàng)建文檔Set d = CreateDocument' 在文檔中創(chuàng)建一個美術(shù)字文本Set s = d.ActiveLayer.CreateArtisticText(4, 5, "歡迎訪問VBA探秘www.cdrvba.com")' 取得文本對象Set t = s.Text' 獲取第1到5個字符MsgBox "第1到5個字符是：" & vbCr & t.Range(1, 5).Text' 修改第9到第14個字符為大寫t.Range(9, 14).Case = cdrAllCapsFontCase End Sub

?

總結(jié)

以上是生活随笔為你收集整理的CorelDRAW VBA - 读取和操作部分文本内容 Text.Range的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。