\u6a21\u5757 BindWord \u540e\u671f\u7ed1\u5b9a WPS Word \u5bf9\u8c61\uff0c\u8c03\u7528\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n\n\n\n
Dim sProg As String
sProg = “kwps” ‘WPS 2013 \u4e4b\u524d\u7248\u672c\u4e3a wps
Dim oWord As Object
Call BindWord(True)<\/p>\n\n\n\n
Public Sub BindWord(ByVal bVisible As Boolean)
If Not oWord Is Nothing Then Exit Sub
On Error Resume Next
Set oWord = GetObject(, sProg & \u201c.Application\u201d)
If Err.Number <> 0 Then \u2018\u6ca1\u6709\u6253\u5f00
Err.Clear
Set oWord = CreateObject(sProg & \u201c.application\u201d)
If Err.Number <> 0 Then \u2018\u6ca1\u6709\u6b63\u786e\u5b89\u88c5
Err.Clear
Exit Sub
End If
oWord.Visible = bVisible
End If
On Error GoTo 0
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"