- 835 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2013/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
