Task ProofreadAsync(
    RichEditDocumentServer wordProcessor,
    CultureInfo culture,
    CancellationToken cancellationToken = default(CancellationToken)
)

Function ProofreadAsync(
    wordProcessor As RichEditDocumentServer,
    culture As CultureInfo,
    cancellationToken As CancellationToken = Nothing
) As Task

using DevExpress.AIIntegration.Docs;
using DevExpress.XtraRichEdit;
using DevExpress.XtraRichEdit.API.Native;
using System.Diagnostics;

var docProcessingService = defaultAIExtensionsContainer.CreateAIDocProcessingService();

using (var wordProcessor = new RichEditDocumentServer())
{
    // Load source document (ensure file exists in relative Documents folder)
    wordProcessor.LoadDocument("Documents/FirstLookShortened.docx");

    // Proofread entire document (culture en-US)
    await docProcessingService.ProofreadAsync(wordProcessor, new System.Globalization.CultureInfo("en-US"));

    // Proofread a single paragraph
    // Paragraph paragraph = wordProcessor.Document.Paragraphs[1];
    // await docProcessingService.ProofreadAsync(paragraph.Range, 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.docx");

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

Imports DevExpress.AIIntegration.Docs
Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraRichEdit.API.Native
Imports System.Globalization
Imports System.IO

Dim docProcessingService = defaultAIExtensionsContainer.CreateAIDocProcessingService()

Using wordProcessor As New RichEditDocumentServer()
    ' Load source document (ensure file exists in relative Documents folder)
    wordProcessor.LoadDocument("Documents/FirstLookShortened.docx")

    ' Proofread entire document (culture en-US)
    Await docProcessingService.ProofreadAsync(wordProcessor, New CultureInfo("en-US"))

    ' Proofread a single paragraph
    ' Dim paragraph As Paragraph = wordProcessor.Document.Paragraphs(1)
    ' Await docProcessingService.ProofreadAsync(paragraph.Range, 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.docx")

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

default:
    await docProcessingService.ProofreadAsync(wordProcessor, cultureInfo);
    break;