MSワード2016マクロ

Question

私はVBAに新しいですが、私は言葉2016テンプレートを持っており、それは次のセクションがあります量はラインのいずれかから欠落している場合私の目標である

Base Amount: $ 

Service Fee: $  

Sales Tax %  $   
Other tax %: $    
Tax 2  %: $  

、そのを削除ライン。

私はマクロを記録してから変更を加えようとしましたが、幸運はありませんでした。私が追加した

Sub TEST() 
    Dim i As Long 
    With Selection.Tables(1) 
     For i = .Rows.Count To 1 Step -1 
      If Len(.Cell(i, 2).Range.Text) = 2 Then 
       .Rows(i).Delete 
      End If 
     Next i 
    End With 
End Sub 

Answer 1

：

• 機能Trimをあなただけのデータを持っていますように、無用なスペースを削除するには、=

<=にコードを変更し

を残しました：

Sub TEST() 
    Dim i As Integer 
    With Selection.Tables(1) 
     For i = .Rows.Count To 1 Step -1 
      If Len(Trim(.Cell(i, 2).Range.Text)) <= 2 Then 
       .Rows(i).Delete 
      End If 
     Next i 
    End With 'Selection.Tables(1) 
End Sub