If you create a Style with the required formatting beforehand, you could use a macro like:
Sub AllTablesToText1()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range
With ActiveDocument
For i = .Tables.Count To 1 Step -1
Set Rng = Tables(i).ConvertToText(wdSeparateByTabs, True)
Rng.Style = "MyStyle"
Next
End With
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub
where "MyStyle" is the Style name.
Failing that, you can have the macro create the Style:
Sub AllTablesToText2()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range, StrSty As String
StrSty = "MyStyle"
With ActiveDocument
On Error Resume Next
.Styles.Add Name:=StrSty, Type:=wdStyleTypeParagraph
On Error GoTo 0
With .Styles("MyStyle")
With .Font
.Name = "Arial"
.Size = 11
End With
With .ParagraphFormat
.LeftIndent = CentimetersToPoints(1.5)
.RightIndent = CentimetersToPoints(1.5)
.Alignment = wdAlignParagraphLeft
.Space15
.SpaceBefore = 0
.SpaceAfter = 0
End With
End With
For i = .Tables.Count To 1 Step -1
Set Rng = Tables(i).ConvertToText(wdSeparateByTabs, True)
Rng.Style = StrSty
Next
End With
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub
The least desirable (and slowest) approach is to simply override whatever Styles are already present:
Sub AllTablesToText3()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range
With ActiveDocument
For i = .Tables.Count To 1 Step -1
Set Rng = Tables(i).ConvertToText(wdSeparateByTabs, True)
With Rng
With .Font
.Name = "Arial"
.Size = 11
End With
With .ParagraphFormat
.LeftIndent = CentimetersToPoints(1.5)
.RightIndent = CentimetersToPoints(1.5)
.Alignment = wdAlignParagraphLeft
.Space15
.SpaceBefore = 0
.SpaceAfter = 0
End With
End With
Next
End With
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub
There's nothing in the code you're using that would explain why a '!' might change to ','.
Cheers
Paul Edstein
[MS MVP - Word]
Need help with a macro and a question about them on Mac
