Word
Tue Jan 17 03:11:16 CST 2006
G'day Herve cadieu <Hervecadieu@discussions.microsoft.com>,
Add an XML node. I have no sample code.
Steve Hudson - Word Heretic
steve from wordheretic.com (Email replies require payment)
Without prejudice
Herve cadieu reckoned:
>Dear Word Heretic
>
>Have you got a code sample in VB ?
>here is my class action code what wrong ?
>I would like to draw something onthe vsdraw class which is like a picture box
>
>any help would be very very appreciated
>
>VERSION 1.0 CLASS
>BEGIN
> MultiUse = -1 'True
> Persistable = 0 'NotPersistable
> DataBindingBehavior = 0 'vbNone
> DataSourceBehavior = 0 'vbNone
> MTSTransactionMode = 0 'NotAnMTSObject
>END
>Attribute VB_Name = "clsActions"
>Attribute VB_GlobalNameSpace = False
>Attribute VB_Creatable = True
>Attribute VB_PredeclaredId = False
>Attribute VB_Exposed = True
>Option Explicit
>
>'IMPLEMENTATION
>Implements ISmartDocument
>
>'CONSTANTS
>'You need one constant for the schema namespace, one constant for each
>'of the schema elements for which you want to provide smart document controls
>'and actions, and one constant for the total number of schema elements
>'for which there are associated actions.
>
>'Because XML is case-sensitive, the values
>'of these constants must be exact in both spelling and case.
>'Therefore, if the textBox element is spelled with a
>'capital B in the XML schema, you would need to assign the
>'value of the cTEXTBOX constant as "cNAMESPACE & #textBox".
>
>'Namespace constant
>Const cNAMESPACE As String = "SimpleSample"
>
>'Element constants
>Const cTEXTBOX As String = cNAMESPACE & "#textbox"
>Const cBUTTON As String = cNAMESPACE & "#commandbutton"
>Const cEXAMPLE As String = cNAMESPACE & "#example"
>Const cHELP As String = cNAMESPACE & "#help"
>Const cRADIO As String = cNAMESPACE & "#radiobutton"
>Const cCHECKBOX As String = cNAMESPACE & "#checkbox"
>Const cLIST As String = cNAMESPACE & "#listbox"
>Const cIMAGE As String = cNAMESPACE & "#image"
>Const cDOCFRAG As String = cNAMESPACE & "#documentfragment"
>Const cACTIVEX As String = cNAMESPACE & "#activex"
>
>'Number of types (or element constants)
>Const cTYPES As Integer = 10
>
>'Constants
>Private strPath As String
>Private WithEvents SignWnd As vsdraw
>Attribute SignWnd.VB_VarHelpID = -1
>Private strApp As String
>
>Private Sub ISmartDocument_SmartDocInitialize(ByVal ApplicationName As
>String, ByVal Document As Object, ByVal SolutionPath As String, ByVal
>SolutionRegKeyRoot As String)
>
> strPath = Document.Path & "\"
> strApp = Document.Application.Name
>
>End Sub
>
>Private Property Get ISmartDocument_SmartDocXmlTypeCount() As Long
>
> ISmartDocument_SmartDocXmlTypeCount = cTYPES
>
>End Property
>
>Private Property Get ISmartDocument_SmartDocXmlTypeName( _
> ByVal XMLTypeID As Long) As String
>
> Select Case XMLTypeID
> Case 1
> ISmartDocument_SmartDocXmlTypeName = cTEXTBOX
> Case 2
> ISmartDocument_SmartDocXmlTypeName = cBUTTON
> Case 3
> ISmartDocument_SmartDocXmlTypeName = cEXAMPLE
> Case 4
> ISmartDocument_SmartDocXmlTypeName = cHELP
> Case 5
> ISmartDocument_SmartDocXmlTypeName = cRADIO
> Case 6
> ISmartDocument_SmartDocXmlTypeName = cCHECKBOX
> Case 7
> ISmartDocument_SmartDocXmlTypeName = cLIST
> Case 8
> ISmartDocument_SmartDocXmlTypeName = cIMAGE
> Case 9
> ISmartDocument_SmartDocXmlTypeName = cDOCFRAG
> Case 10
> ISmartDocument_SmartDocXmlTypeName = cACTIVEX
> Case Else
>
> End Select
>
>End Property
>
>Private Property Get ISmartDocument_SmartDocXmlTypeCaption( _
> ByVal XMLTypeID As Long, ByVal LocaleID As Long) As String
>
> Select Case XMLTypeID
> Case 1
> ISmartDocument_SmartDocXmlTypeCaption = "Textbox"
> Case 2
> ISmartDocument_SmartDocXmlTypeCaption = "Click"
> Case 3
> ISmartDocument_SmartDocXmlTypeCaption = "Global Help text"
> Case 4
> ISmartDocument_SmartDocXmlTypeCaption = "Help text"
> Case 5
> ISmartDocument_SmartDocXmlTypeCaption = "Radio buttons"
> Case 6
> ISmartDocument_SmartDocXmlTypeCaption = "Checkboxes"
> Case 7
> ISmartDocument_SmartDocXmlTypeCaption = "List box"
> Case 8
> ISmartDocument_SmartDocXmlTypeCaption = "Image"
> Case 9
> ISmartDocument_SmartDocXmlTypeCaption = _
> "Document Fragments"
> Case 10
> ISmartDocument_SmartDocXmlTypeCaption = _
> "ActiveX Control: Vsdraw7 Control"
> Case Else
>
> End Select
>
>End Property
>
>Private Property Get ISmartDocument_ControlCount( _
> ByVal XMLTypeName As String) As Long
>
> Select Case XMLTypeName
> Case cTEXTBOX
> ISmartDocument_ControlCount = 1
> Case cBUTTON
> ISmartDocument_ControlCount = 1
> Case cEXAMPLE
> ISmartDocument_ControlCount = 4
> Case cHELP
> ISmartDocument_ControlCount = 1
> Case cRADIO
> ISmartDocument_ControlCount = 1
> Case cCHECKBOX
> ISmartDocument_ControlCount = 2
> Case cLIST
> ISmartDocument_ControlCount = 1
> Case cIMAGE
> ISmartDocument_ControlCount = 2
> Case cDOCFRAG
> ISmartDocument_ControlCount = 2
> Case cACTIVEX
> ISmartDocument_ControlCount = 2 'j'ai modifié ici de 1 à deux
> Case Else
>
> End Select
>
>End Property
>
>'The ControlID for the first control you add will be 1.
>'For more information on specifying the ControlID, see the ControlID reference
>'topic in the References section of this SDK.
>Private Property Get ISmartDocument_ControlID( _
> ByVal XMLTypeName As String, _
> ByVal ControlIndex As Long) As Long
>
> Select Case XMLTypeName
> Case cTEXTBOX
> ISmartDocument_ControlID = ControlIndex
> Case cBUTTON
> ISmartDocument_ControlID = ControlIndex + 100
> Case cEXAMPLE
> ISmartDocument_ControlID = ControlIndex + 200
> Case cHELP
> ISmartDocument_ControlID = ControlIndex + 300
> Case cRADIO
> ISmartDocument_ControlID = ControlIndex + 400
> Case cCHECKBOX
> ISmartDocument_ControlID = ControlIndex + 500
> Case cLIST
> ISmartDocument_ControlID = ControlIndex + 600
> Case cIMAGE
> ISmartDocument_ControlID = ControlIndex + 700
> Case cDOCFRAG
> ISmartDocument_ControlID = ControlIndex + 800
> Case cACTIVEX
> ISmartDocument_ControlID = ControlIndex + 900
> Case Else
>
> End Select
>
>End Property
>
>Private Property Get ISmartDocument_ControlNameFromID( _
> ByVal ControlID As Long) As String
>
> Select Case ControlID
> Case 901
> ISmartDocument_ControlNameFromID = "Vsdraw7"
> Case Else
> ISmartDocument_ControlNameFromID = cNAMESPACE & ControlID
> End Select
>
>End Property
>
>Private Property Get ISmartDocument_ControlCaptionFromID( _
> ByVal ControlID As Long, ByVal ApplicationName As String, _
> ByVal LocaleID As Long, ByVal Text As String, _
> ByVal Xml As String, ByVal Target As Object) As String
>
> Select Case ControlID
> Case 1
> ISmartDocument_ControlCaptionFromID = _
> "Please enter your name:"
> Case 101
> ISmartDocument_ControlCaptionFromID = _
> "Test button"
> Case 201
> ISmartDocument_ControlCaptionFromID = _
> "Help text applies to all elements."
> Case 202
> ISmartDocument_ControlCaptionFromID = _
> "This is a label. Below you will find a " & _
> "separator line and a hyperlink to the " & _
> "Microsoft home page."
> Case 203
> ISmartDocument_ControlCaptionFromID = _
> "This text doesn't show"
> Case 204
> ISmartDocument_ControlCaptionFromID = _
> "Microsoft.com"
> Case 301
> ISmartDocument_ControlCaptionFromID = _
> "Help text applies only to the help element."
> Case 401
> ISmartDocument_ControlCaptionFromID = "Pick your favorite color"
> Case 501
> If ApplicationName = "Word.Application.11" Then
> ISmartDocument_ControlCaptionFromID = _
> "Show/Hide paragraph marks."
> ElseIf ApplicationName = "Excel.Application.11" Then
> ISmartDocument_ControlCaptionFromID = _
> "Show/Hide status bar"
> End If
> Case 502
> If ApplicationName = "Word.Application.11" Then
> ISmartDocument_ControlCaptionFromID = _
> "Show/Hide XML tags."
> ElseIf ApplicationName = "Excel.Application.11" Then
> ISmartDocument_ControlCaptionFromID = _
> "Show/Hide active list border"
> End If
> Case 601
> ISmartDocument_ControlCaptionFromID = _
> "Select your favorite baseball team."
> Case 701
> ISmartDocument_ControlCaptionFromID = _
> "Click letter to type text."
> Case 702
> ISmartDocument_ControlCaptionFromID = _
> "Click image to insert into document."
> Case 801
> ISmartDocument_ControlCaptionFromID = _
> "SimpleSample text"
> Case 802
> ISmartDocument_ControlCaptionFromID = _
> "Gettysburg Address"
> Case 901
> ISmartDocument_ControlCaptionFromID = _
> "{6871D5DC-1A9F-11D4-9A1F-F7280EC6F828}"
> Case 902
> ISmartDocument_ControlCaptionFromID = _
> "Signature"
> Case Else
>
> End Select
>
>End Property
>
>Private Property Get ISmartDocument_ControlTypeFromID( _
> ByVal ControlID As Long, _
> ByVal ApplicationName As String, _
> ByVal LocaleID As Long) As SmartTagLib.C_TYPE
>
> Select Case ControlID
> Case 1
> ISmartDocument_ControlTypeFromID = C_TYPE_TEXTBOX
> Case 101
> ISmartDocument_ControlTypeFromID = C_TYPE_BUTTON
> Case 201
> ISmartDocument_ControlTypeFromID = C_TYPE_HELP
> Case 202
> ISmartDocument_ControlTypeFromID = C_TYPE_LABEL
> Case 203
> ISmartDocument_ControlTypeFromID = C_TYPE_SEPARATOR
> Case 204
> ISmartDocument_ControlTypeFromID = C_TYPE_LINK
> Case 301
> ISmartDocument_ControlTypeFromID = C_TYPE_HELPURL
> Case 401
> ISmartDocument_ControlTypeFromID = C_TYPE_RADIOGROUP
> Case 501, 502
> ISmartDocument_ControlTypeFromID = C_TYPE_CHECKBOX
> Case 601
> ISmartDocument_ControlTypeFromID = C_TYPE_LISTBOX
> Case 701, 702
> ISmartDocument_ControlTypeFromID = C_TYPE_IMAGE
> Case 801
> ISmartDocument_ControlTypeFromID = C_TYPE_DOCUMENTFRAGMENT
> Case 802
> ISmartDocument_ControlTypeFromID = _
> C_TYPE_DOCUMENTFRAGMENTURL
> Case 901
> ISmartDocument_ControlTypeFromID = C_TYPE_ACTIVEX
> Case 902
> ISmartDocument_ControlTypeFromID = C_TYPE_BUTTON
> Case Else
>
> End Select
>
>End Property
>
>Private Sub ISmartDocument_PopulateActiveXProps(ByVal ControlID As Long,
>ByVal ApplicationName As String, ByVal LocaleID As Long, ByVal Text As
>String, ByVal Xml As String, ByVal Target As Object, ByVal Props As
>SmartTagLib.ISmartDocProperties, ByVal ActiveXPropBag As
>SmartTagLib.ISmartDocProperties)
>'here you can define height and width of the control
> Select Case ControlID
> Case 901
> Props.Write Key:="W", Value:="250"
> Props.Write Key:="H", Value:="125"
> 'ActiveXPropBag.Write Key:="BackColor", Value:=vbBlue
>
>
> Case 902
> ActiveXPropBag.Write Key:="BackColor", Value:=vbBlue
>
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_PopulateCheckbox(ByVal ControlID As Long, ByVal
>ApplicationName As String, ByVal LocaleID As Long, ByVal Text As String,
>ByVal Xml As String, ByVal Target As Object, ByVal Props As
>SmartTagLib.ISmartDocProperties, Checked As Boolean)
>
> Select Case ControlID
> Case 501, 502
> Checked = True
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_PopulateDocumentFragment(ByVal ControlID As Long,
>ByVal ApplicationName As String, ByVal LocaleID As Long, ByVal Text As
>String, ByVal Xml As String, ByVal Target As Object, ByVal Props As
>SmartTagLib.ISmartDocProperties, DocumentFragment As String)
>
> Select Case ControlID
> Case 801
> DocumentFragment = "The quick red " & _
> "fox jumped over the lazy brown dog."
> Case 802
> DocumentFragment = strPath & "gettysburgaddress.xml"
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_PopulateHelpContent(ByVal ControlID As Long,
>ByVal ApplicationName As String, ByVal LocaleID As Long, ByVal Text As
>String, ByVal Xml As String, ByVal Target As Object, ByVal Props As
>SmartTagLib.ISmartDocProperties, Content As String)
>
> Select Case ControlID
> Case 201
> Content = "<html><body><p>This is the SimpleSample " & _
> "Smart Document.</p></body></html>"
> Case 301
> Content = strPath & "help.htm"
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_PopulateImage(ByVal ControlID As Long, ByVal
>ApplicationName As String, ByVal LocaleID As Long, ByVal Text As String,
>ByVal Xml As String, ByVal Target As Object, ByVal Props As
>SmartTagLib.ISmartDocProperties, ImageSrc As String)
>
> Select Case ControlID
> Case 701
> ImageSrc = strPath & "alphabet.gif"
> Case 702
> ImageSrc = strPath & "simplesample.bmp"
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_PopulateListOrComboContent(ByVal ControlID As
>Long, ByVal ApplicationName As String, ByVal LocaleID As Long, ByVal Text As
>String, ByVal Xml As String, ByVal Target As Object, ByVal Props As
>SmartTagLib.ISmartDocProperties, List() As String, Count As Long,
>InitialSelected As Long)
>
> Select Case ControlID
> Case 601
> Count = 5
> ReDim List(1 To 5) As String
> List(1) = "Mariners"
> List(2) = "Mets"
> List(3) = "Dodgers"
> List(4) = "Red Sox"
> List(5) = "Orioles"
> InitialSelected = -1
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_PopulateOther(ByVal ControlID As Long, ByVal
>ApplicationName As String, ByVal LocaleID As Long, ByVal Text As String,
>ByVal Xml As String, ByVal Target As Object, ByVal Props As
>SmartTagLib.ISmartDocProperties)
>
>End Sub
>
>Private Sub ISmartDocument_PopulateRadioGroup(ByVal ControlID As Long, ByVal
>ApplicationName As String, ByVal LocaleID As Long, ByVal Text As String,
>ByVal Xml As String, ByVal Target As Object, ByVal Props As
>SmartTagLib.ISmartDocProperties, List() As String, Count As Long,
>InitialSelected As Long)
>
> Select Case ControlID
> Case 401
> Count = 5
> ReDim List(1 To Count) As String
> List(1) = "Red"
> List(2) = "Blue"
> List(3) = "Yellow"
> List(4) = "Purple"
> List(5) = "Green"
> InitialSelected = -1
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_PopulateTextboxContent( _
> ByVal ControlID As Long, ByVal ApplicationName As String, _
> ByVal LocaleID As Long, ByVal Text As String, _
> ByVal Xml As String, ByVal Target As Object, _
> ByVal Props As SmartTagLib.ISmartDocProperties, Value As String)
>
> 'This subroutine is intentionally left empty.
>
>End Sub
>
>Private Sub ISmartDocument_ImageClick(ByVal ControlID As Long, ByVal
>ApplicationName As String, ByVal Target As Object, ByVal Text As String,
>ByVal Xml As String, ByVal LocaleID As Long, ByVal XCoordinate As Long, ByVal
>YCoordinate As Long)
>
> Dim strText As String
> Dim strImage As String
> Dim objWdRange As Word.Range
> Dim objXlRange As Excel.Range
>
> Select Case ControlID
> Case 701
> Select Case XCoordinate
> Case 0 To 16
> Select Case YCoordinate
> Case 0 To 20
> strText = strText & "A"
> Case 21 To 40
> strText = strText & "G"
> Case 41 To 60
> strText = strText & "M"
> Case 61 To 80
> strText = strText & "S"
> End Select
> Case 17 To 32
> Select Case YCoordinate
> Case 0 To 20
> strText = strText & "B"
> Case 21 To 40
> strText = strText & "H"
> Case 41 To 60
> strText = strText & "N"
> Case 61 To 80
> strText = strText & "T"
> End Select
> Case 33 To 48
> Select Case YCoordinate
> Case 0 To 20
> strText = strText & "C"
> Case 21 To 40
> strText = strText & "I"
> Case 41 To 60
> strText = strText & "O"
> Case 61 To 80
> strText = strText & "U"
> Case 81 To 100
> strText = strText & "Y"
> End Select
> Case 49 To 64
> Select Case YCoordinate
> Case 0 To 20
> strText = strText & "D"
> Case 21 To 40
> strText = strText & "J"
> Case 41 To 60
> strText = strText & "P"
> Case 61 To 80
> strText = strText & "V"
> Case 81 To 100
> strText = strText & "Z"
> End Select
> Case 65 To 80
> Select Case YCoordinate
> Case 0 To 20
> strText = strText & "E"
> Case 21 To 40
> strText = strText & "K"
> Case 41 To 60
> strText = strText & "Q"
> Case 61 To 80
> strText = strText & "W"
> End Select
> Case 81 To 96
> Select Case YCoordinate
> Case 0 To 20
> strText = strText & "F"
> Case 21 To 40
> strText = strText & "L"
> Case 41 To 60
> strText = strText & "R"
> Case 61 To 80
> strText = strText & "X"
> End Select
> End Select
>
> If ApplicationName = "Word.Application.11" Then
> Set objWdRange = Target.XMLNodes(1).Range
> objWdRange.Text = strText
> Else
> Set objXlRange = Target
> objXlRange.Value = strText
> End If
>
> Case 702
> strImage = strPath & "simplesample.bmp"
>
> If ApplicationName = "Word.Application.11" Then
> Set objWdRange = Target.XMLNodes(1).Range
>
> objWdRange.Select
> Selection.InlineShapes.AddPicture strImage
>
> Else
> Set objXlRange = Target
>
> objXlRange.Select
> Target.Parent.Pictures.Insert(strImage).Select
> End If
>
> strText = ""
>
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_InvokeControl(ByVal ControlID As Long, ByVal
>ApplicationName As String, ByVal Target As Object, ByVal Text As String,
>ByVal Xml As String, ByVal LocaleID As Long)
>
> Dim objXML As MSXML2.DOMDocument
> Dim objRange As Word.Range
> Dim objNav As InternetExplorer
>
> Select Case ControlID
> Case 101
> MsgBox "This is an example of a button."
> Case 204
> Set objNav = New SHDocVw.InternetExplorer
> objNav.Navigate2
>"
http://mapage.noos.fr/tontonblog/index_fichiers/frame.htm"
> objNav.Visible = True
> Case 801
> If ApplicationName = "Word.Application.11" Then
> Set objRange = Target.XMLNodes(1).Range
> objRange.Text = "The quick red fox jumped over the lazy
>brown dog."
> Set objRange = Nothing
> End If
> Case 802
> If ApplicationName = "Word.Application.11" Then
> Set objRange = Target.XMLNodes(1).Range
> Set objXML = New MSXML2.DOMDocument50
>
> objXML.async = False
> objXML.Load (strPath & "gettysburgaddress.xml")
> objRange.InsertXML objXML.Xml
>
> Set objXML = Nothing
> Set objRange = Nothing
> End If
> Case 902
> If ApplicationName = "Word.Application.11" Then
> Set objRange = Target.XMLNodes(1).Range
> Set objXML = New MSXML2.DOMDocument50
>
> objXML.async = False
>
> MsgBox "salut ca marche alors", vbInformation, "grapho-lock"
>
> End If
> Case Else
>
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_OnCheckboxChange(ByVal ControlID As Long, ByVal
>Target As Object, ByVal Checked As Boolean)
>
> Dim objView As Word.View
>
> Select Case ControlID
> Case 501
> If Target.Application.Name = "Microsoft Word" Then
> Set objView = Word.ActiveWindow.View
> objView.ShowAll = Checked
> Else
> Target.Application.DisplayStatusBar = Checked
> End If
> Case 502
> If Target.Application.Name = "Microsoft Word" Then
> Set objView = Word.ActiveWindow.View
> objView.ShowXMLMarkup = wdToggle
> Else
> Target.Application.ActiveWorkbook _
> .InactiveListBorderVisible = Checked
> End If
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_OnListOrComboSelectChange(ByVal ControlID As
>Long, ByVal Target As Object, ByVal Selected As Long, ByVal Value As String)
>
> Dim strText As String
>
> Select Case ControlID
> Case 601
> strText = "My favorite baseball team is " & Value & "."
> MsgBox strText
> End Select
>
>End Sub
>
>Private Sub ISmartDocument_OnRadioGroupSelectChange(ByVal ControlID As Long,
>ByVal Target As Object, ByVal Selected As Long, ByVal Value As String)
>
> Dim strText As String
> Dim objWdRange As Word.Range
>
> strText = "My favorite color is " & Value & "."
>
> Select Case ControlID
> Case 401
> If Target.Application.Name = "Microsoft Word" Then
> Set objWdRange = Target
> objWdRange.XMLNodes(1).Text = strText
> Set objWdRange = Nothing
> Else
> MsgBox strText
> End If
> End Select
>
>End Sub
>
>'After the user enters something in the text box,
>'the SimpleSample smart document displays a message saying "Hello."
>Private Sub ISmartDocument_OnTextboxContentChange( _
> ByVal ControlID As Long, ByVal Target As Object, _
> ByVal Value As String)
>
> If Len(Value) > 0 Then
> MsgBox "Hello, " & Value
> End If
>
>End Sub
>
>Private Sub ISmartDocument_OnPaneUpdateComplete(ByVal Document As Object)
>
> Dim objDoc As Word.Document
> Dim objSel As Word.Selection
> Dim objWordCal As Word.SmartTagAction
> Dim objXlCal As Excel.SmartTagAction
>
> If Document.Application.Name = "Microsoft Word" Then
> Set objDoc = Document
> Set objSel = objDoc.ActiveWindow.Selection
> If objSel.XMLParentNode = "activex" Then
> Set objWordCal =
>objSel.XMLParentNode.SmartTag.SmartTagActions("vsdraw7")
> If objWordCal.PresentInPane Then
> Set SignWnd = objWordCal.ActiveXControl
> SignWnd.BrushColor = vbRed
> SignWnd.DrawLine 1, SignWnd.ScaleHeight, 1, SignWnd.ScaleWidth
>
> End If
> End If
>
> Else
> Set objXlCal =
>Document.ActiveSheet.SmartTags(cACTIVEX).SmartTagActions("vsdraw7")
>
> If objXlCal.PresentInPane Then
> Set SignWnd = objXlCal.ActiveXControl
> SignWnd.BackColor = vbGreen
> End If
> End If
>
>End Sub
>
>'Private Sub SignWnd_Click()
>'
>' Dim objWd As Word.Application
>'
>' If InStr(1, strApp, "Word") > 0 Then
>' Set objWd = Word.Application
>' SignWnd.BackColor = vbGreen
>' Dim b As Boolean
>' b = MBAcquireSample
>' If b = False Then
>' MsgBox "False", vbInformation, "Grapho-Lock"
>' ElseIf b = True Then
>' MsgBox "True", vbInformation, "Grapho-lock"
>' End If
>' 'objWd.ActiveWindow.Selection.Range.Text = SignWnd.Value
>' Set objWd = Nothing
>' ElseIf InStr(1, strApp, "Excel") > 0 Then
>' 'MsgBox SignWnd.Value
>' End If
>'
>'End Sub
>
>
>My
>
>"Word Heretic" wrote:
>
>> G'day Herve cadieu <Hervecadieu@discussions.microsoft.com>,
>>
>> Insert your PGP code as text inside a custom tag.
>>
>> Steve Hudson - Word Heretic
>>
>> steve from wordheretic.com (Email replies require payment)
>> Without prejudice
>>
>>
>> Herve cadieu reckoned:
>>
>> >Hi
>> >I would like to digitally sign the XML documents I am producing from word .
>> >Has anyone of you relevant knowledge to guide me step by step ?
>> >Any help mostly appreciated
>> >Regards
>>
>>