Command Line GUI makes everyday PowerShell and CMD scripts easier and safer to use. It combines the flexibility of command-line tools with familiar file pickers, folder selection, input fields, progress tracking, and reusable templates.

Instead of manually editing paths and parameters every time, you can paste or load a script, complete a simple form, and run the command directly from the application.

The app helps eliminate common command-line frustrations, including:

• Long or complicated file paths
• Incorrectly quoted paths
• Hard-to-remember command options
• Frequently repeated scripts
• Output that is difficult to follow
• Commands that take a long time to complete

Built-in templates cover common tasks such as Robocopy file transfers, FFmpeg conversions, ZIP operations, file searches, batch renaming, networking commands, and simple local web servers.

You can also bookmark frequently used files and folders, then insert them into fields by selecting or dragging them.

How It Works

Scripts can contain placeholders that describe the information they require:

<input_video:file:Input video>
<target_folder:folder:Target folder>
<port:text:Port:default=8000>

Command Line GUI automatically detects these placeholders and creates the appropriate form controls. File placeholders become Windows file pickers, folder placeholders open a folder browser, and text placeholders become standard input fields.

Folder inputs can also include a subfolder option for templates that support recursive processing.

When you click Run, the app replaces each placeholder with the selected value and builds the final command. File and folder paths are quoted correctly for the chosen shell, allowing paths containing spaces to work reliably.

You can review the generated script before it runs. The command is then executed through PowerShell or CMD as a hidden background process.

Output from the command is streamed directly into the application, allowing you to follow its progress without switching windows. If the command reports percentages, the progress bar is updated automatically. Optional output logging saves the complete results of each run in a timestamped log file.

Download and Source Code

View the source code and project documentation on GitHub.

Download the latest Windows executable from the GitHub Releases page.

If you’ve ever pasted or imported text into LibreOffice Writer from another source, you might have run into a common formatting headache:
the headings are all too high in the hierarchy.

For example, what should be a “Heading 2” in your document appears as “Heading 1,” bumping your outline out of balance and making your document structure harder to follow.

Why this happens

When content comes from another program — such as a web page, Markdown editor, or PDF — LibreOffice tries to match the original formatting to its built-in paragraph styles. It doesn’t always guess correctly, and often everything gets assigned to the top-level heading style.

The result: your imported section titles are at the wrong outline level, and fixing them manually means tediously selecting each heading and changing it one at a time.

A faster, smarter approach

You can save time by using a small LibreOffice macro that:

• Works only on the selected text, leaving the rest of your document untouched.
• Detects built-in heading styles (in English or Finnish).
• Shifts every heading in the selection down one level — for example, Heading 1 becomes Heading 2, Heading 2 becomes Heading 3, and so on.
• Keeps both the paragraph style and the document outline structure in sync.

How it works

The macro loops through each paragraph in your selection.
If it finds a heading style, it replaces it with the next-level heading style and adjusts the outline level property so that your Navigator view stays accurate.

This makes it ideal when:

• You’ve pasted content that should be subordinate to your main document’s headings.
• You need to merge multiple documents without breaking the hierarchy.
• You’re working with structured outlines that must remain consistent.

The benefits

With one quick run, you can:

• Preserve the original heading hierarchy while fitting it into your existing document.
• Avoid manual, repetitive style changes.
• Keep your outline and navigation tools accurate and easy to use.

How to Create and Run the Heading-Downgrade Macro in LibreOffice Writer

Follow these steps to add the macro to LibreOffice Writer and use it on your selected text.

1. Open the LibreOffice Macro Editor

1. In LibreOffice Writer, go to Tools → Macros → Organize Macros → LibreOffice Basic.
2. In the dialog that appears, select either:
   • My Macros → Standard (makes the macro available in all documents), or
   • Your current document (macro will be saved only with this file).
3. Click New to create a new module, then give it a name (e.g., HeadingTools).

2. Paste the Macro Code

1. In the macro editor window, delete any sample code that’s there.
2. Paste the full macro code into the window (you’ll find the code below).
3. Click the Save icon or press Ctrl+S.
4. Close the macro editor.

3. Run the Macro

1. In your Writer document, select the text whose headings you want to downgrade.
2. Go to Tools → Macros → Run Macro….
3. In the dialog, navigate to the module where you saved the macro, select DowngradeSelectedHeadings, and click Run.
4. All headings in your selection will shift down by one level.

The code to paste:

Option Explicit

' --- Utilities ---
Private Function HasUnoProperty(o As Object, propName As String) As Boolean
    On Error GoTo EH
    HasUnoProperty = o.getPropertySetInfo().hasPropertyByName(propName)
    Exit Function
EH:
    HasUnoProperty = False
End Function

Private Function DemoteHeadingStyleName(ByVal s As String) As String
    ' Downgrade “Heading n” (EN) or “Otsikko n” (FI) by one level
    Dim prefixes(1) As String
    prefixes(0) = "Heading"
    prefixes(1) = "Otsikko"

    Dim i As Integer
    For i = LBound(prefixes) To UBound(prefixes)
        Dim pre As String : pre = prefixes(i)
        If Left$(s, Len(pre) + 1) = pre & " " Then
            Dim lvl As Integer : lvl = Val(Mid$(s, Len(pre) + 2))
            If lvl >= 1 And lvl < 10 Then
                DemoteHeadingStyleName = pre & " " & (lvl + 1)
            Else
                DemoteHeadingStyleName = s
            End If
            Exit Function
        End If
    Next i
    DemoteHeadingStyleName = ""  ' not a built-in heading style
End Function

' --- Main ---
Sub DowngradeSelectedHeadings()
    Dim oSel As Object
    oSel = ThisComponent.getCurrentSelection()
    If IsNull(oSel) Then Exit Sub

    If oSel.supportsService("com.sun.star.text.TextRanges") Then
        Dim i As Integer
        For i = 0 To oSel.getCount() - 1
            DemoteInRange oSel.getByIndex(i)
        Next i
    ElseIf oSel.supportsService("com.sun.star.text.TextRange") Then
        DemoteInRange oSel
    Else
        MsgBox "Please select text in Writer.", 64, "Downgrade headings"
    End If
End Sub

Private Sub DemoteInRange(oRange As Object)
    Dim oText As Object, oCursor As Object, oEnum As Object
    oText = oRange.getText()

    ' Create a cursor that spans exactly the selection
    oCursor = oText.createTextCursorByRange(oRange)
    oCursor.gotoRange(oRange.getEnd(), True)

    ' Enumerate paragraphs within the selection
    oEnum = oCursor.createEnumeration()
    Do While oEnum.hasMoreElements()
        Dim oPara As Object
        oPara = oEnum.nextElement()

        ' Safety: only handle real paragraphs
        If oPara.supportsService("com.sun.star.text.Paragraph") Then
            ' 1) Demote outline level if present
            If HasUnoProperty(oPara, "ParaOutlineLevel") Then
                Dim lvl As Integer
                lvl = oPara.ParaOutlineLevel
                If lvl >= 1 And lvl < 10 Then
                    oPara.ParaOutlineLevel = lvl + 1
                End If
            End If

            ' 2) Demote built-in heading style names (EN/FI)
            If HasUnoProperty(oPara, "ParaStyleName") Then
                Dim s As String, sNew As String
                s = oPara.ParaStyleName
                sNew = DemoteHeadingStyleName(s)
                If sNew <> "" Then oPara.ParaStyleName = sNew
            End If
        End If
    Loop
End Sub