表の前後の空白をすべて削除する

Question

すべてを削除しようとしています。ワード文書内のすべての表オブジェクトの前後の空白。

With Selection.Find 
    .ClearFormatting 
    .Replacement.ClearFormatting 
    .Text = "^p^p" 
    .Replacement.Text = "" 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = False 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchWildcards = False 
    .MatchSoundsLike = False 
    .MatchAllWordForms = False 
    .Execute Replace:=wdReplaceAll 
End With 

これは、いくつかの新しい改行ではなく、それらのすべてを削除しているようだ：

この

は、私がこれまで持っているコードです。このマクロを実行した後、すべての隠し文字を表示するには、| Pタグの一部が表示されます。

Answer 1

てみチェンジ

.Text = "^p^p" 

.Text = Chr(32) 

に、置き換えるテキストを選択し、次のマクロを実行するために、どの文字を見つけるために。私は私の仕事で使用してきたし、それは完全にこのように動作します

Sub ReplaceAscCode() 
Dim tmpArray As Variant 

tmpArray = Array(7, 13, 32) 

For j = LBound(tmpArray) To UBound(tmpArray) 
    Selection.Text = Replace(Selection.Text, ASC(tmpArray(j)), "") 
Next j 

End Sub 

VBAに置き換える使用

Sub DebugAscCode() 
For i = 1 To Len(Selection.Text) 
    Debug.Print Asc(Mid(Selection.Text, i)) 
Next i 
End Sub 

は、各文字が常にASCコード

[]さんによって表現されます