' Paste the copied code from VS Code with indentation.
' It needs space characters set in VSCode as indentation, not tabs.
' If tabs are used, the ASCII code needs to be modified in the script.
' The macro can be assigned to a shortcut, for example, Ctrl+D.
Sub CopyIndentation
    ' Get access to the document:
    Dim document As Object
    Dim dispatcher As Object
    document = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

    Dim text As String
    Dim linesArray() As String
    Dim lineCount As Integer
    Dim textLine As String
    Dim spaceString As String

    ' Retrieve text from the clipboard
    text = GetClipboardText()

    ' Paste text from clipboard into the document
    dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

    ' Count the number of lines in the pasted text
    lineCount = CountLines(text)

    ' Read all lines into an array
    linesArray = ReadAllLines(text)

    ' Move cursor to the top of the pasted text
    Dim cursor As Object
    cursor = ThisComponent.getCurrentController.getViewCursor()

    ' Declare object for text insertion
    Dim args2(0) As New com.sun.star.beans.PropertyValue
    args2(0).Name = "Text"

    Dim selectedText As String

    ' Go to the start of the pasted text while inserting spaces in the beginning of each line
    Dim i As Integer
    For i = lineCount - 1 To 0 Step -1
        ' Move cursor to the previous paragraph
        cursor.goUp(1, False)
        cursor.gotoEndOfLine(False)

        ' Select the whole line
        cursor.gotoStartOfLine(true)
        selectedText = cursor.getString()

        ' Move cursor to the start of the paragraph.
        ' If the line is empty, skip it.
        If selectedText <> "" Then
            ' If not - move cursor to the end of the line, so ".uno:GoToStartOfPara" won't jump to the previous paragraph (because it will jump if cursor is at the beginning of the line)
            cursor.gotoEndOfLine(False)

            ' Move cursor to the start of the paragraph
            dispatcher.executeDispatch(document, ".uno:GoToStartOfPara", "", 0, Array())

                ' Get the i-th line of text
            textLine = linesArray(i)

            ' Extract leading spaces from the line
            spaceString = ExtractSpaces(textLine)

            ' Insert the corresponding number of spaces
            args2(0).Value = spaceString
            dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args2())
        End If
    ' Continue loop
    Next i

    ' Go to the end of the pasted text
    For i = 0 To lineCount - 1
        ' Move cursor to the next paragraph
        cursor.goDown(1, False)
        cursor.gotoEndOfLine(False)

        ' Select the whole line
        cursor.gotoStartOfLine(true)
        selectedText = cursor.getString()

        ' Move cursor to the end of the paragraph.
        ' If the line is empty, skip it.
        If selectedText <> "" Then
            ' If not - move cursor to the start of the line, so ".uno:GoToEndOfPara" won't jump to the next paragraph (because it will jump if cursor is at the beginning of the line)
            cursor.gotoStartOfLine(False)

            ' Move cursor to the end of the paragraph
            dispatcher.executeDispatch(document, ".uno:GoToEndOfPara", "", 0, Array())
        End If
    ' Continue loop
    Next i
End Sub

Function ExtractSpaces(text As String) As String
    ' Extracts leading spaces from a given string
    Dim extractedSpaces As String
    extractedSpaces = ""

    Dim i As Integer
    Dim str As String

    For i = 1 To Len(text)
        str = Mid(text, i, 1)

        ' Check if character is a space
        If Asc(str) = 32 Then
            extractedSpaces = extractedSpaces & " "
        Else
            ' Stop once a non-space character is encountered
            Exit For
        End If
    Next i

    ExtractSpaces = extractedSpaces
End Function

Function CountLines(text As String) As Integer
    ' Counts the number of lines in the given text based on newline characters
    Dim lineCount As Integer
    lineCount = 1

    Dim i As Integer
    For i = 1 To Len(text)
        ' Newline character detected
        If Asc(Mid(text, i, 1)) = 10 Then
            lineCount = lineCount + 1
        End If
    Next i

    CountLines = lineCount
End Function

Function ReadAllLines(text As String) As Variant
    ' Reads all lines from the text and stores them in an array
    Dim allLines() As String
    Dim lineIndex As Integer
    Dim i As Integer
    Dim str As String
    Dim currentLine As String

    lineIndex = 0
    currentLine = ""

    For i = 1 To Len(text)
        str = Mid(text, i, 1)
        ' If newline character is detected
        If Asc(str) = 10 Then
            ReDim Preserve allLines(lineIndex)
            allLines(lineIndex) = currentLine
            lineIndex = lineIndex + 1
            currentLine = ""
        Else
            currentLine = currentLine & str
        End If
    Next i

    ' Ensure last line is included
    ReDim Preserve allLines(lineIndex)
    allLines(lineIndex) = currentLine

    ReadAllLines = allLines
End Function

Function GetClipboardText() As String ' Retrieves plain text from clipboard
    Dim oClip As Object
    Dim oConverter As Object
    Dim oClipContents As Object
    Dim oTypes As Object
    Dim i As Integer
    Dim result As String

    oClip = createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
    oConverter = createUnoService("com.sun.star.script.Converter")
    On Error Resume Next
    oClipContents = oClip.getContents()
    oTypes = oClipContents.getTransferDataFlavors()

    result = ""

    For i = LBound(oTypes) To UBound(oTypes)
        If oTypes(i).MimeType = "text/plain;charset=utf-16" Then
            result = oConverter.convertToSimpleType(oClipContents.getTransferData(oTypes(i)), com.sun.star.uno.TypeClass.STRING)
            Exit For
        End If
    Next i

    GetClipboardText = result
End Function