Copying into excel range from word range with formatting

[souravsain]

I am tring to copy some text from a word application to an excel cell. The text is to be copied from a Word.Range (wrng) object to an excel range object (erng) [Is there some better way to do this task than range to range copy?]. The text has some formatting also. For example its like “This is a sample text with bold character in it”. In this text the word ‘bold’ is actually bold. When I do
wrng.Copy() and then erng.PasteSpecial(..). It is not working as desired. I want the formatting information to be preserved after paste in the excel cell but its getting copied without formatting. the character ‘bold’ is not bold after the paste.

I am using Paste option of xlPasteAll (in which case the text is getting paste as a picture. When I use xlPasteFormat/xlPasteValue etc, txt gets paste without formatting info.

Can any body help as to how to achieve this task?

Thanks for your help in advance.
Sourav

[Leith Ross]

Hello souravsain,

Here is a sample macro that copies the first paragraph of of the open Word document into "Sheet1 $A$3". You will need to make some name changes to match your code.

Sub CopyWordToExcel()

  Dim wdApp As Object
  Dim wdDoc As Object
  
   'Use the Word document that is already open.
    Set wdApp = GetObject(, "Word.application")
    Set wdDoc = wdApp.ActiveDocument
    
     'Copy the first paragraph
      wdDoc.Paragraphs(1).Range.Copy
    
     'Paste it into cell "A3" on "Sheet1"
      Worksheets("Sheet1").Paste Destination:=Range("A3")
  
End Sub

Sincerely,
Leith Ross

[souravsain]

Thanks a lot Leith.
This helped.

Regards,
Sourav

Hello souravsain,

Here is a sample macro that copies the first paragraph of of the open Word document into "Sheet1 $A$3". You will need to make some name changes to match your code.

Sub CopyWordToExcel()

  Dim wdApp As Object
  Dim wdDoc As Object
  
   'Use the Word document that is already open.
    Set wdApp = GetObject(, "Word.application")
    Set wdDoc = wdApp.ActiveDocument
    
     'Copy the first paragraph
      wdDoc.Paragraphs(1).Range.Copy
    
     'Paste it into cell "A3" on "Sheet1"
      Worksheets("Sheet1").Paste Destination:=Range("A3")
  
End Sub

Sincerely,
Leith Ross