View Single Post
  #7   Report Post  
Posted to microsoft.public.word.formatting.longdocs
John McGhie [MVP - Word and Word Macintosh]
 
Posts: n/a
Default Modify default formatting of pasted text

The top macro simply intercepts the standard "EditPaste" command wherever it
appears. If you name a macro the same as a Word command, it replaces the
command.

The second macro performs a normal "Let Word figure it out" paste. That's
the one I put on the Insert key.


Sub EditPaste()
On Error GoTo notAvailable

Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End

notAvailable:
Selection.Paste

End Sub

Sub NormalPaste()

Selection.Paste

End Sub

On 26/3/06 6:43 AM, in article ,
"*((({" wrote:

Would you be willing to share your macro for the INSERT key?

*(((({


In the last exciting episode on Fri, 24 Mar 2006 17:55:42 +1100, "John
McGhie [MVP - Word and Word Macintosh]" wrote:

Hi Craig:

That's only been submitted 9,999 times. We need 10,000 to get it on the
list, so PLEASE submit it :-)

However, you will find that the macro method is actually a very easy way to
do it. I normally use a macro similar to Stefan's (mine does a 'fall-back',
depending on what is on the clipboard).

I have another macro, which I assign to the Insert key, that runs Word's
default paste command. There are times (very rare...) when you do NOT want
the thing to paste as text. For example: When you have a picture on the
clipboard.

The problem is that "Match destination format" is not a VBA-accessible
option. If you paste as "Text Only", it "will" match the destination
formatting. But if the content of the clipboard is NOT text, you get
nothing :-) And VBA does not provide a way to discover what *is* on the
clipboard...

Cheers


On 24/3/06 1:32 AM, in article
, "Craig
Fletcher" wrote:

You would think this would be something that could be more easily
configured. I wonder if this would be a valid DCR (Design change Request) at
Microsoft for Office 12? I have a good relationship with them, perhaps I
should submit this request, or have you guys already done that?


"Stefan Blom" wrote in message
...
Put the following macro in normal.dot in order to intercept the
EditPaste command:

Sub EditPaste
On Error Resume Next
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, _
Placement:= wdInLine, DisplayAsIcon:=False
End Sub

If you are unfamiliar with macros, see the installation instructions
at:
http://gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP


"Craig Fletcher" wrote in message
...
Is there a way that you can make default formatting of pasted text
to ALWAYS
match destination formatting, instead of having the little menu come
up and
having to choose that option each time. Or, maybe change it to "Keep
text
only?" Basically, I'd like the ability to change the default paste
format to
and fro.
Thanks












--

Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.

John McGhie
Microsoft MVP, Word and Word for Macintosh. Consultant Technical Writer
Sydney, Australia +61 (0) 4 1209 1410