vbscript 文献引用公式框改文本

Posted 2021-05-21

Sub q()
Dim iFld As Field
Dim oRng As Range
For Each iFld In ActiveDocument.Range.Fields
    
        iFld.Select
        If InputBox("remove link?", "Remove Link", "yes", 300, 300) = "yes" Then

        Set oRng = Selection.Range
        oRng.Start = oRng.Start - 1
        oRng.End = oRng.End + 1
        oRng.Select
        oRng.Text = iFld.result
    End If
Next
End Sub