Coreldraw X3 是具有宏录制功能，但部分操作并无法被录制到正确的代码，比如这篇文章所提及的搜索与替换功能。所以利用利用Deepseek生成了几段，测试后发现下面这段代码在 X3 中可以正常运行。
Sub SearchAndReplaceTextX3()
' 定义变量
Dim s As Shape
Dim searchText As String
Dim replaceText As String
Dim foundPosition As Long
Dim foundCount As Integer
Dim doc As Document
Dim pg As Page
Dim textStory As TextRange
' 设置搜索和替换的文本
searchText = "123456" ' 要搜索的文本
replaceText = "替换后的内容" ' 要替换成的文本，请根据需要修改
foundCount = 0
' 检查是否有打开的文档
If Documents.Count = 0 Then
MsgBox "没有打开的文档，请先打开一个CorelDRAW文档。", vbInformation
Exit Sub
End If
Set doc = ActiveDocument
On Error Resume Next ' 简单的错误处理，防止因单个形状错误而中断整个循环
' 遍历文档中的每一页
For Each pg In doc.Pages
' 遍历页面中的每个形状
For Each s In pg.Shapes
' 检查形状是否为文本形状 (cdrTextShape)
If s.Type = cdrTextShape Then
' 查找文本
' 注意: CorelDRAW X3 中 Text.Find 方法的行为可能与更高版本有所不同
foundPosition = s.Text.Find(searchText, False, 1, False, cdrTextIndexingType.cdrCharacterIndexing) ' :cite[1]
' 如果找到了文本 (foundPosition > 0 表示找到)
If foundPosition > 0 Then
' 替换找到的文本
' 方法1: 直接使用TextRange的Characters属性进行替换 (一种可行方法)
s.Text.Story.Characters(foundPosition, Len(searchText)).Text = replaceText
foundCount = foundCount + 1
End If
End If
Next s
Next pg
On Error GoTo 0 ' 恢复错误处理
' 显示结果
If foundCount > 0 Then
MsgBox "替换完成！共找到并替换了 " & foundCount & " 处文本。", vbInformation
Else
MsgBox "未在文档中找到文本: " & searchText, vbExclamation
End If
End Subs.Text.Find 方法参数详解
foundPosition = s.Text.Find(searchText, False, 1, False, cdrTextIndexingType.cdrCharacterIndexing)参数分解说明
- searchText - 要搜索的文本
作用：指定需要查找的字符串内容
示例："25102481" 或 "需要查找的文字"
类型：String
- False - 区分大小写选项
作用：控制搜索是否区分英文字母大小写
值：
False：不区分大小写（如 "Text" 和 "text" 都会被找到）
True：区分大小写（只找到完全匹配大小写的文本）
类型：Boolean
- 1 - 起始搜索位置
作用：指定从文本的哪个字符位置开始搜索
值：1：从文本开头开始搜索
其他数字：从指定字符位置开始搜索
类型：Long
- False - 全字匹配选项
作用：控制是否只匹配完整的单词
值：
False：部分匹配（如搜索 "text" 会找到 "text" 和 "context"）
True：全字匹配（只找到独立的 "text" 单词）
类型：Boolean
- cdrTextIndexingType.cdrCharacterIndexing - 索引类型
作用：指定字符索引的计算方式
值：
cdrCharacterIndexing：按字符计数（推荐使用）
cdrStoryIndexing：按文本故事索引
类型：枚举常量
返回值说明
返回值：foundPosition（找到文本的起始位置）
值含义：
>0：找到文本，返回值为起始字符位置
=0：未找到指定文本
