A macro that can insert FILENAME, sendkeys CTRL ALT T, paste clipboard, and nextline

		Microsoft Office Forums > Microsoft Word > Word VBA
A macro that can insert FILENAME, sendkeys CTRL ALT T, paste clipboard, and nextline

FAQ

Thread Tools

Display Modes

09-13-2012, 03:09 AM

macropod

Windows 7 64bit A macro that can insert FILENAME, sendkeys CTRL ALT T, paste clipboard, and nextline

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,467

Hi kyjac85,

Try the following macro:

Code:

Sub InsertData()
Application.ScreenUpdating = False
SendKeys "^%T"
With Selection
  .Text = Split(Split(ActiveDocument.Name, ".")(0), "_")(0)
  .Collapse wdCollapseEnd
  .Paste
End With
Application.ScreenUpdating = True
End Sub

I don't know anything about transcription foot pedals, so I can't help you on that front.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
paste and insert, not replace	userman	Excel	4	06-06-2012 05:15 AM
Problem with the sendkeys in Win7	vidyapakki	Excel Programming	1	05-07-2012 11:10 PM
Insert/Paste Picture into Protected Worksheet	udea	Excel	1	02-06-2012 07:43 PM
How to insert current date into default filename ?	czomberzdaniela	Word	1	12-27-2011 07:18 PM
Macro for automatically adding filename without .doc	RPM7	Word VBA	0	04-29-2010 01:43 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 02:51 AM.