Correction To allow Multiple file selection on Import File (Word 2007/2010 only)
Replace
Code:
Sub bcInsertfile()
'________________________________________________
' NAME: bcInsertfile
' AUTHOR: =X=
' DESCRIPTION: Opens insert file dialog box.
' HISTORY:
' DATE: 09/06/2008
'________________________________________________
With Dialogs(wdDialogInsertFile)
.Name = "*.*"
.Show
End With
End Sub
With
Code:
Sub bcInsertfile()
'________________________________________________
' NAME: bcInsertfile
' AUTHOR: =X=
' DESCRIPTION: Opens insert file dialog box.
' HISTORY:
' DATE: 09/06/2008
'________________________________________________
CommandBars.FindControl(ID:=777).Execute
End Sub