Excel to word conversion

I imported your picture data into Excel and cleaned my copy up. Then I selected it and did a Copy. See Excel data below:

Then I moved to Word and did a standard Paste command, results shown below:

Do you want the steps in a VBA macro?.

If you just want a copy of the spreadsheet data in Word as a Table, you can copy and paste it.

We would have to know the spreadsheet data layout and the desired Word layout to make other useful suggestions.

Hi,

scenario

convert excel table to word doc.

pic1-excel

pic2 result

in a new word doc

=======================

step1

from vbaProject References

select

Microsoft Word 16 object Library

pic

vba code

Sub Table_Excel_to_Word()

'## 27-06-2023 ##

Dim ws As Worksheet

Set ws = ActiveSheet

Dim sPath

sPath = ThisWorkbook.Path & "\tbl-" & Format(Date, "ddmmyyyy") & ".docx"

Set lo = ws.ListObjects(1)

Dim wdApp As Object

Set wdApp = CreateObject("word.application")

wdApp.Visible = True

Dim wdDoc As Object

Set wdDoc = wdApp.Documents.Add

wdDoc.PageSetup.Orientation = 0 '<< 0=portrait / 1=landscape

With wdDoc.PageSetup

.TopMargin = .Application.CentimetersToPoints(1.8)

.BottomMargin = .Application.CentimetersToPoints(1.8)

.LeftMargin = .Application.CentimetersToPoints(0.5)

.RightMargin = .Application.CentimetersToPoints(0.5)

End With

Dim wdTo As Object

Set wdTo = wdApp.Selection

lo.Range.Copy

wdTo.Range.PasteExcelTable False, False, False

Application.CutCopyMode = False

wdDoc.tables(1) .Columns.AutoFit

Application.DisplayAlerts = False

wdDoc.SaveAs (sPath)

Application.DisplayAlerts = True

wdApp.Activate

End Sub