Task ProofreadAsync(
    Presentation presentation,
    CultureInfo culture,
    CancellationToken cancellationToken = default(CancellationToken)
)

Function ProofreadAsync(
    presentation As Presentation,
    culture As CultureInfo,
    cancellationToken As CancellationToken = Nothing
) As Task

using DevExpress.AIIntegration;
using DevExpress.AIIntegration.Docs;
using DevExpress.Docs.Presentation;

var docProcessingService = defaultAIExtensionsContainer.CreateAIDocProcessingService();

using (var presentation = new Presentation(File.ReadAllBytes("Documents/Presentation.pptx")))  
{
    // Proofread entire document (culture en-US)
    await docProcessingService.ProofreadAsync(presentation, new System.Globalization.CultureInfo("en-US"));

    // Proofread a single slide (e.g., slide 2)
    // Slide slide = presentation.Slides[1];
    // await docProcessingService.ProofreadAsync(slide, new System.Globalization.CultureInfo("en-US"));

    // Prepare output directory & file path
    string targetDir = @"C:\Test Documents";
    Directory.CreateDirectory(targetDir); // Safe if already exists
    string outputPath = Path.Combine(targetDir, "Proofread.pptx");

    // Save the proofread presentation
    using (FileStream outputStream = new FileStream(outputPath, FileMode.Create, FileAccess.Write))
    {
        presentation.SaveDocument(outputStream, DocumentFormat.Pptx);
    }
}

Imports DevExpress.AIIntegration
Imports DevExpress.AIIntegration.Docs
Imports DevExpress.Docs.Presentation
Imports System.Globalization
Imports System.IO
Imports System.Threading.Tasks

Dim docProcessingService = defaultAIExtensionsContainer.CreateAIDocProcessingService()

Using presentation = New Presentation(File.ReadAllBytes("Documents/Presentation.pptx"))
    ' Proofread entire document (culture en-US)
    Await docProcessingService.ProofreadAsync(presentation, New CultureInfo("en-US"))

    ' Proofread a single slide (e.g., slide 2)
    ' Dim slide As Slide = presentation.Slides(1)
    ' Await docProcessingService.ProofreadAsync(slide, New CultureInfo("en-US"))

    ' Prepare output directory & file path
    Dim targetDir As String = "C:\Test Documents"
    Directory.CreateDirectory(targetDir) ' Safe if already exists
    Dim outputPath As String = Path.Combine(targetDir, "Proofread.pptx")

    ' Save the proofread presentation
    Using outputStream As New FileStream(outputPath, FileMode.Create, FileAccess.Write)
        presentation.SaveDocument(outputStream, DocumentFormat.Pptx)
    End Using
End Using

case PresentationPart.WholePresentation:
    await docProcessingService.ProofreadAsync(presentation, cultureSettings);
    break;