multi-char separator in 'convert table to text'?

Steve Kunkel · #1 04-16-2021, 12:21 PM

Hi Folks,

I've been experimenting with "Convert Table to Text." The below code reads the delimiter that I've put in my text box. It works fine, but if I try to use a multi-character delimiter, it only uses the first character. I figure I can add a "find and replace" to force multiple characters in there, but that would be kludgy.

Does anyone know if there's a way to allow multiple characters? I had no luck with Google.

Code:

Private Sub cmdConvertToText_Click()

On Error GoTo ErrorHandler
    If txtSeparator.Value <> "" Then
        Dim mySep As String
        mySep = txtSeparator.Value
        Selection.Rows.ConvertToText Separator:=mySep, NestedTables:=True
    Else
        Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, NestedTables:=True
    End If
Exit Sub

ErrorHandler:
   MsgBox "Run Table Converter after clicking in a table.  Don't 'select' the table, just click in it."

End Sub

Steve Kunkel · #2 04-16-2021, 02:49 PM

I went ahead and put together the kludgy version...

Main code

Code:

Private Sub cmdConvertToText_Click()

On Error GoTo ErrorHandler
    If txtSeparator.Value <> "" Then
       Selection.Tables(1).Select
       Selection.Rows.ConvertToText Separator:="^", NestedTables:=True 'The ^ char is temporary.
       Call DoFindClean("^", (txtSeparator.Value), "0") 'Swap ^ for textbox content.
    Else
        Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, NestedTables:=True
    End If
Exit Sub

ErrorHandler:
   MsgBox "Run Table Converter after clicking in a table.  Don't 'select' the table, just click in it."

End Sub

Function

Code:

Sub DoFindClean(FindText As String, ReplaceText As String, WrapOrNot As String)
  'This module gets called from the Text Cleaner code
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = FindText
        .Replacement.Text = ReplaceText
        .Forward = True
        .Wrap = WrapOrNot
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Note that the carret "^" is used as a placeholer... If a table happened to have one of those characters already it would mess up my system.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Convert Text to Table	kathir1984	Word VBA	2	12-17-2019 03:59 AM
vba detect first char in line and auto insert table	Rogireus	Word VBA	4	10-24-2019 05:25 AM
Convert Text To Table: Separate text at (Other)?	tinfanide	Word VBA	2	01-12-2015 05:26 AM
Text in table for multi-use form (online&hard copy)	abhunter	Word	1	06-11-2013 02:39 PM
Convert graphic to text in a table	Jennifer Murphy	Word	6	01-24-2013 12:56 PM