パワーポイントの最初のページに、○○株式会社御中　という文字があります。

PowerPointが手元にないので動作確認できませんが、プログラム上は掲載したマクロで要望のことが実現できるはずです。

• 先頭だけでなく全部を置き換え
• 出力ファイル名は、会社名。実行時のディレクトリに保存

エラーが出たら、すみません。コメント欄にてやり取りしたいと思います。

参照設定というものが必要なので、Excel側のVBEで「ツール」→「参照設定」でパワーポイントのライブラリをつけてください。

オリジナルの入れ替え対象文字、元pptディレクトリ・ファイル名、会社名記載列は、適宜変更ください。

'参照設定 Microsoft Powerpoint ～ Object Library が必要
Option Explicit

Const sOrgCorp As String = "○○株式会社"
Const sOrgPPT As String = "C:\プレゼン資料\Original.ppt"

Sub DupPPT()

    Dim rngPPTfile As Range
    Dim sNewPPT As String
    Dim oPPT As Object
    
    Set oPPT = CreateObject("PowerPoint.Application")
    oPPT.Visible = True
    
    Range("A1").Select
    For Each rngPPTfile In Selection.CurrentRegion
        sNewPPT = rngPPTfile.Value
        Set oPresen = oPPT.Presentations.Open(sOrgPPT)
        Call ReplaceText(sOrgCorp, sNewPPT)
        oPresen.SaveAs sNewPPT
        oPresen.Close
        Set oPresen = Nothing
    Next
    oPPT.Quit

End Sub

Sub ReplaceText(sFrom As String, sTo As String)
    
    Dim oSld As Slide
    Dim oShp As Shape
    Dim oTxtRng As TextRange
    Dim oTmpRng As TextRange

    Set oSld = Application.ActivePresentation.Slides(1)

    For Each oShp In oSld.Shapes
        Set oTxtRng = oShp.TextFrame.TextRange
        Set oTmpRng = oTxtRng.Replace(FindWhat:=sFrom, _
            Replacewhat:=sTo)
        Do While Not oTmpRng Is Nothing
            Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
                oTxtRng.Length)
            Set oTmpRng = oTxtRng.Replace(FindWhat:=sFrom, _
                Replacewhat:=sTo)
        Loop
    Next oShp

End Sub

http://q.hatena.ne.jp/1157507418