ChatGPTに症例報告用のパワーポイントスライドを作ってもらいたい

Act as a VBA programmer. Write me VBA code to create PowerPoint slides about the sports
drink and hydration beverage category. think like a senior CPG brand manager and market
researcher. use your knowledge and create at least 10 slides.

以下の文章をパワーポイントスライドVBAの形式に変更してください。スライド枚数は7枚です。
以下に各スライドの本文を提示します。

本文：
S1. Title 病院奇譚
【確定診断名】（#1(ネコミウイルス感染症)、#2(糖尿病)、#3(高血圧)）
S2. 【主訴】咽頭痛、呼吸苦、発熱、倦怠感
【現病歴】糖尿病と高血圧症を抱える52歳の男性。血液検査で白血球数上昇が指摘され、キャッツ総合病院へ
緊急紹介された。8月12日、キャッツ総合病院への入院となった。
S3. 【既往歴】糖尿病、高血圧
【社会生活歴】アレルギー歴：なし、喫煙歴：10〜20本/日、飲酒歴：ウイスキーやワインを適量、
　職業：レストランマネージャー
【家族歴】父：脳卒中で死亡
S4. 【入院時現症】身長と体重は記載がないため不明。体温38.5℃．脈拍100/分，整。血圧150/95mmHg．
　　呼吸数22/分。眼瞼結膜に貧血、眼球結膜に黄疸はない。胸部：肺音に異常はない。心音に異常はない。
　腹部：平坦，軟で圧痛はない。肝・脾を触知しない。四肢：下腿浮腫を認めない。皮疹はない。
リンパ節の腫脹や咽頭発赤を認める。
【検査所見】尿所見：なし、血液所見：赤血球 4.2万/μL、Hbなし、Htなし、白血球 9,000/μL
（NEなし、LY 20％、MONOなし、EOSなし）、血小板なし、PTなし、APTTなし、血漿フィブリノゲンなし、
血清FDPなし。血液生化学所見：TPなし、Albなし、フェリチンなし、AST 48 U/L、ALT 38 U/L、LDなし、
BUNなし、Cr 1.3 mg/dL。免疫血清学所見：CRP 25 mg/dL、リウマトイド因子陰性、MPO-ANCA ＜なし、
PR3-ANCA ＜なし、抗核抗体陰性。
S5. 【プロブレムリスト】（#1. ネコミウイルス感染症、#2. 糖尿病、#3. 高血圧）
【退院時処方】
アムロジピン 5 mg 1T　分1　朝食後, メトホルミン 500 mg 1T　分2　朝・夕食後, 
キャットフード（サーモン味） 1缶/日
S6. 【入院後経過と考察】
ハルミの症状が徐々に改善し始めた経過は次の通りである。当初の核酸増幅法検査でネコミウイルスに
陰性と判明したが、症状改善せず、メロペネム、アジスロマイシン、レムデシビル、ステロイドパルス療法に
も反応なし。
S7. 【総合考察】
医療界は基礎疾患と感染症の関連性を研究し、ハルミの事例では食事の変更が病状に影響を与えたことが
わかった。また、ドクターニャンソンは鼻舐め診断法の改善を試み、感染リスクの軽減と診断の精度向上を
示した。

Sub CreateSlides()

    Dim ppt As Presentation
    Dim sld As Slide
    Dim shp As Shape
    Dim slideTexts As Variant

    Set ppt = ActivePresentation

    slideTexts = Array("Title 病院奇譚【確定診断名】（#1(ネコミウイルス感染症)、#2(糖尿病)、#3(高血圧)）", _
                       "【主訴】咽頭痛、呼吸苦、発熱、倦怠感【現病歴】糖尿病と高血圧症を抱える52歳の男性。血液検査で白血球数上昇が指摘され、キャッツ総合病院へ緊急紹介された。8月12日、キャッツ総合病院への入院となった。", _
                       "【既往歴】糖尿病、高血圧【社会生活歴】アレルギー歴：なし、喫煙歴：10〜20本/日、飲酒歴：ウイスキーやワインを適量、職業：レストランマネージャー【家族歴】父：脳卒中で死亡", _
                       "【入院時現症】身長と体重は記載がないため不明。体温38.5℃．脈拍100/分，整。血圧150/95mmHg．呼吸数22/分。眼瞼結膜に貧血、眼球結膜に黄疸はない。胸部：肺音に異常はない。心音に異常はない。腹部：平坦，軟で圧痛はない。肝・脾を触知しない。四肢：下腿浮腫を認めない。皮疹はない。リンパ節の腫脹や咽頭発赤を認める。【検査所見】尿所見：なし、血液所見：赤血球 4.2万/μL、Hbなし、Htなし、白血球 9,000/μL（NEなし、LY 20％、MONOなし、EOSなし）、血小板なし、PTなし、APTTなし、血漿フィブリノゲンなし、血清FDPなし。血液生化学所見：TPなし、Albなし、フェリチンなし、AST 48 U/L、ALT 38 U/L、LDなし、BUNなし、Cr 1.3 mg/dL。免疫血清学所見：CRP 25 mg/dL、リウマトイド因子陰性、MPO-ANCA ＜なし、PR3-ANCA ＜なし、抗核抗体陰性。", _
                       "【プロブレムリスト】（#1. ネコミウイルス感染症、#2. 糖尿病、#3. 高血圧）【退院時処方】アムロジピン 5 mg 1T　分1　朝食後, メトホルミン 500 mg 1T　分2　朝・夕食後, キャットフード（サーモン味） 1缶/日", _
                       "【入院後経過と考察】ハルミの症状が徐々に改善し始めた経過は次の通りである。当初の核酸増幅法検査でネコミウイルスに陰性と判明したが、症状改善せず、メロペネム、アジスロマイシン、レムデシビル、ステロイドパルス療法にも反応なし。", _
                       "【総合考察】医療界は基礎疾患と感染症の関連性を研究し、ハルミの事例では食事の変更が病状に影響を与えたことがわかった。また、ドクターニャンソンは鼻舐め診断法の改善を試み、感染リスクの軽減と診断の精度向上を示した。")

    For i = LBound(slideTexts) To UBound(slideTexts)
        Set sld = ppt.Slides.Add(i + 1, ppLayoutText)
        Set shp = sld.Shapes(2) 'assuming this is the content placeholder shape
        shp.TextFrame.TextRange.Text = slideTexts(i)
    Next i

