Hello
I've made a macro to help me make 100's of smaller files from a long list.
Basically I copy each line, paste that into a new doc then save that as a
text file.
This is where it 'doesn't work' how I was hoping it to! :-)
Because each time it names the new file, the same name as the original (when
I made the macro) rather than pasting in the new file name.
I have copied the macro below ... where it says:
"100%_Pure_Poison_-_You_Keep_Coming_Back.ram" ... is the file name. This
remains 'constant' and I can't make it paste in the new file name that was
selected on the last copy.
I know little about VB etc and just make macros to speed up repetive tasks
Any advice will be appreciated
TIA ... Mick
Sub ramfile()
'
' ramfile Macro
' Macro recorded 20/08/03 by Mick Fitzpatrick
'
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\Normal.dot",
NewTemplate:= _
False
Selection.paste
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=36
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
ActiveDocument.SaveAs FileName:= _
"100%_Pure_Poison_-_You_Keep_Coming_Back.ram",
FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:= _
False
ActiveDocument.Close
End Sub
Do you want to signoff PCSOFT or just change to
Digest mode - visit our web site:
http://freepctech.com/pcsoft.shtml
|