![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n \n
Hey, Scripting Guy! Awhile back you showed people how they could combine several text files into a single file<\/B><\/A>. I\u2019d like to do the same thing in Word. How can I insert files into a Word document? Hey, HK. Believe it or not it\u2019s actually easier to insert files into a Microsoft Word document than it is to insert a text file into another text file. That\u2019s because the Word Selection<\/B> object has a method – InsertFile<\/B> – that does one thing and one thing only: it opens up a specified file and inserts it into the current document. And InsertFile isn\u2019t limited to opening just text files: if it\u2019s a type of file that Word can handle, then InsertFile can open it and insert it in your document.<\/P>\n Let\u2019s take a look at a script that imports a pair of text files (C:\\Scripts\\Hardware.txt and C:\\Scripts\\Software.txt):<\/P> objSelection.TypeText “Hardware Inventory”\nobjSelection.TypeParagraph()\nobjSelection.InsertFile(“C:\\Scripts\\Hardware.txt”)<\/p>\n objSelection.TypeParagraph()<\/p>\n objSelection.TypeText “Software Inventory”\nobjSelection.TypeParagraph()\nobjSelection.InsertFile(“C:\\Scripts\\Software.txt”)\n<\/PRE>\n Like we said, way<\/I> easier than trying to combine multiple files in a single text file. We begin by creating an instance of the Word.Application<\/B> object and setting the Visible<\/B> property to True; we then add a document and create an instance of the Selection object. That\u2019s what these lines of code are for:<\/P> That was easy, but now it gets even easier. We want a heading for our hardware inventory so we type he heading Hardware Inventory<\/I> followed by a paragraph return; that\u2019s what we do here:<\/P> And now we\u2019re ready to insert a file. That takes just one line of code:<\/P> That\u2019s it: you call the InsertFile<\/B> method followed by the path of the file being inserted into the document. We then add another paragraph return and the heading Software Inventory<\/I>, and then insert our second file, C:\\Scripts\\Software.txt. It\u2019s so easy we could sit here all day inserting files into Word documents!<\/P>\n Before we do that, however, let\u2019s show you a handy little variation on the preceding script. This one creates a new Word document and then inserts all the files found in the folder C:\\Scripts\\Archive. We won\u2019t bother explaining the code line-by-line, but you should be able to figure out most of it yourself:<\/P> Set objWord = CreateObject(“Word.Application”)\nobjWord.Visible = True\nSet objDoc = objWord.Documents.Add()\nSet objSelection = objWord.Selection<\/p>\n Set FileList = objWMIService.ExecQuery _\n (“ASSOCIATORS OF {Win32_Directory.Name=’C:\\Scripts\\Archive’} Where ” _\n & “ResultClass = CIM_DataFile”)<\/p>\n For Each objFile In FileList\n objSelection.InsertFile(objFile.Name)\n objSelection.TypeParagraph()\nNext\n<\/PRE>\n
— HK<\/P>![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \nSet objWord = CreateObject(“Word.Application”)\nobjWord.Visible = True\nSet objDoc = objWord.Documents.Add()\nSet objSelection = objWord.Selection<\/p>\n
Set objWord = CreateObject(“Word.Application”)\nobjWord.Visible = True\nSet objDoc = objWord.Documents.Add()\nSet objSelection = objWord.Selection\n<\/PRE>\n
objSelection.TypeText “Hardware Inventory”\nobjSelection.TypeParagraph()\n<\/PRE>\n
objSelection.InsertFile(“C:\\Scripts\\Hardware.txt”)\n<\/PRE>\n
strComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\n