VBA for finding all words beginning with § and transfering them in Excel

I have no VBA expertise in Word or Excel, but if a series of paragraphs or rows, one word in each, would do what you want, then you can use a simple Find operation:

1. Press Ctrl+F to open the Find dialog.
2. Check the box for "Highlight all items found in" and select "Main Document."
3. Click More to expand the dialog.
4. Check the box for "Use wildcards."
5. Paste this search string into the "Find what" box: §[A-Za-z]{1,}>
6. Click Find All. All the words will be selected.
7. Click on the title bar of the document to return focus to it without deselecting the found words.
8. Press Ctrl+C to copy the selected words.
9. Press Ctrl+V to paste the words into a new blank document (one per paragraph) or into Excel (one per row).

Note: If the terms to be found contain numbers, the search string should be §[A-Za-z0-9]{1,}>

From Excel VBA, the following function will list the Words in a named document. You can call the function as in the Test Macro and process as you wish.

Function GetWords(strDocFullName As String) As String

Dim wdApp As Object

Dim wdDoc As Object

Dim oRng As Object

Dim bStarted As Boolean

Dim strWordList As String

    On Error Resume Next

    Set wdApp = GetObject(, "Word.Application")

    If Err Then

        Set wdApp = CreateObject("Word.Application")

        bStarted = True

    End If

    On Error GoTo 0

    Set wdDoc = wdApp.Documents.Open(strDocFullName)

    Set oRng = wdDoc.Range

    strWordList = ""

    With oRng.Find

        Do While .Execute(FindText:="§*>", MatchWildcards:=True)

            strWordList = strWordList & "|" & oRng

        Loop

    End With

    strWordList = Right(strWordList, Len(strWordList) - 1)

    wdDoc.Close 0

    If bStarted Then wdApp.Quit

    GetWords = strWordList

End Function

Sub Test()

    MsgBox GetWords("D:\Path\docname.docx")

End Sub