从MS Word文档复制到网页输入框

Question

从MS Word文档复制到网页输入框

在一个已打开的word文档中选择所有文本
复制选中文本到剪贴板
检查默认浏览器打开正确的网址
如果没有打开默认浏览器在网址" http://thisaddress.com "
给焦点浏览器粘贴剪贴板文本到输入框中调用"输入1"

或其他一些方法来获取MSword文档内容到网页输入？

目前工作流程涉及秘书登录网站,然后填写Web表单,切换到他们打开的MS Word文档,选择全部,复制WP文档,然后返回到Web表单并粘贴到输入框中,然后点击提交.我想要做的事情理想情况下在MS word中有一个按钮,它将浏览器打开到正确的网页,然后将文档复制并粘贴到页面上的正确输入框中(实际上它将是唯一的textarea表单字段).

MS Word VBA代码是:

Option Explicit

Enum W32_Window_State
    Show_Normal = 1
    Show_Minimized = 2
    Show_Maximized = 3
    Show_Min_No_Active = 7
    Show_Default = 10
End Enum

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Function OpenURL(URL As String, WindowState As W32_Window_State) As Boolean

' Opens passed URL with default application, or Error Code (<32) upon error

    Dim lngHWnd As Long
    Dim lngReturn As Long

    lngReturn = ShellExecute(lngHWnd, "open", URL, vbNullString, _
        vbNullString, WindowState)

    OpenURL = (lngReturn > 32)
End Function

Sub TestMacro()
  Application.ActiveDocument.Select
  Selection.Copy
  OpenURL "http://localhost:8500/index.cfm?wordContent=" & Selection, W32_Window_State.Show_Maximized
End Sub

Run Code Online (Sandbox Code Playgroud)

并以冷冻处理形式

<html>
<head>
</head>

<body>
<form id="form1">
    <Textarea ID="txtArea" rows=6><cfoutput>#url.wordContent#</cfoutput></textarea>
</form>

</body>
</html>

Run Code Online (Sandbox Code Playgroud)

只想了解如何打开一个新的浏览器窗口.

Answer 1

MK.*_*MK. 2

如果您可以修改网络应用程序，您可以执行以下操作：

MS-Word：将内容复制到剪贴板。
MS-Word：打开网址为“http://thisaddress.com/SomePage?pasteClipboard=true”
SomePage：如果查询字符串参数pasteClipboard == true，则添加一个javascript函数以将剪贴板数据获取到表单字段中。

更新：

在您的宏中，您只需调用Selection.Copy，并使用默认浏览器打开 URL，请检查此链接http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_23225744.html

使用上一个链接中的代码，我制作了一个测试宏：

Sub TestMacro()
  Application.ActiveDocument.Select
  Selection.Copy
  OpenURL  "http://thisaddress.com/SomePage?pasteClipboard=true", W32_Window_State.Show_Maximized
End Sub

Run Code Online (Sandbox Code Playgroud)

我希望这可以帮到你。

更新2：

只需使用W32_Window_State.Show_Default，这是完整的宏：

Option Explicit

Enum W32_Window_State
    Show_Normal = 1
    Show_Minimized = 2
    Show_Maximized = 3
    Show_Min_No_Active = 7
    Show_Default = 10
End Enum

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Function OpenURL(URL As String, WindowState As W32_Window_State) As Boolean

' Opens passed URL with default application, or Error Code (<32) upon error

    Dim lngHWnd As Long
    Dim lngReturn As Long

    lngReturn = ShellExecute(lngHWnd, "open", URL, vbNullString, _
        vbNullString, WindowState)

    OpenURL = (lngReturn > 32)
End Function

Sub TestMacro()
  Application.ActiveDocument.Select
  Selection.Copy
  OpenURL "http://thisaddress.com/SomePage?pasteClipboard=true", W32_Window_State.Show_Default
End Sub

Run Code Online (Sandbox Code Playgroud)

归档时间：	14 年，11 月前
查看次数：	2459 次
最近记录：	10 年，3 月前