WORD VBA按升序排序和降序排列

Question

这里是我有的代码，按升序排列数组中的单词。我需要帮助来改变它，以便它还将以单一功能降序排列单词。请帮忙。谢谢！

Function Sort_Asc(ByRef str() As String) 
    Dim iLower As Integer, iUpper As Integer, iCount As Integer, Temp As String 
    Dim str2 As String 
      iUpper = UBound(str) 
      iLower = 1 
      Dim bSorted As Boolean 
      bSorted = False 
      Do While Not bSorted 
       bSorted = True 
       For iCount = iLower To iUpper - 1 
       str2 = StrComp(str(iCount), str(iCount + 1), vbTextCompare) 
        If str2 = 1 Then 
          Temp = str(iCount + 1) 
          str(iCount + 1) = str(iCount) 
          str(iCount) = Temp 
          bSorted = False 
        End If 
       Next iCount 
      iUpper = iUpper - 1 
      Loop 
End Function 

Answer 1

如何

Function Sort(ByRef str() As String, ByVal booAsc As Boolean) 
Dim iLower As Integer, iUpper As Integer, iCount As Integer, Temp As String 
Dim str2 As String 

     iUpper = UBound(str) 
     iLower = 1 

     Dim bSorted As Boolean 
     bSorted = False 
     Do While Not bSorted 
      bSorted = True 
      For iCount = iLower To iUpper - 1 
      If booAsc Then 
       str2 = StrComp(str(iCount + 1), str(iCount), vbTextCompare) 
      Else 
       str2 = StrComp(str(iCount), str(iCount + 1), vbTextCompare) 
      End If 
       If str2 = 1 Then 
         Temp = str(iCount + 1) 
         str(iCount + 1) = str(iCount) 
         str(iCount) = Temp 
         bSorted = False 
       End If 
      Next iCount 
     iUpper = iUpper - 1 
     Loop 
End Function 

，并呼吁使用Sort strArray, False '(False Ascending, True Descending)