rohan its working fine ichecked it again . if you are copying this code to
another workbook make  sure you select

tools -> refrence-> microsoft word


Sub copypasteusingadobe()
Dim i, z As Long

 For i = 1 To 1



Dim a As String
Dim b As String
Dim c

b = Range("a" & i).Value

a = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"



c = Shell("" & a & " " & b & "", 1)

Application.Wait Now + TimeValue("00:00:05")



SendKeys ("^a")
SendKeys ("^c")
Application.Wait Now + TimeValue("00:00:05")
 Dim appWord As Word.Application
   Dim WordDoc As Word.Document

Set appWord = CreateObject("Word.Application")

Set WordDoc = appWord.Documents.Add

 appWord.Visible = True


'appWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, _
Placement:=wdInLine, DisplayAsIcon:=False
appWord.Documents.Add.Content.Paste


With appWord

       .ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\pdf_ " & i &
".doc", FileFormat:=wdocument



        .ActiveWindow.Close

        .Quit
    End With
Set appWord = Nothing
Set WordDoc = Nothing

b = ""
Next i

End Sub

On Thu, Jan 20, 2011 at 10:36 AM, Rohan Young <rohan.j...@gmail.com> wrote:

> Dear Ashish Ji,
>
> the following error facing by me too :
>
> SendKeys ("^a")
> SendKeys ("^c")
> Application.Wait Now + TimeValue("00:00:05")
>  Dim appWord As Word.Application
>
> Set appWord = CreateObject("Word.Application")
>
>
>  appWord.Visible = True
>
>
>   appWord.Documents.Add.Content.PasteSpecial Link:=False, _
>     Placement:=wdInLine, DisplayAsIcon:=False, DataType:=wdPasteText
>
>
> With appWord
>
> Regards
>
> ROHAN
>
>
> On Wed, Jan 19, 2011 at 8:10 PM, ashish koul <koul.ash...@gmail.com>wrote:
>
>>
>>
>> hi i tried its working fine at my place attaching the working macro again
>>
>> 19, 2011 at 5:57 PM, Prathima R <prathima....@gmail.com> wrote:
>>
>>>
>>>
>>> Hi ,
>>>
>>>
>>>
>>> I tried this macro but I am unable find the pdf files and when I click on
>>> file name button however if I still proceed by giving the path where pdf Is
>>> located macro is running fine
>>>
>>> But it is not saving the word doc . error message is popped up stating
>>> already in use thought I closed and used it. Same status.
>>>
>>>
>>>
>>> Please help me as early as possible.
>>>
>>>
>>>
>>> Thanks,
>>>
>>> Prathima
>>>
>>>
>>>  On Thu, Jan 6, 2011 at 3:15 PM, SHAH DARSHIL <darshil.m...@gmail.com>wrote:
>>>
>>>> You can use this site.
>>>>
>>>> Www.zamar.com <http://www.zamar.com/>
>>>>
>>>>  On Thu, Jan 6, 2011 at 12:48 AM, Mariappan Kulasekaran <
>>>> marimac...@gmail.com> wrote:
>>>>
>>>>> Hi Friends,
>>>>>
>>>>> As a part of my official activities, I will get incoming document as an
>>>>> Ordinary PDF format. I have to covert this to a word document before I
>>>>> processing it.
>>>>>
>>>>> Now I am Doing the below steps for convertion for each files.
>>>>>
>>>>>    1. Open the PDF File.
>>>>>    2. Select all content using Cntrl+A
>>>>>    3. Copy the content Using Cntrl+C
>>>>>    4. Paste the content in a blank word document.
>>>>>    5. Save the document as rtf format.
>>>>>
>>>>> Now I am expecting to do this in a macro or other systematic way. It
>>>>> would be more helpful if anyone give me a solution for this activities. 
>>>>> This
>>>>> will bring my work stress a lot.
>>>>>
>>>>> Reason for looking VBA Code or Macro:
>>>>>
>>>>>    1. I dont have Fine Reader package in my office.
>>>>>    2. I dont have privilage to download any Free PDF to word converter
>>>>>    from google search.
>>>>>    3. I will get 30 to 100+ Documents in a day.
>>>>>
>>>>> I am expecting emergency solution for the above.
>>>>>
>>>>> Thanks in Advance.
>>>>>
>>>>> By,
>>>>>
>>>>> R. K. Maariappan
>>>>> marimac...@gmail.com
>>>>>
>>>>> --
>>>>>
>>>>> ----------------------------------------------------------------------------------
>>>>> Some important links for excel users:
>>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>>> http://twitter.com/exceldailytip
>>>>> 2. Join our LinkedIN group @
>>>>> http://www.linkedin.com/groups?gid=1871310
>>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>>
>>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>>
>>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>>> Like our page on facebook , Just follow below link
>>>>>
>>>>> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>>>>>
>>>>
>>>>
>>>>
>>>> --
>>>> Regards,
>>>>      Darshil Shah.
>>>>      darshil.m...@gmail.com
>>>>       +91-9725503879
>>>>
>>>>
>>>> --
>>>>
>>>> ----------------------------------------------------------------------------------
>>>> Some important links for excel users:
>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>> http://twitter.com/exceldailytip
>>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>
>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>
>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>> Like our page on facebook , Just follow below link
>>>>
>>>> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>>>>
>>>
>>> --
>>>
>>> ----------------------------------------------------------------------------------
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> Like our page on facebook , Just follow below link
>>> http://www.facebook.com/discussexcel
>>>
>>
>>
>>
>> --
>> *Regards*
>> * *
>> *Ashish Koul*
>> *akoul*.*blogspot*.com <http://akoul.blogspot.com/>
>> *akoul*.wordpress.com <http://akoul.wordpress.com/>
>> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
>>
>>
>> P Before printing, think about the environment.
>>
>>
>> --
>>
>> ----------------------------------------------------------------------------------
>>  Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>   --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>



-- 
*Regards*
* *
*Ashish Koul*
*akoul*.*blogspot*.com <http://akoul.blogspot.com/>
*akoul*.wordpress.com <http://akoul.wordpress.com/>
My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>


P Before printing, think about the environment.

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to