VBAを使用してPowerPointでダブル空白行を削除する方法？

私はMS AccessからMS PowerPointにデータをエクスポートしています。データの一部は、単一のフィールドの行間にENTERを打つように、複数の段落を持つテキストフィールド（長い）です。これは、私が明確にしたい様々な現象の輸出の結果です。最も邪魔になるのは、Powerpointスライドに表示されるコントロールと特殊文字です。VBAを使用してPowerPointでダブル空白行を削除する方法？

I主に使用しようとします：検索と置換」のような方法を

shp.TextFrame.TextRange.Text =置き換え（shp.TextFrame.TextRange.Textを、 "これ"、 "" という）

しかし、私は二重の空白行の問題を解決する方法がわかりません。さらに、改行文字と組み合わせのセット全体があるようです（This SO questionを参照）、どの文字がそこにあるのかわかりません。 MS Wordの検索と置換の機能がこれらをサポートしているので比較的簡単です珍しい文字。そうではありません。

おかげ

出典

2017-04-20 zazkapulsk

は、そのすべてのインライン書式は削除されません

With shp.TextFrame.TextRange 
    .Text = removeMultiBlank(.Text) 
End With

出典

2017-04-20 07:59:13

のようにそれを使用して、複数の空白行に

Function removeMultiBlank(s As String) As String With CreateObject("VBScript.RegExp") .Global = True .MultiLine = True .IgnoreCase = True .Pattern = "^\s" removeMultiBlank= .Replace(s, "") End With End Function

を削除するには、このマクロを試してみてください？ – Jbjstam

@Jbjstamはい、そうです。 OPはそれを書式付きテキストに使用しないでください。 Accessからインポートされたテキストに役立ちます。 –

ああ、その部分を見落とした。 upvoteを持ってください！ – Jbjstam

VBAを使用してPowerPointでダブル空白行を削除する方法？

答えて

関連する問題