not supported property or method, spot the idiot 1

[1DMF]

Hello,

I'm obviously doing something stupid and I can't spot it, please can you tell me why the bookmarks text part higlighted is erroring with property or method is not supported error.

    'open template and add information pre-merge
    Set wordApp = CreateObject("Word.Application")
    'Open document
    wordApp.Documents.Open cDrive & "\mypath\mydoc.Doc"
    'update bookmark with text
    With wordApp.ActiveDocument
        .Bookmarks("Info").Select
        [b].Selection.TypeText Me!Info[/b]
        'quit / save
        .Quit SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument
    End With
    Set wordApp = Nothing

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[AlexCuse]

1DMF -

I may be wrong here, but try putting wordApp.Selection.TypeText outside your with block.

I would think that Selection falls under wordApp not ActiveDocument.

Hope this helps,

Alex

Ignorance of certain subjects is a great part of wisdom

 

[1DMF]

who's a clever boy then!!! thank you.

only one problem , it's adding the text each time, I need to overwrite old text with the new text.

How do I do that?

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[1DMF]

I read that you needed to replace the bookmark, but i've used the following code and get the same result, it keeps appending the text, not overwriting it.

Set bmRange = ActiveDocument.Bookmarks("Info").Range

        bmRange.Text = Me!Info

        ActiveDocument.Bookmarks.Add _
        Name:="Info", Range:=bmRange
        
        'quit / save
        wordApp.Quit SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[AlexCuse]

1DMF - This word stuff is way out of my league. I read this over, and it seems to make sense, but I don't want to try and explain it (I can barely work Word manually!)

Anyways, have a look here

http://word.mvps.org/FAQs/MacrosVBA/WorkWithBookmarks.htm

Hope it helps,

ALex

Ignorance of certain subjects is a great part of wisdom

 

[1DMF]

it's ok i cracked it!

thanks for your help, you did give me the shove i needed to crack the kiddie!!!!

final code...

'open template and add information pre-merge
    Set wordApp = CreateObject("Word.Application")
    'Open document
    wordApp.Documents.Open cDrive & "\mypath\mydoc.Doc"
    'update bookmark with text
    Set BMRange = ActiveDocument.Bookmarks("Info").Range
    BMRange.Text = Me!Info
    ActiveDocument.Bookmarks.Add "Info", BMRange
    'quit / save
    wordApp.Quit SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument
    Set wordApp = Nothing
    Set BMRange = Nothing

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!