OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > Corel Script > CorelDRAW CS

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 16-07-2008, 04:29
engandy
Guest
 
Posts: n/a
Unhappy 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
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Replacing Characters vindaa CorelDRAW/Corel DESIGNER VBA 1 30-12-2007 06:07
bulk enable email notifications - How? Jeff Harrison Web site suggestions 0 03-11-2006 12:28
Is it possible to make an invisible document in coreldraw ? enpassant CorelDRAW/Corel DESIGNER VBA 2 12-07-2006 10:16
How to use events from CorelDRAW.Document in my code? me CorelDRAW/Corel DESIGNER VBA 2 30-10-2004 02:49
Find/Replace with CorelDraw 9 and VB 6 sfldan CorelDRAW/Corel DESIGNER VBA 1 10-07-2003 17:44


All times are GMT -5. The time now is 01:36.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com