Microsoft Office Forums - View Single Post - [Solved] A macro that can insert FILENAME, sendkeys CTRL ALT T, paste clipboard, and nextline

macropod · 09-13-2012, 03:09 AM

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.