0

ユーザーが 1 つまたは複数のテキスト ファイルを PowerPoint のフィールドにインポートできるようにする関数を作成しました。これは本当にうまくいきます。ユーザーはフィールドをクリックし、カスタム メニューのボタンをクリックして、リストからファイルを選択し、そこに移動します。私が抱えている問題は、インポートされた各テキストの間に 2 つの改行を入れなければならないことです。つまり、最後に 2 つの改行が残っています。

これは、私が見つけた段落を削除する通常の結果です:

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=27, Length:=1).Select
ActiveWindow.Selection.TextRange.Text = ""

これは、フィールドを削除するには、選択したフィールドの最後の位置を計算する必要があることを示唆しています。誰かが私がこれについてどのように行くかについて私に考えを与えることができますか?

4

1 に答える 1

0

この解決策は少し簡単です (テストされていません):

dim tmpTXT as string
    tmpTXT = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text = Left(tmpTXT, len(tmpTXT) -1)

より良い形にテキストを書き込む前に、以前に同様のことを行うことができます。

于 2014-01-22T14:56:37.840 に答える