Sub Macro1()
Const strPassword As String = "Test|password|Lorem|another" 'List the passwords separated with '|'
Const strName As String = "E:\Path\Forum\Password is lorem test.docx" 'The document to open
Dim oDoc As Document
Dim vPass As Variant
Dim i As Integer
    vPass = Split(strPassword, "|")
    On Error Resume Next
    For i = 0 To UBound(vPass)
Debug.Print vPass(i)
        Set oDoc = Documents.Open(FileName:=strName, _
                                  PasswordDocument:=vPass(i), _
                                  ReadOnly:=True)
        If Not oDoc Is Nothing Then Exit For
    Next i
lbl_Exit:
    Set oDoc = Nothing
    Exit Sub
End Sub