ChatGPT は高度なテキスト生成機能を備えており、Microsoft Word との対話方法に革命をもたらし、作業効率と学習体験の両方を向上させることができます。この記事では、ChatGPT を Microsoft Word と統合するための詳細なステップバイステップ ガイドを提供します。さらに、Word 内で ChatGPT を利用する方法の具体例を示し、この強力な組み合わせの実際的な利点を示します。
このセクションでは、VBA コードを使用して ChatGPT を Microsoft Word に統合する方法を説明します。この統合により、ChatGPT の AI 機能と Word の機能が組み合わされ、ドキュメントの作成と編集に革命が起こることが期待されます。
ステップ 1: VBA コードを Word 文書に追加する
新しい空の Word ファイルを開き、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
次に、をクリックします。 インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。 VBA コード: ChatGPT を Word に統合する
Sub ChatGPT()
'Updateby Extendoffice
Dim status_code As Integer
Dim response As String
OPENAI = "https://api.openai.com/v1/chat/completions"
api_key = "sk-***************************** "
If api_key = "" Then
MsgBox "Please enter the API key."
Exit Sub
ElseIf Selection.Type <> wdSelectionNormal Then
MsgBox "Please select text."
Exit Sub
End If
SendTxt = Replace(Replace(Replace(Replace(Selection.text, vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), Chr(39))
SendTxt = "{""model"": ""gpt-3.5-turbo"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""} ,{""role"":""user"", ""content"":""" & SendTxt & """}]}"
Set Http = CreateObject("MSXML2.XMLHTTP")
With Http
.Open "POST", OPENAI, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Authorization", "Bearer " & api_key
.send SendTxt
status_code = .Status
response = .responseText
End With
If status_code = 200 Then
Set regex = CreateObject("VBScript.RegExp")
With regex
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = """content"": ""(.*)"""
End With
Set matches = regex.Execute(response)
If matches.Count > 0 Then
response = matches(0).SubMatches(0)
response = Replace(Replace(response, "\n", vbCrLf), "\""", Chr(34))
Selection.Range.InsertAfter vbNewLine & response
End If
Else
Debug.Print response
End If
Set Http = Nothing
End Sub
Microsoft Word の AI の力を解き放つ Kutools AI アシスタント、ChatGPT 統合が追加されました!複数のスタイルでコンテンツを書き直し、カスタマイズされたコンテンツを簡単に生成し、長い文書を瞬時に要約する機能により、執筆体験を変革します。と Kutools AI アシスタント、生産性を向上させ、創造性を解き放ち、すべての言葉を大切にします。ワークフローを合理化し、時間を節約し、比類のない優れたライティングを実現します。今すぐ ChatGPT と Kutools AI Assistant を使用してドキュメント編集の未来にアップグレードしてください!
Kutools for Wordをインストールした後、クリックしてください クツールAI > AIアシスタント を開く Kutools AI アシスタント ペイン。
コンテンツをさまざまなスタイルでリライトする
Kutools AI Assistant の書き換え機能を使用して、Word での文章をレベルアップしましょう!フォーマルな雰囲気を目指している場合でも、クリエイティブなセンスを求めている場合でも、簡潔な明瞭さが必要な場合でも、このツールはテキストを場面に合わせてシームレスに調整します。数回クリックするだけで、文書がスタイルと内容の傑作に変わります。
Kutools AI Assistant のカスタマイズされたコンテンツ生成機能を使用して、ドキュメント作成プロセスを変革します。詳細なレポートを作成する場合でも、説得力のあるメールを作成する場合でも、魅力的なプレゼンテーションを作成する場合でも、Kutools AI Assistant はあなたのアイデアを洗練されたすぐに使えるテキストに成形します。 Kutools AI Assistant を執筆の成功のパートナーにし、共感を呼び、印象に残るコンテンツをカスタマイズしましょう。
Kutools AI Assistant を使用して、長い文書を簡単に簡潔な要約に圧縮します。このツールは、概要を簡単に把握したり、重要なポイントを抽出したりするのに最適で、複雑な情報をわかりやすいスニペットに簡略化して、時間を節約し、理解を深めます。学術研究、ビジネスレポート、日常の読書など、Kutools AI Assistantを使用すると、クリックするだけで膨大なテキストの本質を把握できます。
VBA ウィンドウの ボタンをクリックするか、 テキストジェネレーター リボンのボタンをクリックすると、次のデモに示すように、数秒後に記事が生成されます。
