Loop for copying values from excel file to fill sentences in Word

[Adarsh]

Hello everyone,

I am a novice to VBA and am trying to make a code in VBA, which can take 3 values from different columns in an Excel file and fill it up in a sentence in a Word file. And I wish this Loop to continue and make the same sentence and fill it up as many number of times as the number of data sets filled in the Excel file.


I would be really grateful if someone could suggest how to start and go with achieving it or give the code straightway ! Thanks in advance.


Example >

Excel file
A B C ----Columns --
1 5 9 ----Values --
2 7 3
3 8 4

Word file
Position of Point (value from column A) is X (value from column B) Y(value from column A)



>>>>>Required Output<<<<<<
Position of Point 1 is X 5 Y 9
Position of Point 2 is X 7 Y 3
Position of Point 3 is X 8 Y 4

[snb]

Use the mailmerge method in Word.

[Adarsh]

Use the mailmerge method in Word.

I already thought of that, Sir.

But doesnt it work for just one Iteration ?
I Need all those data and same sentence to be there in a single Word file.

[snb]

Have you ever used Word or Excel ?
Did you take a course for Word and/or Excel ?

[JKwan]

Give a try, you need to Reference Word in

Sub WriteToWord()
    Dim wdApp As Word.Application
    Dim docNew As Document
    Dim lOffset As Long
    Dim LastRow As Long
    Dim lRow As Long
    Dim WrdSel As Selection
    Dim WSInput As Worksheet
    
    Set WSInput = ThisWorkbook.Worksheets("Sheet1")
    Set wdApp = New Word.Application
    Set docNew = wdApp.Documents.Add
    wdApp.Visible = True
    LastRow = FindLastRow(WSInput, "A")
    Set WrdSel = wdApp.Selection
    For lRow = 1 To LastRow
        WrdSel.TypeText "Position of Point " & WSInput.Cells(lRow, "A") & " is " & _
                        "X " & WSInput.Cells(lRow, "B") & " " & _
                        "Y " & WSInput.Cells(lRow, "C") & vbCrLf
    Next lRow
    wdApp.Activate
    Set docNew = Nothing
    Set wdApp = Nothing
    Set WSInput = Nothing
End Sub
Function FindLastRow(ByVal WS As Worksheet, ColumnLetter As String) As Long
    FindLastRow = WS.Range(ColumnLetter & Rows.Count).End(xlUp).Row
End Function

[Adarsh]

Have you ever used Word or Excel ?
Did you take a course for Word and/or Excel ?

I have not taken any courses for Word or Excel.
I always try to learn things by myself.

The solution to the Problem using VBA is something I dont have enough time to explore and figure out myself, that's why I seeked help here.

[Adarsh]

Give a try, you need to Reference Word in
[CODE]Sub WriteToWord()

Thank you Sir.

I will try it ASAP....
Will post any clarifications, if needed. The doubts may be stupid too..