Import csv to word

Сконвертируйте ваши csv-файлы в doc онлайн и бесплатно

You can open a CSV file like any other Word document since it is a text file.  If all the information is text information it’s relatively easy.  But if it contains numeric values you might have to work a little.

The following information came from a spreadsheet program, and the columns were delimited by commas.  This means that the fixed boundaries of each column were identifed by commas. (Sometimes semi-colons are used.)  There were only four columns in the spreadsheet file, but because some of the values were formatted with commas, those values are surrounded by quotes.  Sometimes those extra quotes can throw off the column count.

To put it into a more readable format, you convert it into a table.  Just select all of the rows and from the Insert Table menu select Convert Text to Table. 

In the next dialog box we need to notify Word that the information is being delimited by commas.  Notice that Word has incorrectly decided that there are six columns to convert. 

We can change it to four and then click OK. This is the result:

You can try to edit the data first and then convert to a table.  A better solution would be to ensure that the file is exported into CSV format when it is in a General numeric format (without commas separating thousands).

When you convert the same file without the extra commas in the numeric values, Word guesses the correct number of columns.

This time the file is converted correctly.

After some quick formatting it can look like this.  

Hi All,

Looking for some help here.

I have multiple CSV files and want to import them into Word Table.

My problem is I don’t know «Column Name» in the CSV file I am trying to import. For example, some CSV files might contain different columns.

I am using below code to import complete CSV in a Word table but it doesn’t work.

$Word = New-Object -comobject word.application
$Word.Visible = $true
$Doc = $Word.Documents.Add()
$Range = $Doc.Range()
#text could also come from a file via import-csv
$CSVFile = «C:TempCSV.CSV»

#$text=(Get-Process | select Handle,ID,Name  | ConvertTo-Csv -NoTypeInformation | Out-String) -replace ‘»‘,»
$text=Import-Csv $CSVFile

$Range.Text = «$text»
$separator=[Microsoft.Office.Interop.Word.WdTableFieldSeparator]::wdSeparateByCommas
$table=$Range.ConvertToTable($separator)
$table.AutoFormat([Microsoft.Office.Interop.Word.WdTableFormat]::wdTableFormatElegant)

Your help is very much appreciated.

Thanks,

Nick

There is a in-built Python library named csv which can be used to parse the CSV file. Then to write to a Word document you can use a library named python-docx. The following are the basic example for reading a CSV file and writing some data to Word Document.

READ CSV CODE: source

>>> import csv
>>> with open('eggs.csv', 'rb') as csvfile:
...     spamreader = csv.reader(csvfile, delimiter=' ', quotechar='|')
...     for row in spamreader:
...         print ', '.join(row)
Spam, Spam, Spam, Spam, Spam, Baked Beans
Spam, Lovely Spam, Wonderful Spam

WRITE TO WORD: source

from docx import Document
from docx.shared import Inches

document = Document()

document.add_heading('Document Title', 0)

p = document.add_paragraph('A plain paragraph having some ')
p.add_run('bold').bold = True
p.add_run(' and some ')
p.add_run('italic.').italic = True

document.add_heading('Heading, level 1', level=1)
document.add_paragraph('Intense quote', style='Intense Quote')

document.add_paragraph(
    'first item in unordered list', style='List Bullet'
)
document.add_paragraph(
    'first item in ordered list', style='List Number'
)

document.add_picture('monty-truth.png', width=Inches(1.25))

records = (
    (3, '101', 'Spam'),
    (7, '422', 'Eggs'),
    (4, '631', 'Spam, spam, eggs, and spam')
)

table = document.add_table(rows=1, cols=3)
hdr_cells = table.rows[0].cells
hdr_cells[0].text = 'Qty'
hdr_cells[1].text = 'Id'
hdr_cells[2].text = 'Desc'
for qty, id, desc in records:
    row_cells = table.add_row().cells
    row_cells[0].text = str(qty)
    row_cells[1].text = id
    row_cells[2].text = desc

document.add_page_break()

document.save('demo.docx')

Hope it helps

Import csv into a Word document

 Sub testcsvtoword()
Dim Chooseroute As FileDialog
Set Chooseroute = Application.FileDialog(msoFileDialogFilePicker)
Chooseroute.Filters.Add "Spreadsheets", "*.csv; *.xlsx; *.xls"
Chooseroute.InitialView = msoFileDialogViewTiles
Chooseroute.InitialFileName = "C:"
If Not Chooseroute.Show() = True Then
        Exit Sub
End If
 '-< check >-
    '</ Empty Folder >
    If Chooseroute.SelectedItems().Count = 0 Then
        Exit Sub
    End If