添加vba模块失败

[in]失败后停止【值/表达式】False

[in]子程序【值/表达式】运行VBA

[in]跳过调试输出【值/表达式】True

[in]类型【值/表达式】Word

[in]文件路径【值/表达式】

[in]VBA代码【值/表达式】Sub getCode()\r\n Dim code As String\r\n Dim r as Range\r\n code = ""\r\n For I = 1 To ActiveDocument.Fields.Count\r\n \tset r=ActiveDocument.Fields(I).result \r\n \tmylen = Len(ActiveDocument.Fields(I).code)\r\n \t\r\n If Selection.Range.Start >= r.Start-mylen-2 And Selection.Range.Start <= r.End + 1 And Left(ActiveDocument.Fields(I).code, 18) = " ADDIN ZOTERO_ITEM" Then\r\n code = ActiveDocument.Fields(I).code \r\n Exit For\r\n End If\r\n Next\r\n Clipboard_SetText code\r\n End Sub\r\n \r\n \r\n Public Sub Clipboard_SetText(sInput As String)\r\n On Error GoTo Error_Handler\r\n With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")\r\n .SetText sInput\r\n .PutInClipboard\r\n End With\r\n Error_Handler_Exit:\r\n On Error Resume Next\r\n Exit Sub\r\n Error_Handler:\r\n MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _\r\n "Error Number: " & Err.Number & vbCrLf & _\r\n "Error Source: Clipboard_SetText" & vbCrLf & _\r\n "Error Description: " & Err.Description & _\r\n Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _\r\n , vbOKOnly + vbCritical, "An Error has Occurred!"\r\n Resume Error_Handler_Exit\r\n End Sub

耗时：1648ms

[in]如果【值/表达式】False

不符合条件，跳过。

已禁用，跳过

[in]失败后停止【值/表达式】True

使用Z.Expressions解析表达式出错，尝试使用DynamicExpresso.

异常：解析表达式出错。 内部错误：Unexpected character encountered while parsing value: �. Path '', line 0, position 0. 原始表达式：{ JObject json = JObject.Parse({[cliptext]}.Replace("ADDIN ZOTERO_ITEM CSL_CITATION ","")); var itemdata=json["citationItems"].Select( x=>new { uri=(string)x["uris"][0], author=(string.IsNullOrEmpty((string)x["itemData"]["author"][0]["family"])?((string)x["itemData"]["author"][0]["literal"]):((string)x["itemData"]["author"][0]["family"])) + " et al., "+ (string)x["itemData"]["issued"]["date-parts"][0][0] }).ToList(); itemdata.Select( x=>x.author + "|" + "zotero://select/library/items/" + Path.GetFileName(x.uri) ).ToList().JoinToString(); }

在 Quicker.Domain.Actions.X.XActionHelper.GetValueFromExpression2(String expression, ActionExecuteContext context) 在 Quicker.Domain.Actions.X.XActionHelper.rot0S7dt0vD(<>c__DisplayClass2_0& ) 在 Quicker.Domain.Actions.X.XActionHelper.GetParamValue(StepInParamDef paramDef, ActionStep step, ActionExecuteContext context, Boolean skipLogging, Boolean skipConvert, Boolean skipLogContent) 在 Quicker.Domain.Actions.X.BuiltinRunners.Misc.AssignValueStep.<>c__DisplayClass37_0.M3xotR8M7iA() 在 Quicker.Domain.Actions.X.XActionHelper.ExecuteCommonAction(ActionExecuteContext context, ActionStep step, XAction action, Func`1 actionFunc, Action successAction, Action failAction, StepInParamDef stopIfErrorParam, StepOutParamDef isSuccessOutputParam)

步骤(sys:assign)执行失败，原因：解析表达式出错。 内部错误：Unexpected character encountered while parsing value: �. Path '', line 0, position 0. 原始表达式：{ JObject json = JObject.Parse({[cliptext]}.Replace("ADDIN ZOTERO_ITEM CSL_CITATION ","")); var itemdata=json["citationItems"].Select( x=>new { uri=(string)x["uris"][0], author=(string.IsNullOrEmpty((string)x["itemData"]["author"][0]["family"])?((string)x["itemData"]["author"][0]["literal"]):((string)x["itemData"]["author"][0]["family"])) + " et al., "+ (string)x["itemData"]["issued"]["date-parts"][0][0] }).ToList(); itemdata.Select( x=>x.author + "|" + "zotero://select/library/items/" + Path.GetFileName(x.uri) ).ToList().JoinToString(); }

停止动作：解析表达式出错。 内部错误：Unexpected character encountered while parsing value: �. Path '', line 0, position 0. 原始表达式：{ JObject json = JObject.Parse({[cliptext]}.Replace("ADDIN ZOTERO_ITEM CSL_CITATION ","")); var itemdata=json["citationItems"].Select( x=>new { uri=(string)x["uris"][0], author=(string.IsNullOrEmpty((string)x["itemData"]["author"][0]["family"])?((string)x["itemData"]["author"][0]["literal"]):((string)x["itemData"]["author"][0]["family"])) + " et al., "+ (string)x["itemData"]["issued"]["date-parts"][0][0] }).ToList(); itemdata.Select( x=>x.author + "|" + "zotero://select/library/items/" + Path.GetFileName(x.uri) ).ToList().JoinToString(); }

耗时：11ms