カタカナ語抽出方法 (ベストアンサーに300 ～ 500 pt程度)

Sub Macro1()
    Dim objExp As Object
    Dim objMatchs As Object
    Dim objMatch As Object
    Dim words As String
    Dim words_count As Long

    Set objExp = CreateObject("VBScript.RegExp")
    
    Selection.WholeStory: 'すべて選択
    With objExp
        .Global = True
        .Pattern = "[ア-ヵー]+": 'カタカナにマッチ
        .Ignorecase = False
        Set objMatchs = .Execute(Selection)
    End With
    
    For Each objMatch In objMatchs
        With objMatch
            If (InStr(words, .Value & vbCrLf)) = 0 Then words = words + .Value & vbCrLf
        End With
    Next objMatch

    Debug.Print words
End Sub
|<
※Word2000で確認してます。
※とりあえず改行コード（vbCrlf）で区切ってます。