1. use word marco to get zotero items link ``` Sub GetFiledsCodes() Dim myRange As Range, myCodes As String Set myRange = Selection.Range With myRange If .Fields.Count = 0 Then MsgBox "there is no code!", vbInformation Exit Sub Else .Fields.Update .TextRetrievalMode.IncludeFieldCodes = True .TextRetrievalMode.IncludeHiddenText = True myCodes = .Text myCodes = VBA.Replace(myCodes, Chr(19), "{") myCodes = VBA.Replace(myCodes, Chr(21), "}") .SetRange .End, .End .InsertAfter myCodes .Font.Name = "Tahoma" .Font.Size = 11 .Cut End If End With
End Sub ``` 2. use automator(macOS) to extract and open URL from above link
```
Sub GetFiledsCodes()
Dim myRange As Range, myCodes As String
Set myRange = Selection.Range
With myRange
If .Fields.Count = 0 Then
MsgBox "there is no code!", vbInformation
Exit Sub
Else
.Fields.Update
.TextRetrievalMode.IncludeFieldCodes = True
.TextRetrievalMode.IncludeHiddenText = True
myCodes = .Text
myCodes = VBA.Replace(myCodes, Chr(19), "{")
myCodes = VBA.Replace(myCodes, Chr(21), "}")
.SetRange .End, .End
.InsertAfter myCodes
.Font.Name = "Tahoma"
.Font.Size = 11
.Cut
End If
End With
End Sub
```
2. use automator(macOS) to extract and open URL from above link