Word_xlComment.ahk

xlWordComment(text, header="", URL = "",  title = ""){
    oWord := ComObjActive("Word.Application")
    if header <> ; Run only if header isn't empty 
    {
        author := oWord.Application.UserName  ; Get current author
        oWord.Application.UserName := header ; Set heading as author 
    }
    
    try ; Trying to add comment 
    {
        oWord.ActiveDocument.Comments.Add(oWord.Selection.Range) ; Add comment 
        ErrorLevel = 0
    }
    catch ; Catch errors and display message 
    {
        MsgBox,16, %A_ScriptName%, Comments can only be added in the document's main text. `rCheck the text you have selected and try again.
        ErrorLevel = 1
    }
    if ErrorLevel = 0 ; If comment was added error-free:
    {
        oWord.Selection.PasteAndFormat(16) ;  Paste clipboard data (retains formatting if %text% is from Excel cell)
        Send {BackSpace} 
        if URL <> ; Run only if URL isn't empty
        {
            oWord.Selection.TypeParagraph ; New line 
            if title <> ; Run only if title isn't empty
                oWord.ActiveDocument.Hyperlinks.Add(oWord.Selection.Range, URL,"","", title) ; Add titled link
            Else ; Else use URL as title 
                oWord.ActiveDocument.Hyperlinks.Add(oWord.Selection.Range, URL,"","", URL) ; Add untitled link
        }
        if header <> ; Run only if header isn't empty 
            oWord.Application.UserName := author ; Restore original author 
        Send {Esc}
    }
}