CorelDRAW X4 :: How To Combine 2 Macros Or Run A Batch Process On Each Macro

I have created a macro to change the Country of Origin text in a cd label file and I also have created a macro to remove some guide rings in the same label file but I am unable to combine the 2 macros into one macro I can run on the cd label file.  The code for each macro is as below.

Sub Rings()    ' Recorded 27/04/2012    ActivePage.GuidesLayer.Visible = True    ActivePage.GuidesLayer.Visible = False    ActivePage.Layers("Guidelines_2").Visible = True    ActivePage.Layers("Guidelines_2").Visible = False    ActivePage.Layers("Guidelines").Visible = False    ActivePage.Layers("Guidelines").Visible = True    ActiveLayer.Visible = False    ActiveLayer.Visible = True    ActivePage.Layers("Graphic Elements").Visible = False    ActivePage.Layers("Graphic Elements").Visible = True    ActivePage.Layers("Guidelines").Visible = FalseEnd Sub

'TextReplacePublic Function FindReplace(ByVal str As String, ByVal toFind As String, ByVal toReplace As String) As String    Dim i As Integer    For i = 1 To Len(str)        If Mid(str, i, Len(toFind)) = toFind Then   ' does the string match?            FindReplace = FindReplace & toReplace               ' add the new replacement to the final result            i = i + (Len(toFind) - 1)               ' move to the character after the toFind        Else            FindReplace = FindReplace & Mid(str, i, 1)        ' add a character        End If    Next iEnd Function

Public Sub TextTranslate()    Dim s As Shape    ActiveDocument.BeginCommandGroup "Text Translate"    For Each s In ActiveDocument.ActivePage.Shapes        If s.Type = cdrTextShape Then            s.Text.Story = FindReplace(s.Text.Story, "Recorded in Ireland", "Recorded in China")            s.Text.Story = FindReplace(s.Text.Story, "Printed in Ireland", "Printed in China")        End If    Next s    ActiveDocument.EndCommandGroupEnd Sub

how I could (1) join the 2 macros above or (2) create a batch macro for each macro above I could run to update all coreldraw cd label files in a folder.