We help IT Professionals succeed at work.

how to export text from my excel cells to specific format in a word document

excelismagic
excelismagic asked
on
is there a easy way to export text from my excel cells to specific format in a word document.

this should be done automatically when i update excel cells it should update the word.

is there any easy way you know ?
Comment
Watch Question

GrahamSkanRetired
Top Expert 2012

Commented:
Select and copy (Ctrl+C) the cell(s) with the text that you need in the Word document.
Select the position on the document and choose the Paste Special item from the Paste dropdown on the Home tab.
Choose the Paste Link option on the Paste Special dialogue and click OK.

You want to  set the Word Option>Advanced>General>Update Automatic Links on Open . Also you can include the links on the document in the Selection and press F9 to show any updates.
Rob HensonFinance Analyst

Commented:
Maybe you are referring to Word's mail merge options.

You can use Excel as the source data for creating multiple documents from one template, eg a mailshot to multiple customers or address labels, etc.
I recently had the same issue and I was just exploring that I encountered this question from a year ago. Maybe, you already have found your solution, but what has helped me is the following code from Microsoft answers, you can teak the path and range based on actual path and range.

Sub PopulateWordDocFromExcel()
' Add a reference to the Word-library via VBE > Tools > References > Microsoft Word xx.x Object Library.
' Create a folder named C:\Temp or edit the filnames in the code.
'
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim bWeStartedWord As Boolean
    
    Dim i As Integer
    
    On Error Resume Next
    Set wrdApp = GetObject(, "Word.Application")
    On Error GoTo 0
    If wrdApp Is Nothing Then
        Set wrdApp = CreateObject("Word.Application")
        bWeStartedWord = True
    End If
    wrdApp.Visible = True 'optional!
    
    Set wrdDoc = wrdApp.Documents.Add ' create a new document
    ' or open an existing document:
    'Set wrdDoc = wrdApp.Documents.Open("C:\Foldername\Filename.docx")
    
    ' example word operations:
    With wrdDoc
        'copy data from A1:A10 into the word doc:
        For i = 1 To 10
            .Content.InsertAfter Range("A" & i).Value
            .Content.InsertParagraphAfter
        Next i
        
        wrdApp.DisplayAlerts = wdAlertsNone
        .SaveAs "C:\Temp\MyNewWordDoc.docx", FileFormat:=12 'wdFormatXMLDocument
        .Close ' close the document
        wrdApp.DisplayAlerts = wdAlertsAll
    End With
    
    If bWeStartedWord Then wrdApp.Quit 'close the Word application
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub

Open in new window

Author

Commented:
I already had found a solution, but I could add this code to my library.
Thx