How to create raw word Application then load Folder and Files ?
Code:
Public Sub creatdocx()
Dim NewWord
Dim NewDoc
Dim CXP As CustomXMLPart
Path = ThisWorkbook.Path & "\"
DocPath = Path & "Word.docx"
SrcPath = Path & "root"
Set NewWord = CreateObject("word.Application")
'creating Word application as docx
On Error Resume Next
If Len(Dir(DocPath)) > 0 Then Kill sPath
Open DocPath For Output As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] : Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0): Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL]
On Error Resume Next
With NewWord
Set CXP = CustomXMLParts.Add
'root a Folder has several Folder and files
' Load folders and Files
CXP.Load SrcPath & "_rels" 'to load Folder
CXP.Load SrcPath & "docProps" 'to load Folder
CXP.Load SrcPath & "word" 'to load Folder
CXP.Load SrcPath & "[Content_Types].xml" 'to load File
End With
End Sub
