Breaking News: Grepper is joining You.com. Read the official announcement!

convert table to text

The Sheep answered on October 12, 2022 Popularity 8/10 Helpfulness 1/10

answer convert table to text

convert table to text

Comment

Dim docNew As Document 
Dim tableNew As Table 
Dim intTemp As Integer 
Dim cellLoop As Cell 
Dim rngTemp As Range 
 
Set docNew = Documents.Add 
Set tableNew = docNew.Tables.Add(Range:=Selection.Range, _ 
 NumRows:=3, NumColumns:=3) 
 
intTemp = 1 
 
For Each cellLoop In tableNew.Range.Cells 
 cellLoop.Range.InsertAfter "Cell " & intTemp 
 intTemp = intTemp + 1 
Next cellLoop 
 
MsgBox "Click OK to convert table to text." 
Set rngTemp = _ 
 tableNew.ConvertToText(Separator:=wdSeparateByTabs)

Popularity 8/10 Helpfulness 1/10 Language vb

Source: learn.microsoft.com

Tags: text vba

Link to this answer
Share Copy Link