|
|
#8
12-26-2013, 06:26 PM
|
|||
|
|||
Code:
Sub InsertFiles()
Application.ScreenUpdating = False
Dim strFile As String
strFile = Dir("C:\2\*.txt", vbNormal)
With Selection
While strFile <> ""
.InsertAfter strFile & vbCr
.InsertFile FileName:=strFolder & "\" & strFile, ConfirmConversions:=False, Link:=False
.InsertAfter vbCr & vbCr
.Collapse wdCollapseEnd
strFile = Dir()
Wend
End With
Application.ScreenUpdating = True
End Sub
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 find files and insert filepaths
|
userman | Excel Programming | 3 | 05-11-2012 02:53 PM |
| Cannot insert audio files unless speakers/headphones are present. HELP! | brennj4 | PowerPoint | 0 | 01-04-2012 11:05 AM |
| Macro to Insert Text Into Cells Having Multiple Lines | revans611 | Excel Programming | 4 | 10-24-2011 10:15 AM |
|
PPT 2010 will only insert, not link to audio files.
|
kevin3d | PowerPoint | 1 | 10-07-2011 09:17 PM |
|
convert multiple csv files to multiple excel files
|
mit | Excel | 1 | 06-14-2011 10:15 AM |
Windows 7 64bit 
Office XP
Threaded Mode