就说一个简单的文字替换吧，你下一部
水浒传
，把里面的俺替换为我，你看看wps文字要用多久？再看看word才用多久？？

win写字板里的rtf文本放到WPS另存为rtf会暴涨好几倍，30kb能变300kb

差别不大啊，WORD 用了0秒，WPS用了1秒
Sub MeasureExecutionTimeFormatted()
Dim startTime As Double
Dim duration As Double
Dim timeString As String
startTime = Timer
' --- 你的主要代码开始 ---
With ActiveDocument.Range.Find
.ClearFormatting ' 清除之前的格式设置
.Text = "俺"
With .Replacement
.ClearFormatting
.Text = "我"
End With
.Execute Replace:=wdReplaceAll ' 执行替换
End With
' --- 你的主要代码结束 ---
duration = Timer - startTime
If duration < 0 Then duration = duration + 86400
' 将秒数转换为 HH:MM:SS 格式
timeString = Format(TimeSerial(0, 0, duration), "hh:mm:ss")
Debug.Print "运行耗时: " & timeString
MsgBox "运行完成！" & vbCrLf & "总耗时: " & timeString, vbInformation
End Sub

相差4.14倍速