No.4ベストアンサー
- 回答日時:
こんにちは。
#2の回答者です。
>Unicodeのみの文字判定ツールというのはどういうものですか?
それ自体の理屈は簡単です、その文字コードを、JISに切り替えたときに、文字化けするかどうか、というものです。ただ、それは、JIS,SJIS,区点,Unicode 共有の文字コード検索のアドインで、ずいぶん前に、私のVBAの力を見てもらうためにも作ったものです。
Yahoo のブリーフケースには公開してあるのですが、それを、ここで紹介すると削除されてしまうので、その中身を抜き出して作ってみました。なにぶん、昔に作ったものですから、おかしい部分があるかもしれません。
一応、こちらで試した範囲では、Unicode のみの文字は、記号を含めて、すべて検出するはずです。
JISは、もともと日本独特のものですから、海外に同様のツールはないし、なぜか、ライター用のJIS/区点用のツールがどんどん減ってしまって、Wordに標準装備されていないので、本当は、私も困っています。こらちは、標準的に、Wordを使っているわけではありませんが、納品はWord指定です。
もう1つ困るのは、Office 2007 では、Word側は、Excel側よりも、内部的に、改変されている度合いが高いようです。Word 2003 のVBAコードが、Word 2007 とは共有しないようです。今回のコードは、Word 2003 までしか分かりません。
-------------------------------------------------
'今回は、Wordの標準モジュールに入れてください。
Public Const MYCOLOR As Long = wdColorRed '色-赤
Sub UnicodeLettersSearch()
'Unicode検索プログラム
Dim mySelection As Selection
Dim num As Long, t As Long
Dim TowByte() As String
Dim j As Long
Dim i As Long
Dim ltr As String
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Set mySelection = Selection
For i = 1 To Len(mySelection)
ltr = Mid$(mySelection, i, 1)
num = AscW(ltr)
t = Asc(ltr)
If (num <> 63 And t = 63) Or (num > 0 And num < 1000 And num <> t) Then
ReDim Preserve TowByte(j)
TowByte(j) = ltr
j = j + 1
End If
Next i
If j = 0 Then
MsgBox "単語は見つかりません。", vbInformation
Selection.HomeKey Unit:=wdStory
Exit Sub
End If
Application.ScreenUpdating = False
For j = 0 To UBound(TowByte)
WordHilightPrc TowByte(j)
Next
Application.ScreenUpdating = True
Selection.HomeKey Unit:=wdStory
End Sub
Private Sub WordHilightPrc(ByVal myStr As String)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
.Text = myStr
.Replacement.Text = myStr
.Replacement.Font.Color = MYCOLOR
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Wendy02さん、お答えありがとうございます。
文字判定ツールやってみました。
すごいです!希望どおりのものです。
とりあえず、こちらを使わせていただこうと思います。
大変助かりました。
ありがとうございました。
No.3
- 回答日時:
> 「はしご高」など、UNICODEにあって、JISにない文字のみ強調したい
> です。
[PRB] SHIFT - JIS と Unicode 間の変換問題 - Microsoft
http://support.microsoft.com/kb/170559/ja
この話ね・・・398個の文字コードチェックすることになるけど?
たとえ話で、聞いてね
Dim usChar As Object
Dim usCode As String
For Each usChar In ActiveDocument.Range.Characters
usCode = Hex(AscW(usChar.Text))
Select Case usCode
Case "2252", …, "9AD9", …
usChar.Font.Color = wdColorRed
usChar.Bold = 1
Case Else
usChar.Font.Color = wdAnimationNone
usChar.Bold = 0
End Select
Next usChar
の様に、Caseのところで398個並べるとか・・・
No.2
- 回答日時:
こんにちは。
ご質問の意味は、JISで検索して、それ以外のものを吐き出すということですね。ところが、VBA内もUnicode なので、一旦、検索をJISに替えないといけないわけですが、それが出来るか分からないですね。通常、私はもっと簡単な方法しかしていないからです。どの程度のものを望んでいるかにもよります。
たぶん、出来るような気はするのですが、わざわざ、そういうコードを作るのも、自分自身のことなので、面倒なのです。あえて、WordをJISに切り替えて、吐き出すという方法もないというわけではないのですが、試したことがありません。非JIS、Unicodeのみの文字判定ツールは作ったことがありますが、遊びの範囲です。
私は、本当に簡単なことですが、メモ帳やテキストエディタの標準仕様は、JISですし、また、ExcelもJISなので、テキストで貼り付けて、そこで、文字化け「?」を探してしまいます。特に、米国系のニュースサイトは、Unicode 文字が出てきてしまい、本物の「?」かどうか、ちょっとみた分には見分けが付かないことも多いですが。
私の使っているUnicode 文字の正規表現検索(テキストエディタから)
(本物か違うものか区分けが出来ませんが、あまり全体には影響ありません。)
検索値
(\s)\?(\s)|^[??](\s*)
お答えありがとうございます。
簡単にはできないかもしれませんね。
Unicodeのみの文字判定ツールというのはどういうものですか?
現在、秀丸に貼り付けて、保存するときに警告ダイアログがでるので、それで対応しています。
あらかじめ、WORD上で処理できたらな~と思い、質問しました。
また、いい案がありましたら、お願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Word(ワード) PCで作ったwordをスマホで編集しようとすると「このファイルは読み取り専用です。」と表示される。 3 2023/05/30 14:51
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
- Excel(エクセル) エクセルで隣(右or左)のセルと同じ文字色にしたい 2 2022/12/13 11:33
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- PDF 「PDF文書を簡単にWordで編集する方法」と 罫線が 図形で出力されるのは? 6 2022/06/14 06:51
- Word(ワード) Wordで1行の文字数を数値設定 2 2023/04/03 21:57
- C言語・C++・C# VisualStudioのソースコードで漢字を使いたい 4 2022/05/21 10:16
- Visual Basic(VBA) VBAでWordのネストした表にデータを挿入したい 4 2023/04/24 10:18
- Visual Basic(VBA) 違う文字のみ色を塗る方法がわかりません。。 G列とH列のに文字が入っています。 例えばG5とH5の文 3 2022/06/03 17:13
- Word(ワード) Wordのデータが毎回破損してしまう 1 2022/08/24 11:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
“髙”という字の出し方教えてく...
-
Word文書に、チェックマーク(...
-
DXFをAutoCADで開くと文字位置...
-
PDFまたはTIFFファイルに文字を...
-
Shift_JISで表示できて、UTF-8...
-
word の文字入力 文字が青色に...
-
Thunderbirdの添付ファイル名に...
-
ファイル名で最後に認識される文字
-
ノーツ送信する際の多言語mine...
-
8ポイントより小さい文字が打ち...
-
文字にうりよくで、〜いれると1...
-
イラストレーターで文字が半角...
-
エクセルの「IF」の結果の文...
-
CASE MARKの表記方法について
-
単語登録で・・
-
PDFソフト
-
abode acrobat pro dc の文字編...
-
文字化け
-
イラストACでaiデータの文字が...
-
文字がにじむ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word文書に、チェックマーク(...
-
AUTO-CADで文字の太さを太くす...
-
word の文字入力 文字が青色に...
-
“髙”という字の出し方教えてく...
-
Shift_JISで表示できて、UTF-8...
-
DXFをAutoCADで開くと文字位置...
-
エクセルの「IF」の結果の文...
-
PDFまたはTIFFファイルに文字を...
-
Wordからtxtに変換すると枚数,...
-
CASE MARKの表記方法について
-
Thunderbirdの添付ファイル名に...
-
「てぃ」という文字をローマ字...
-
ノーツ送信する際の多言語mine...
-
漢字を出したい!
-
1分間に何文字打てるか
-
Word で項目番号 ○の21 から...
-
「~が言うには」の違う言い方
-
AutoCAD 複数の文字を1つの文字...
-
今更ながら小さい文字の打ち方
-
A4サイズの紙いっぱいに1文...
おすすめ情報