nisus.com

Code: Select all

Sub SortTableByFirstColumn()
    If Selection.Information(wdWithInTable) Then
        Selection.Tables(1).Sort ExcludeHeader:=False, _
            FieldNumber:=1, _
            SortFieldType:=wdSortFieldAlphanumeric, _
            SortOrder:=wdSortOrderAscending
    Else
        MsgBox "Please place the cursor inside a table to sort."
    End If
End Sub

Code: Select all

Sub ImportAndSortCSV()
    Dim fd As FileDialog
    Dim filePath As String
    Dim fileNum As Integer
    Dim fileLine As String
    Dim rowData() As String
    Dim docTable As Table
    Dim row As Integer, col As Integer
    
    ' Ask user to pick CSV file
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.Title = "Select a CSV File"
    fd.Filters.Clear
    fd.Filters.Add "CSV Files", "*.csv"

    If fd.Show <> -1 Then
        MsgBox "No file selected."
        Exit Sub
    End If
    filePath = fd.SelectedItems(1)
    
    ' Read file and insert table
    fileNum = FreeFile
    Open filePath For Input As #fileNum
    
    row = 0
    Do Until EOF(fileNum)
        Line Input #fileNum, fileLine
        rowData = Split(fileLine, ",")
        If row = 0 Then
            ' First row: create table
            Set docTable = ActiveDocument.Tables.Add(Selection.Range, 1, UBound(rowData) + 1)
        Else
            docTable.Rows.Add
        End If
        For col = 0 To UBound(rowData)
            docTable.Cell(row + 1, col + 1).Range.Text = Trim(rowData(col))
        Next col
        row = row + 1
    Loop
    Close #fileNum

    ' Sort by first column
    docTable.Sort ExcludeHeader:=False, _
        FieldNumber:=1, _
        SortFieldType:=wdSortFieldAlphanumeric, _
        SortOrder:=wdSortOrderAscending
End Sub

Code: Select all

Table:Sort Rows:Sort by Selected Column Ascending (A-Z)