
No.1ベストアンサー
- 回答日時:
WordのVBAの場合 選択範囲を Selectionオブジェクトで取得出来ます
このオブジェクトの Charctersプロパティを使うと1文字ごとに処理できます
dim ch as range
for each ch in selection.charcters
' 取り消し線が設定されている場合
if ch.font.StrikeThrough <> 0 then
ch.font.StrikeThrough = 0
end if
next
といった具合にすれば 取り消し線を解除出来ます
文字を削除する場合は
dim ch as range
for each ch in selection.charcters
' 取り消し線が設定されている場合
if ch.font.StrikeThrough <> 0 then
ch.Delete
end if
Next
といった具合で出来ますよ
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
Excelでフィルタをかけると警告...
-
UserForm1.Showでエラーになり...
-
ExcelVBAでのNZ関数について
-
【VB】【エクセル操作】 SaveAs...
-
テキストボックス中の文字列の...
-
横軸ラベルの追加に関するエラ...
-
EXCEL VBA オートシェイプナン...
-
VBScriptからDLL参照設定したい
-
「オブジェクト変数または With...
-
VBA:オートシェイプの線の長...
-
エクセルVBAでcode128のバー...
-
AccessVBAで「dim dbs as datab...
-
実行時エラー 3265「要求された...
-
textBox isNot Nothing とは
-
VBAで作成するメール(開封確認...
-
Excel VBAでIEにアクセスするプ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
テキストボックス中の文字列の...
-
エクセルのVBAの標準モジュール...
-
Excelでフィルタをかけると警告...
-
実行時エラー 3265「要求された...
-
上下の位置揃えについて
-
ExcelVBAでのNZ関数について
-
VBAで既に開いている別アプリケ...
-
VBAで Set wb = Sheets(1).Cop...
-
AccessVBAで「dim dbs as datab...
-
EXCEL VBA オートシェイプナン...
-
オブジェクト変数またはWITHブ...
-
[VBA]CDOメッセージ送信エラー
-
エクセルマクロエラー「'Cells'...
-
findメソッドの変数について
-
オブジェクトが見つかりません
-
ある文字列が全て数字であるか...
-
オブジェクト変数の取得について
-
CreateObjectとGetObjectの違い
おすすめ情報