need vba code to export data from excel to word file

[jackhack33]

Dear experts I have fallen in data to transpose from excel to word manually i am in need of vba code help , i have set of data which is need to copy first 2 rows only 8 columns A:H paste into word with header point The data layer segregate as two layer FY 19-20 one row, FY 21-22 second row first two row copy with header paste into word as vertical third and fourth row as another segment with header value paste into word fifth and sixth row as another segment with header value paste into word thanks

[snb]

There's no VBA in the files.
What VBA did you produce yourself ?

[Aussiebear]

I have fallen in data

Never mind Jackhack33, it'll wash off eventually. In the mean time please stand downwind of everybody

[Paul_Hossler]

Never mind Jackhack33, it'll wash off eventually. In the meantime please stand downwind of everybody

[jackhack33]

no I need vba code to export data from excel to word file

[snb]

I still need an answer to my question.

[jackhack33]

i had tried with my code but it not copy as each 2 segment into one page all range copy in one page i want each 2rows date in one page
i want set location path on code to save word on particular path file
help me on this

Sub run()
  Dim wdDoc As Word.document, wdTbl As Word.Table, wdApp As Object, wdRng As Word.Range
  Dim iRow As Integer, aSheet As Worksheet, iCol As Integer, iPair As Integer
  Dim sPath As String
  Set aSheet = ActiveSheet
  iRow = 2
  sPath = ActiveWorkbook.Path & "\"
  Set wdApp = CreateObject("Word.Application")
  wdApp.Visible = True
  
  Set wdDoc = wdApp.Documents.Add(sPath & "OUTPUT_RESULT-FILE.docx")  
  
  Do While aSheet.Cells(iRow, 1).Value <> ""
    Set wdRng = wdDoc.Range
    wdRng.Collapse Direction:=0
    wdRng.InsertBefore Chr(13) & Chr(13)
    wdRng.Collapse Direction:=0
    wdRng.FormattedText = wdDoc.Tables(1).Range.FormattedText
    Set wdTbl = wdRng.Tables(1)
    For iPair = 0 To 1
      For iCol = 0 To 7
        wdTbl.Cell(iCol + 1, iPair + 2).Range.Text = aSheet.Cells(iRow, 1).Offset(iPair, iCol).Value
      Next iCol
    Next iPair
    iRow = iRow + 2
  Loop
End Sub

pls find the error attachment

thanks

[jolivanes]

https://www.excelforum.com/excel-pro...ml#post5694382

[Aussiebear]

All is not well in the kingdom.... Cross posting, why do people think they can get away with it not being noticed? The internet makes the world a small place and when you are discussing a simple topic of VBA its even smaller. Jackhack33, since you were in the mood for cross posting is there anywhere else you might have cross posted?

[jackhack33]

sorry for that i post across forum might be get solution soon for thread by the way of attitude, i delete my account after here never ask free help on forum
thanks all experts

[jackhack33]

No knowledge of coding

[jackhack33]

i had tried with my code but it not copy as each 2 segment into one page all range copy in one page i want each 2rows date in one page
i want set location path on code to save word on particular path file
help me on this

No coding knowledge

pls find the error attachment

thanks

[Aussiebear]

@jackhack33 Please read the following A message to forum cross posters it will explain why we like people to indicate cross posts. As to your coding issue. I'm not confident with the code that you were given over at Excelforum.com because it talks about using tables within Word. A quick look at some older type code shows an example of copying an Excel range as an Object and then pasting as this Object as a Word.Selection which seems to paste to a new "page" for each Object. However it also requests a clearance of the clipboard per transfer of Object and as such is time consuming. I will continue to seek a solution from the Internet but I have yet to find anything that resembles that which you ask for. In the mean time please read the link provided

[macropod]

No knowledge of coding

You don't even need code for this! It can all be done with a fairly basic mailmerge.

Also cross-posted at:
VBA code to export data to word with header values (msofficeforums.com)
Need vba code to export row values into msword from excel | VBA & Macros | Excel Forum • My Online Training Hub