Task TranslateAsync(
    DocumentRange documentRange,
    CultureInfo culture,
    CancellationToken cancellationToken = default(CancellationToken)
)

Function TranslateAsync(
    documentRange As DocumentRange,
    culture As CultureInfo,
    cancellationToken As CancellationToken = Nothing
) As Task

using DevExpress.AIIntegration;
using DevExpress.AIIntegration.Docs;
using DevExpress.XtraRichEdit;
using DevExpress.XtraRichEdit.API.Native;
using Microsoft.Extensions.AI;

// See "Register AI extension service" section for implementation code
var docProcessingService = 
    defaultAIExtensionsContainer.CreateAIDocProcessingService();

using (var wordProcessor = new RichEditDocumentServer()) {

    FileStream fs = File.OpenRead(
        Path.Combine(
            AppDomain.CurrentDomain.BaseDirectory, 
            "Documents/FirstLookShortened.docx"));
    wordProcessor.LoadDocument(fs);
    fs.Close();
    Paragraph paragraph = wordProcessor.Document.Paragraphs[1];
    await docProcessingService.TranslateAsync(
        paragraph.Range, 
        new System.Globalization.CultureInfo("DE-DE"));

    // Save the modified document
    string outputFilePath =
        Path.Combine(Environment.CurrentDirectory, $"Document1_translated.docx");
    wordProcessor.SaveDocument(outputFilePath, DocumentFormat.Docx);
}

Imports DevExpress.AIIntegration
Imports DevExpress.AIIntegration.Docs
Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraRichEdit.API.Native
Imports Microsoft.Extensions.AI
Imports System.Globalization
Imports System.IO
Imports System.Threading.Tasks

Module Module1
    Async Function Main() As Task

        ' See "Register AI extension service" section for implementation code
        var docProcessingService = 
            defaultAIExtensionsContainer.CreateAIDocProcessingService()

        Using wordProcessor As New RichEditDocumentServer()
            Dim fs As FileStream = File.OpenRead(
                Path.Combine(
                    AppDomain.CurrentDomain.BaseDirectory, 
                    "Documents/FirstLookShortened.docx"))
            wordProcessor.LoadDocument(fs)
            fs.Close()

            Dim paragraph As Paragraph = wordProcessor.Document.Paragraphs(1)
            Await docProcessingService.TranslateAsync(
                paragraph.Range, 
                New CultureInfo("DE-DE"))

            ' Save the modified document
            Dim outputFilePath As String = Path.Combine(Environment.CurrentDirectory, "Document1_translated.docx")
            wordProcessor.SaveDocument(outputFilePath, DocumentFormat.Docx)
        End Using
    End Function
End Module

var pageRange = wordProcessor.Document.CreateRange(fixedRange.Start, fixedRange.Length); // Translate the first page
await docProcessingService.TranslateAsync(pageRange, language);
break;