How to create a macro which can identify the Microsoft doc/docx file for Comments .Basically could sort the commented files from non -commented one.

The procedure would be similar to that you requested in your other message, but with a different set of actions relating to the open document. The macro will create the comment and non comment folders if not present. as sub-folders of the chosen folder. e.g.

Option Explicit

Sub BatchProcessMoveFiles()
Dim strFilename As String
Dim strPath As String
Const strCommentsPath As String = "Comment Folder\"
Const strNoCommentsPath As String = "Non-commented Folder\"
Dim strFiles As String
Dim oDoc As Document
Dim Log As Document
Dim fDialog As FileDialog
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With fDialog
        .Title = "Select folder and click OK"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewList
        If .Show <> -1 Then
            MsgBox "Cancelled By User", , _
                   "List Folder Contents"
            Exit Sub
        End If
        strPath = fDialog.SelectedItems.Item(1) & "\"
        If Not FolderExists(strPath & strCommentsPath) Then MkDir strPath & strCommentsPath
        If Not FolderExists(strPath & strNoCommentsPath) Then MkDir strPath & strNoCommentsPath
    End With
    strFiles = ""
    strFilename = Dir$(strPath & "*.doc")        'should open doc, docx, and docm formats
    While Len(strFilename) <> 0
        WordBasic.DisableAutoMacros 1
        Set oDoc = Documents.Open(strPath & strFilename)
        strFiles = strFiles & Date & "-" & Time & Chr(32) & oDoc.FullName & " moved to "
        'do what you want with the open document
        If oDoc.Content.Comments.Count > 0 Then
            oDoc.Close SaveChanges:=wdDoNotSaveChanges
            Name strPath & strFilename As strPath & strCommentsPath & strFilename
            strFiles = strFiles & strCommentsPath & strFilename & vbCr
        Else
            oDoc.Close SaveChanges:=wdDoNotSaveChanges
            Name strPath & strFilename As strPath & strNoCommentsPath & strFilename
            strFiles = strFiles & strNoCommentsPath & strFilename & vbCr
        End If
        strFilename = Dir$()
        WordBasic.DisableAutoMacros 0
    Wend
    Set oDoc = Nothing
    Set Log = Documents.Add
    Log.Range.Text = strFiles
End Sub

Public Function FolderExists(ByVal PathName As String) As Boolean
Dim lngAttr As Long
    On Error GoTo NoFolder
    lngAttr = GetAttr(PathName)
    If (lngAttr And vbDirectory) = vbDirectory Then
        FolderExists = True
    End If
NoFolder:
End Function