エクセル2002のVBAで太文字を検索したいのですが、

質問

エクセル2002のVBAで太文字を検索したいのですが、

＜状況＞
Ｂ列にチェックしたい文字が入力されています
＜やりたいこと＞
Ｂ列に入力されている文字の中から、太文字のみを抜き出して、
太字の見つかった行のＧ列に太文字のみを抜き出して複写したい

＜自作マクロの現状＞
セル全体の太文字検索は下記のマクロ「太字検索チェック１」で完成しましたが、
セルに記載してある文字の中で「一部は普通文字、のこり一部は太文字」と混在
しているセルの中身から太文字部分のみを別のセルに抜き出したいのですが、
そのマクロを「太字検索チェック2」のように書きました。

しかし「太字検索チェック2」の「 If dat.Font.Bold = True Then」の部分で
「型が違う・・・」のエラーで先に進みません。

どなたか、セルの中身の太文字のみを抜き出すマクロを教えてください
よろしくお願いします

Sub 太字検索チェック１()

i = 3

Worksheets("テスト").Activate

For Each myRng In Range("B:B")

セル = "ｂ" & i

If Range(セル).Font.Bold = True Then
Cells(i, 7) = Cells(i, 2)　’太字のCells(i, 2)を Cells(i, 7) にコピー
End If

i = i + 1

If i = 1703 Then　’1703番地で終了
Exit For
End If

Next

End Sub

Sub 太字検索チェック2()

i = 3
Worksheets("テスト").Activate

For Each myRng In Range("B:B")

内容 = Cells(i, 2)
文字数 = Len(内容)

For p = 1 To 文字数
dat = Mid(内容, p, 1)
　　　　　 X=8+P

If dat.Font.Bold = True Then　　’１文字づつ太字を検索
Cells(i, X) = dat　　　　　　　　’太字なら→Cells(i, X) にコピー
End If

Next

i = i + 1

If i = 1703 Then
Exit For
End If

Next

End Sub

回答No.2

kmetu · ベストアンサー

For P = 1 To 文字数
X = 8 + P
If Cells(i, 2).Characters(P, 1).Font.Bold = True Then
Cells(i, X) = Cells(i, 2).Characters(P, 1).Text
End If
Next

に変更してください。

お礼

ご指導ありがとうございました

回答No.1

bin-chan

変数の宣言部分が無いようですね。
Option Explicitを宣言する習慣付けしたほうが良いですよ。

問題が生じるのは、
> dat = Mid(内容, p, 1)
と代入した変数 dat に Font　がぶら下がって無いから。

過去問の「Excel文字列中の太字(Bold)部分のみ文字色を一括して変換する方法」が
参考になると思います。

参考URL：

http://okwave.jp/qa/q2965758.html