ChatGPT helps building PBs

First, I had a Word document with the Text of the KKK (online for free at http://www.vatican.va ) and identified the correct format of the Milestones, which would be like "[[@CCC:CCC 1]] "

Then, I went to https://chatgpt.com

It adressed me in German. I asked the following question:

Das Dokument enthält am Beginn von Abschnitten Zahlen zwischen 200 und 3000. Ich brauche ein Makro, das vor jeder Zahl folgenden Text einbaut: "[[@CCC:CCC xxx]] ", wobei xxx durch die Zahl, die nach dem Leerschlag folgt, ersetzt werden soll.

It resulted the following text:

Sub AddTextBeforeNumber()

Dim para As Paragraph

Dim rng As Range

Dim number As Long

Dim regex As Object

Dim match As Object

' Erstellen eines regulären Ausdrucks, um Zahlen zwischen 200 und 3000 zu finden
Set regex = CreateObject("VBScript.RegExp")
regex.IgnoreCase = True
regex.Global = True
regex.Pattern = "\b([2-9][0-9]{2}|[12][0-9]{3}|3000)\b" ' Zahlen zwischen 200 und 3000

' Durchlaufe alle Absätze im Dokument
For Each para In ActiveDocument.Paragraphs
    Set rng = para.Range
    
    ' Finde alle Zahlen, die dem Muster entsprechen
    If regex.Test(rng.Text) Then
        Set match = regex.Execute(rng.Text)
        
        ' Füge vor jeder gefundenen Zahl den gewünschten Text ein
        For Each m In match
            number = m.Value
            rng.InsertBefore "[[@CCC:CCC " & number & "]] "
        Next m
    End If
Next para

End Sub

Then, the site automatically gave an explanation:

Erklärung:

• Das Makro durchsucht jeden Absatz im Dokument nach Zahlen im Bereich zwischen 200 und 3000.

• Es verwendet reguläre Ausdrücke (regex), um nach diesen Zahlen zu suchen.

• Wenn eine Zahl gefunden wird, fügt es den Text [[@CCC:CCC xxx]] direkt vor dieser Zahl ein, wobei xxx durch die Zahl ersetzt wird.

Schritte zum Einfügen des Makros:

1. Öffne MS Word.

2. Drücke Alt + F11, um den VBA-Editor zu öffnen.

3. Klicke im Menü auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.

4. Kopiere den obenstehenden Code und füge ihn in das Modul ein.

5. Schließe den VBA-Editor.

6. Um das Makro auszuführen, drücke Alt + F8, wähle das Makro AddTextBeforeNumber und klicke auf Ausführen.

Das Makro sollte dann den gewünschten Text vor jeder Zahl im Dokument einfügen.

Only to demonstrate the capability of the tool. I could imagine to use a similar procedure for adding other Milestones in German PBs like the Works of Homer, Vergil etc.

In fact, I got kind of 5 errors for duplicate entries due to Year numbers, which I corrected manually.

I'd love to share the final result, but I hesitate to do so until some Logos Official green lights this.

The point I wanted to make is only how incredibly easy it is to insert Milestones in an already existing Word document. And encourage anyone to try doing similar (maybe better) requests in an third party AI. This could skyrocked the creation of PBs IMHO.