人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

カタカナ語抽出方法 (ベストアンサーに300 ? 500 pt程度)
MS Word 2003に貼り付けられた文章からカタカナ語を抽出し、抽出したデータを別の新規文書に貼り付けたいと考えています。実現する方法(おそらくマクロ)を教えてください。

1. カタカナ語とは、連続するカタカナ文字で構成された文字列です。記号、改行、漢字、ひらがな、スペースは含みません。
2. 重複するデータは不要です。同じカタカナ語が複数ある場合、2 つ目以降をカットしたいです。
3. 抽出後のデータは改行、カンマ、タブなどで区切りたいと思います。

Win XP Home を使用しています。
質問等はコメント欄にどうぞ。
よろしくお願いします。

●質問者: にぎたま
●カテゴリ:コンピュータ
✍キーワード:HOME MS PT WIN Word
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● kn1967
●420ポイント ベストアンサー
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)で区切ってます。
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