用户函数语法错误

Question

我有一个带有~1000个Word文档的子目录我想应用下面的宏来设置每个文件的超链接样式，但是我无法打开它们来运行脚本。有什么办法可以将它设置为应用于目录中的每个文档吗？我可以用bash脚本调用它吗？

Sub FormatLinks()
    Dim H As Hyperlink

    For Each H In ActiveDocument.Hyperlinks
        H.Range.Select                                      ' (A)
        Selection.ClearFormatting                           ' (B)

        H.Range.Style = ActiveDocument.Styles("Hyperlink")  ' (C)
    Next H
End Sub

Answer 1

这是来自Filter，一个将stdin过滤到stdout的程序。这部分来自于在文件中的每一行上运行命令行指定的脚本。 Dir /b为您提供了一个文件列表。

Set Arg = WScript.Arguments
set WshShell = createObject("Wscript.Shell")
Set Inp = WScript.Stdin
Set Outp = Wscript.Stdout
    RawScript = Arg(1)
    'Remove ^ from quoting command line and replace : with vbcrlf so get line number if error
    Script = Replace(RawScript, "^", "")
    Script = Replace(Script, "'", chr(34))
    Script = Replace(Script, ":", vbcrlf)
    'Building the script with predefined statements and the user's code
    Script = "Dim gU" & vbcrlf & "Dim gdU" & vbcrlf & "Set gdU = CreateObject(" & chr(34) & "Scripting.Dictionary" & chr(34) & ")" & vbcrlf & "Function UF(L, LC)" & vbcrlf & "Set greU = New RegExp" & vbcrlf & "On Error Resume Next" & vbcrlf & Script & vbcrlf & "End Function" & vbcrlf

    'Testing the script for syntax errors
    On Error Resume Next
    set ScriptControl1 = wscript.createObject("MSScriptControl.ScriptControl",SC)
        With ScriptControl1
            .Language = "VBScript"
            .UseSafeSubset = False
            .AllowUI = True
        .AddCode Script
    End With
    With ScriptControl1.Error
        If .number <> 0 then
            Outp.WriteBlankLines(1)
            Outp.WriteLine "User function syntax error"
            Outp.WriteLine "=========================="
            Outp.WriteBlankLines(1)
            Outp.Write NumberScript(Script)
            Outp.WriteBlankLines(2)
            Outp.WriteLine "Error " & .number & " " & .description
            Outp.WriteLine "Line " & .line & " " & "Col " & .column
            Exit Sub
        End If
    End With

    ExecuteGlobal(Script)

    'Remove the first line as the parameters are the first line
    'Line=Inp.readline  
    Do Until Inp.AtEndOfStream
        Line=Inp.readline
        LineCount = Inp.Line 

        temp = UF(Line, LineCount)
        If err.number <> 0 then 
            outp.writeline ""
            outp.writeline ""
            outp.writeline "User function runtime error"
            outp.writeline "==========================="
            Outp.WriteBlankLines(1)
            Outp.Write NumberScript(Script)
            Outp.WriteBlankLines(2)
            Outp.WriteLine "Error " & err.number & " " & err.description
            Outp.WriteLine "Source " & err.source

            Outp.WriteLine "Line number and column not available for runtime errors"
            wscript.quit
        End If
        outp.writeline temp
    Loop

一般用途

filter <inputfile >outputfile
filter <inputfile | other_command
other_command | filter >outputfile
other_command | filter | other_command

Vbs

filter vbs "text of a vbs script"
filter vb "text of a vbs script"

使用冒号分隔语句和行。使用单引号代替双引号，如果需要单引号，请使用chr（39）。使用^字符转义括号和＆符号。如果你需要插入符号，请使用chr（136）。

该函数称为UF（用于UserFunction）。它有两个参数，L包含当前行，LC包含linecount。将脚本的结果设置为UF。见例。

有三个全局对象可用。未声明的全局变量gU，用于维护状态。如果需要多个变量，请将其用作数组。用于保存和访问前一行的Dictionary对象gdU。并且可以使用RegExp对象greU。

示例

此vbs脚本插入行号并将行设置为过滤器打印的函数UF。

filter vbs "uf=LC ^& ' ' ^& L"<"%systemroot%\win.ini"

这就是它在内存中的样子

Dim gU Set gdU = CreateObject("Scripting.Dictionary") Set greU = New RegExp Function UF(L, LC) ---from command line--- uf=LC & " " & L ---end from command line--- End Function

如果存在语法错误，Filter将显示调试详细信息。

用户函数语法错误

1 Dim gU 2 Dim gdU 3 Set greU = CreateObject("Scripting.Dictionary") 4 Function UF(L, LC) 5 On Error Resume Next 6 uf=LC dim & " " & L 7 End Function Error 1025 Expected end of statement Line 6 Col 6

用户功能运行时错误

1 Dim gU 2 Dim gdU 3 Set greU = CreateObject("Scripting.Dictionary") 4 Function UF(L, LC) 5 On Error Resume Next 6 uf=LC/0 & " " & L 7 End Function Error 11 Division by zero Source Microsoft VBScript runtime error Line number and column not available for runtime errors

其他示例

反转每一行

filter vbs "uf=StrReverse^(L^)"<"%systemroot%\win.ini"

如何将VBA宏应用于目录中的所有文件？

1 个答案:

用户函数语法错误

用户功能运行时错误