Sub Section()
'
' Section Macro
' Macro recorded 11/15/2013 by sharma.anil
'
    ActiveDocument.Styles.Add Name:="Section", Type:=wdStyleTypeParagraph
    ActiveDocument.Styles("Section").AutomaticallyUpdate = False
    With ActiveDocument.Styles("Section").Font
        .Name = "Times New Roman"
        .Size

Sub ChangeDocsToTxtOrRTFOrHTML()
'with export to PDF in Word 2007
    Dim fs As Object
    Dim oFolder As Object
    Dim tFolder As Object
    Dim oFile As Object
    Dim strDocName As String
    Dim intPos As Integer
    Dim locFolder As String
    Dim fileType As String
    On Error Resume Next
    locFolder = InputBox("Enter

Sub Macro4()
'
' Macro4 Macro
'
'
    ChangeFileOpenDirectory "C:\Documents and Settings\User\Desktop\Reverend\"
    ActiveDocument.SaveAs

Sub runallmac()
Call macro6
Call macro7
Call macro8
Call Macro3
End Sub


Sub macro6()

Dim i As Paragraph
  For Each i In ActiveDocument.Paragraphs
        If i.Style.NameLocal = "CM448" Then
            i.Range.Select
            Selection.InsertBefore

<xsl:template match="processing-instruction('docpage')">
  <docpage><xsl:value-of select="."/></docpage>
</xsl:template>

Sub Macro6()
'
' Macro6 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Heading 1")

<xsl:template match="docpage">
<p><xsl:value-of select="@number"/>
<xsl:apply-templates/></p>
</xsl:template>