export data from a cell(not the entire cell) to a word document

[radu.balak]

hy there! i need your help with something that is probable eazy or not :D
I want to export data from a cell(not the entire cell) to a word document, but in a specific place in the word doc.
It's this possible? If the answer is pozitive then how?

Lower u can see from picture exactly what i mean.
http://img337.imageshack.us/img337/4306/exceltoword.jpg

Thanks.

 

[machopicho]

Yes! It's possible!
You must use a bookmarks of word.
From a italian site:

Sub Esporta_Dati_in_Word()
Application.ScreenUpdating = False
Dim Wrd As Word.Application
Dim Doc As Word.Document
Dim ReplSel As Boolean
Dim i As Integer
On Error Resume Next 'manager errors step by step
'search Word opened
Set Wrd = GetObject(, "Word.Application")
If Err.Number = 429 Then 'if there is an error because Word ins't just open:
'open now
Set Wrd = CreateObject("Word.Application")
End If
On Error GoTo 0 'replace control errors
Wrd.Visible = True
Wrd.Activate
ReplSel = Wrd.Options.ReplaceSelection
Wrd.Options.ReplaceSelection = True
Set Doc = Wrd.Documents.Open("C:\Documents and Settings\Users\Desktop\Prova.doc")    'path                                                                              Worksheets("Foglio1").Activate
i = ActiveCell.Row
Doc.Bookmarks("Prova").Select 'name of bookmarks
If Cells(i, 4) <> Empty Then  'change rif cell with exact rif
Wrd.Selection.TypeText Cells(i, 4).Value
Else
Wrd.Documents.Close
Wrd.Visible = False
End If
Application.ScreenUpdating = True
End Sub

 

[radu.balak]

Thanks a lot. I forget to tell that i'm a beginner If there is someone here to explain me step by step how to do this i will have a great gratitude for him :D

 

[machopicho]

For this code:
You open excel... CTRL + F11 opens editor VBA.
You copy this code in a "module" that you insert by menù Insert.
Modify this piece: Set Doc = Wrd.Documents.Open("C:\Documents and Settings\Users\Desktop\Prova.doc") with your path word file.
Before... you put bookmarks in word by menù Insert where you need to have values cells excel. you name a bookmarks
After this, if your data is in A1:
Cells(1, 1).select
Wrd.Selection.TypeText Cells(1, 1).Value
Wrd.Documents.Close
Wrd.Visible = False

and so...

 

[radu.balak]

Thanks again. In my VBA the macros stop at the first dim: Dim Wrd As Word.Application with the error : User-defined type not defined. Were is the problem please?

 

[machopicho]

Thanks again. In my VBA the macros stop at the first dim: Dim Wrd As Word.Application with the error : User-defined type not defined. Were is the problem please?

Have you modified this piece of code:

Set Doc = Wrd.Documents.Open("C:\Documents and Settings\Users\Desktop\[COLOR=red]Prova.doc[/COLOR]")

with your path and name of your word document??

 

[radu.balak]

Yes i did that.
Look:

http://img43.imageshack.us/img43/4486/64071049.jpg
http://img9.imageshack.us/img9/9858/60829892.jpg

 

[machopicho]

ok!!
I have forgotten one thing.
In VBA Editor of Excel ---> Tools ---> Refers ---> Check Microsoft Word 12.0 (10.0 for excel 2003) Object Library.
Now try...

 

[radu.balak]

Well, i do just how you say and it's work just fine. It's great!! Thank u Machopicho !!

 

[sadi]

Hello @ machopicho,

Thanks for your code.
Would you please tell me how to copy "00" to word file if excell cell value is zero or empty.

Thanks
sadi