End Sub

プロンプト：
マイクロソフトWordのVBAコードを作成してください。
すべての段落をアウトラインレベル2に設定してください。
また、指定されたキーワードを含む段落をアウトラインレベル1に設定してください。
検索対象となるキーワードの例としては、「Title」「主訴」「入院時現症」「検査所見」
「プロブレムリスト」「入院後経過と考察」「退院時処方」「総合考察」があります。
すべての機能を1つのサブルーチンにまとめて実行できるようにしてください。

Sub SetOutlineLevel2()
    Dim doc As Document
    Dim para As Paragraph
    Set doc = ActiveDocument

    ' すべての段落を処理
    For Each para In doc.Paragraphs
        ' 段落のアウトラインレベルを2に設定
        para.OutlineLevel = wdOutlineLevel2
    Next para
End Sub

Sub SetOutlineLevel1ForMultipleKeywords()
    Dim keywords() As Variant
    Dim keyword As Variant
    Dim targetRange As Range
    
    ' キーワードの配列を作成し、検索したい単語を設定します
    keywords = Array("Title", "主訴", "入院時現症", "検査所見", "プロブレムリスト", 
"入院後経過と考察", "退院時処方", "総合考察")

    ' 配列内の各キーワードに対して、検索とアウトラインレベル1の設定を行う
    For Each keyword In keywords
        With ActiveDocument.Content.Find
            .ClearFormatting
            .Text = keyword
            .Forward = True
            .Wrap = wdFindStop
            .Execute
            While .Found
                Set targetRange = ActiveDocument.Range(Start:=.Parent.Start, End:=.Parent.End)
                targetRange.ParagraphFormat.OutlineLevel = wdOutlineLevel1
                .Execute
            Wend
        End With
    Next keyword
End Sub

Sub SetOutlineLevels()
    ' まず、本文に設定されている段落をすべてアウトラインレベル2に変換します。
    SetOutlineLevel2

    ' 次に、指定されたキーワードが含まれている段落をアウトラインレベル1に設定します。
    SetOutlineLevel1ForMultipleKeywords
End Sub

プロンプト powerpoint 表作成
選択されたPowerPointテキストボックスのテキストを、カンマで区切られたデータとして扱い、
そのデータを基にしたテーブルを新しく作成するVBAマクロを作成してください。
テーブルの各行は、テキストデータの各要素に対応し、1列目にはラベル、2列目には値が入るようにしてください

Sub CreateTableFromText()
    Dim text As String
    Dim data() As String
    Dim numRows As Integer
    Dim i As Integer
    Dim dataTable As Table
    Dim slide As slide

    ' Get the active slide
    Set slide = ActiveWindow.View.slide

    ' Get the text from the selected text box
    text = slide.Shapes(1).TextFrame.TextRange.text

    ' Replace full-width comma with half-width comma
    text = Replace(text, "，", ",")

    ' Split the text by comma
    data = Split(text, ",")

    ' Calculate the number of rows
    numRows = UBound(data) - LBound(data) + 1

    ' Create a table with numRows rows and 2 columns
    Set dataTable = slide.Shapes.AddTable(numRows, 2, 0, 0, 500, 300).Table

    ' Populate the table
    For i = LBound(data) To UBound(data)
        ' Split the data element into label and value
        Dim parts() As String
        parts = Split(Trim(data(i)), " ", 2)

        ' Set the label and value in the table
        dataTable.Cell(i + 1, 1).Shape.TextFrame.TextRange.text = parts(0)
        If UBound(parts) > 0 Then
            dataTable.Cell(i + 1, 2).Shape.TextFrame.TextRange.text = parts(1)
        End If
    Next i
End Sub