P
Perplexed in Vancouver
I copied a macro to quickly paste text unformatted into MS Word2003 and
assigned it to my keyboard (Crtl + Alt + V). But then strange things started
happening. Each time I open a document, the macro appears as text in the new
document (see first example below). If I go to save a file for the first
time, the proposed name for the file is the first line of the macro (see
second example below). So I deleted the macro - but it is still happening.
Suggestions?
Here's the macro I used:
Sub Acleanpaste()
'
' Acleanpaste Macro
' Macro created 10/03/2009 by XYZ
'
On Error GoTo Oops
Selection.PasteSpecial _
DataType:=wdPasteText, _
Placement:=wdInLine
End
Oops:
Beep
End Sub
EX 1) If I open a new document, here is what appears:
Sub PasteUnfText()
Sub PasteUnfText()
On Error GoTo Oops
Selection.PasteSpecial _
DataType:=wdPasteText, _
Placement:=wdInLine
End
Oops:
Beep
End SubOn Error GoTo Oops
Selection.PasteSpecial _
Sub PasteUnfText()
On Error GoTo Oops
Selection.PasteSpecial _
DataType:=wdPasteText, _
Placement:=wdInLine
End
Oops:
Beep
End SubDataType:=wdPasteText, _
Placement:=wdInLine
End
Oops:
Beep
End Sub
EX 2) If I go to save a document, even after deleting the unwanted macro
that pasted itself in, I get a proposed file name of:
Sub PasteUnfText
assigned it to my keyboard (Crtl + Alt + V). But then strange things started
happening. Each time I open a document, the macro appears as text in the new
document (see first example below). If I go to save a file for the first
time, the proposed name for the file is the first line of the macro (see
second example below). So I deleted the macro - but it is still happening.
Suggestions?
Here's the macro I used:
Sub Acleanpaste()
'
' Acleanpaste Macro
' Macro created 10/03/2009 by XYZ
'
On Error GoTo Oops
Selection.PasteSpecial _
DataType:=wdPasteText, _
Placement:=wdInLine
End
Oops:
Beep
End Sub
EX 1) If I open a new document, here is what appears:
Sub PasteUnfText()
Sub PasteUnfText()
On Error GoTo Oops
Selection.PasteSpecial _
DataType:=wdPasteText, _
Placement:=wdInLine
End
Oops:
Beep
End SubOn Error GoTo Oops
Selection.PasteSpecial _
Sub PasteUnfText()
On Error GoTo Oops
Selection.PasteSpecial _
DataType:=wdPasteText, _
Placement:=wdInLine
End
Oops:
Beep
End SubDataType:=wdPasteText, _
Placement:=wdInLine
End
Oops:
Beep
End Sub
EX 2) If I go to save a document, even after deleting the unwanted macro
that pasted itself in, I get a proposed file name of:
Sub PasteUnfText