13/05/01 19:34:13.21
>>834
そのままVBAにしてみた
Sub sample()
Dim myRng As Range
Set myRng = ActiveDocument.Range(0, 0)
With myRng.Find
.Text = " "
.Replacement.Text = "^t"
.Execute Replace:=wdReplaceAll
End With
ActiveDocument.Content.ConvertToTable
ActiveDocument.Tables(1).Columns(1).Delete
ActiveDocument.Tables(1).ConvertToText
End Sub