replace the bulk of N CorelDRAW 9 of the same characters in the document

How to function below the VBA to COREL script language?
怎么把下面的VBA功能转为COREL script语言
I would like to replace the bulk of N CorelDRAW 9 of the same characters in the document

Sub 多文件替换文本()
Dim d As Document
Dim p As Page
For Each d In Documents
For Each p In d.Pages
p.TextReplace "丁亥", "己丑", True, False
p.TextReplace "2007", "2009", True, False
p.TextReplace "00七", "00九", True, False
p.TextReplace "OO七", "OO九", True, False
p.TextReplace "oo七", "oo九", True, False
p.TextReplace "零零七", "零零九", True, False
Next p
Next d
End Sub