所以我有一个宏来搜索文档上的所有文本并将它们全部转换为曲线。该宏还会查看超出CQL范围的powerclip。 下面是我的代码： Public Sub convertText()
Dim pg As Page
Dim shRange As ShapeRange
Dim sh As Shape
For Each pg In ActiveDocument.Pag
我想知道这是否可能，基本上我想生成一组变量（sh0，sh1，sh2等）。我正在考虑使用一个数组，但我无法让它工作。 这里是我的代码： Dim intI As Integer
Dim shArray(0 To 10) As String
For intI = 0 To 10
shArray(intI) = "sh" & intI
Dim shArray(intI) As Sh
我正在VBA中编写一个脚本，在CorelDraw中创建一个图形。我无法集中文本。下面是CorelDraw中的宏编辑器正常工作代码： Dim s2 As Object
Dim Txt As Object
Dim test As String
Dim returntest As String
returntest = "Test~Test1234~Test56~
我正试图在我当前的工作系统中构建一个小型嵌套函数。我遇到的问题是，当我将第三个形状添加到集合中并尝试根据添加到集合中的上一个形状来定位它时，它仍然根据第一个形状定位它。我最终得到的是原件在原来的位置和副本堆叠在一起。 Function ArrangeImages(ByRef scol1 As Collection, ByRef sA, sB As Shape)
Dim i, ii As Long