Copy and paste into word from access

[Paul Mc]

Hi all,


It's a little late in the day for me so please forgive as i need my bed.!!


The issue is i need to open a word doc (say "c:\temp.do c) and paste into it, but i only can work out how to open a NEW doc

            ' Creates a new document and pastes Clipboard contents.
          ' Saves the document in the Word directory and closes the
          ' document.
 
 Set NewObject = CreateObject("Word.Basic")
          NewObject.filenew
          NewObject.editpaste
          NewObject.filesaveas DocPath & "\" & NewDoc
          NewObject.FileClose

[NeoPa]

I'm assuming you're executing this code within an Access module of some kind yes?

Check out Application Automation. There may be some references in there to help.

[Paul Mc]

Yes i am.

Now i can open the doc but cant figure out how to paste this time round.

Set NewObject = CreateObject("Word.Application")
NewObject.Visible = True
NewObject.Activate
NewObject.ChangeFileOpenDirectory "D:\"
NewObject.Documents.Open FileName:="Point.dotx"
 
 
'now not working !!!!!!!!!
         NewObject.Document.editpaste
         NewObject.filesaveas DocPath & "\" & NewDoc
         NewObject.FileClose
 
          ' Frees the memory used by the objects.
          Set NewObject = Nothing

[NeoPa]

I think you're looking for :

Call NewObject.Selection.Paste

where NewObject is an object of type Word.Application.

[NeoPa]

@NeoPa
In Excel and Word it is often very easy to determine what code is required to to perform a particular function.

Simply select Tools \ Macro \ Record New Macro and execute the function manually. When complete, just look at the code it produces. It's pretty obvious what each command does and you can use the Help system to refine it, change options & parameters etc.

[Paul Mc]

How to Extract a embeded OLE word document and paste & save it into an exteranl location

Sorry some sloppy coding!

Private Sub Command31_Click()
 
          Dim NewObject As Object
          Dim NewDoc As String
          Dim DocPath As String
 
          ' Name of the new document to create.
          Dim Dnam As String
          Dnam = Me.Text32 & ".doc"
          NewDoc = Dnam
 
          ' Where to store the new document.
          ' DefaultDir$(9) returns the Word directory path.
          ' See DefaultDir$() in Word's on-line help for more options.
          ' Note: The "$" is not used when calling DefaultDir via
          ' OLE Automation.
          DocPath = "D:\Kpic"
 
          ' Copies the embedded object to Clipboard.
          Me!Photograph.Verb = 0
          Me!Photograph.Action = 7
          Me!Photograph.Object.Application.WordBasic.EditSelectAll
          Me!Photograph.Object.Application.WordBasic.EditCopy
          Me!Photograph.Action = 9
          DoEvents
 
 
          ' Opens a word template document and pastes Clipboard contents.
          ' Saves to a new file and document in the Word directory and closes the
          ' document.
 
Set NewObject = CreateObject("Word.Application")
NewObject.Visible = True
NewObject.Activate
NewObject.ChangeFileOpenDirectory "D:\"
NewObject.Documents.Open FileName:="Point.dotx"
NewObject.Selection.Paste
         'removes an extra space!
        NewObject.Selection.TypeBackspace
 
         NewObject.ActiveDocument.SaveAs FileName:=DocPath & "\" & NewDoc
 
         NewObject.ActiveDocument.Close
 
          ' Frees the memory used by the objects.
          Set NewObject = Nothing
 
          MsgBox DocPath & "\" & NewDoc & " was created successfully."
      End Sub

[NeoPa]

Paul, it's not clear what your intention is posting this code. I'm guessing it's a notification that you now have it working and are politely posting your solution for us to clarify the thread. If so, thank you. We appreciate that attitude. If not, please clarify.

PS. Please remember to use the CODE tags when posting code in future. I have amended each of your posts so far for you and left an edit comment. Using the CODE tags is mandatory on the site.