13/05/02 10:24:49.13
>>836
変換したい範囲を選択してから実行
Sub sample2()
Dim myRng As Range
Set myRng = Selection.Range
With myRng.Find
.Text = " "
.Replacement.Text = "^t"
.Execute Replace:=wdReplaceAll
End With
Selection.Range.ConvertToTable
ActiveDocument.Tables(1).Columns(1).Delete
ActiveDocument.Tables(1).ConvertToText Separator:=" "
End Sub