Remove extra spaces

Description

Removes extra spaces in text document.

(function()
{
    const oDocument = Api.GetDocument();
    const oRange = oDocument.GetRangeBySelect();
    const rawText = oRange.GetText();
    oRange.Delete();

    // Split the original word into an array of paragraphs based on newline characters
    const paragraphs = rawText.split('\n');

    // Create an array to store cleaned paragraphs
    const cleanedParagraphs = [];

    // Clean each paragraph and store it in the cleanedParagraphs array
    for (const paragraph of paragraphs) {
        // Use a regular expression to replace consecutive whitespaces with a single space
        const cleanedParagraph = paragraph.replace(/\s+/g, ' ');
        cleanedParagraphs.push(cleanedParagraph);
    }

    // Join the cleaned paragraphs with newline characters
    const cleanedText = cleanedParagraphs.join('\n');

    // Insert the cleanedText into the original paragraph structure
    const oParagraph = Api.CreateParagraph();
    oParagraph.AddText(cleanedText);
    oDocument.InsertContent([oParagraph], { "KeepTextOnly": true });
})();

Methods used: GetDocument, GetRangeBySelect, GetText, Delete, CreateParagraph, AddText, InsertContent

Reference Microsoft VBA macro code

Sub RemoveExtraSpaces()
    Dim rng As Range
    
    ' Set the range to the entire document
    Set rng = ActiveDocument.Content
    
    ' Replace multiple spaces with a single space
    rng.Text = Replace(rng.Text, "  ", " ")
    
    MsgBox "Extra spaces removed!", vbInformation
End Sub

Result