VBA code works in debugger but breaks when playing

[btb331]

Hey guys,

This is a sub in word that I call from in Excel. It works perfectly when i step through it but when I run it throws an error when doing the pasteandformat command. Any help would be much appreciated!

Code : Sub titles()
For i = 2 To 10
ActiveDocument.Bookmarks(i).Select
Selection.MoveDown Unit:=wdLine, Count:=12
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.MoveUp Unit:=wdLine, Count:=13
Selection.PasteAndFormat (wdFormatPlainText)
Next i
ActiveDocument.Bookmarks(1).Select
Selection.TypeText (Date)
End Sub

Error
Run-time error '4198':
Command failed

 

[Tinbendr]

Try using the value of the constant. Sometimes Excel can't tell which Selection you mean. Excel's or Word's.

Selection.PasteAndFormat 22 '(wdFormatPlainText)

Might I ask what all this selection stuff is doing? We might be able to streamline it using Word's Range instead. Is the paragraph you're copying within a bookmark also?

 

[btb331]

Thanks for the reply

Afraid that didn't work...

The selection stuff is to find a title in a row of a table. Had to do it this way otherwise selects the whole row rather than the words...

i changed it to selection.pastespecial datartpe:=wdpastetext

and got

run time error '4605'
This method or property is not available because the clipboard is empty or not valid'