Función auxiliar que podría invocarse desde una base de datos de access que esté arreglando errores en abies, o desde una hoja de excel. Su único propósito es trasladar los artículos de una frase al final. Ejemplo: “El nombre de la rosa” ⇒ “Nombre de la Rosa, El”

Quitararticulo.bas

Option Compare Database
Option Explicit
 
'
'Detecta artículos al comienzo de una palabra y los coloca al final.
'USAR CON PRECAUCION, puesto que un artículo puede ser homónimo de un pronombre.
'
Function DetectarArticulo(A$)
Dim ListaArticulos As Variant
Dim f As Integer
Dim Articulo As String
ListaArticulos = Array("EL", "LA", "LOS", "LAS", "UN", "UNA", "UNOS", "UNAS", "THE")
For f = 0 To UBound(ListaArticulos)
    Articulo = ListaArticulos(f) + " "
    If Left$(A$, Len(Articulo)) = Articulo Then
        DetectarArticulo = Trim(Mid$(A$, Len(Articulo))) + ", " + Trim(Articulo)
        Exit Function
    End If
Next
If DetectarArticulo = "" Then DetectarArticulo = A$
End Function