Application.CleanString メソッド (Word)
指定した文字列から印刷されていない文字 (文字コード 1 から 29) と特殊文字を削除するか、空白 (文字コード 32) に変更します。 結果を 文字列 として返します。
構文
式。 CleanString( _String_ )
式Application オブジェクトを表す変数。 オプション。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| String | 必須 | String | ソース文字列を指定します。 |
注釈
文字コードは次のように変換されます。
| 文字コード | 説明 |
|---|---|
| 7 (警告音) | 文字コード 7 の前に文字コード 13 (段落記号) がない場合は、削除されてから文字コード 9 (タブ文字) に変換されます。 |
| 10 (改行文字) | 文字コード 10 の前に文字コード 13 (段落記号) がない場合は、文字コード 13 に変換されてから削除されます。 |
| 13 (段落記号) | 変換されません。 |
| 31 (任意指定のハイフン) | 削除されます。 |
| 160 (改行をしないスペース) | 文字コード 32 (スペース) に変換されます。 |
| 172 (任意指定のハイフン) | 削除されます。 |
| 176 (改行をしないスペース) | 文字コード 32 (スペース) に変換されます。 |
| 182 (段落記号) | 削除されます。 |
| 183 (行頭文字) | 文字コード 32 (スペース) に変換されます。 |
例
次の使用例は、選択した文字列から印刷されない文字を削除し、結果を新しい文書に挿入します。
Dim strClean As String
Dim docNew As Document
strClean = Application.CleanString(Selection.Text)
Set docNew = Documents.Add
docNew.Content.InsertAfter strClean
次の使用例は、選択したフィールド コードから印刷されない文字を削除し、結果を表示します。
ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
ActiveDocument.Fields(1).Select
MsgBox Application.CleanString(Selection.Text)
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「https://aka.ms/ContentUserFeedback」を参照してください。
フィードバックの送信と表示