使用VBScript将特定值复制到剪贴板

我有困境。我需要将txtpreview.value复制到剪贴板和UpdatePreview子的末尾。如这里所示，我拥有从页面其他部分到预览窗格的特定数据和值的子updatePreview，下面的按钮运行了所述子。我似乎无法获得正确的组合，可以将txtpreview.value副本放在剪贴板上。

Sub UpdatePreview  
    txtPreview.Value =    "Customer/Agency " &_
    vbNewLine & Customer.Value & " / " & AgencyName.value & " #" & AgencyID.value &_
                     vbNewLine &_
                     vbNewLine & "1. QUESTIONS/NEEDS/VALUE" &_
                     vbNewLine & issue1.value &_
                     vbNewLine &_
                     vbNewLine & "2. TROUBLESHOOTING" &_
                     vbNewLine & issue2.value &_
                     vbNewLine &_
                     vbNewLine & "3. SOLUTIONS " &_
                     vbNewLine & issue3.value &_
                     vbNewLine &_
                     vbNewLine & "4. OUTCOME  " &_
                     vbNewLine & issue4.value &_
                     vbNewLine &_
                     vbNewLine                   
End Sub
<input type="button" class="note" value="Preview"  OnClick=UpdatePreview>

<html>
<body>
<script language=vbscript>
document.write document.parentwindow.clipboardData.GetData("TEXT")
</script>
</body>
</html>

将文本放在剪贴板上使用document.parentwindow.clipboardData.SetData "TEXT", txtPreview.Value

相关内容

最新更新

热门标签：