DDE Problems Word and Access 2000

[kenaida]

Hi there, I am trying to place a text string into a bookmarked position in a word document and can not get it to work. There seems to be little or no examples of it on the net. Please help. I have tried the following code:

Private Sub Command0_Click()
Dim chan
Shell ("winword.exe&quot, 1
chan = DDEInitiate("WinWord", "system&quot
DDEPoke chan, "\Startofdoc", "Test message"
DDETerminate chan

End Sub

Using this code i get this error :

The application can not perform the DDE function that you attempted.

 

[scking]

It is much clearer to use the Word objects than DDE unless it is legacy software. I previously used DDE and found it slow and unintuitive and poorly documented. You might want to convert.

Steve King

Call CreateWordFile(UCase(DialogMessage.strFilename), DialogMessage.strTitle, DialogMessage.strIRNarrative, DESIGN_TEMPLATE)

Public Sub CreateWordFile(strDocName As String, strTitle As String, _
strNarrative As String, Optional varTemplateName)
' Ref: Microsoft Office 97 Visual Basic Programming Guide, Page 175
On Error GoTo notloaded

Dim oWordApp As Word.Application
Dim MyDoc As Word.Document
Dim oCell As Cell
Dim cnt As Integer
Dim strTemplate As String

Set oWordApp = GetObject(, "Word.Application.8&quot
oWordApp.Visible = True
If IsMissing(varTemplateName) Then
oWordApp.Documents.Add
Else
oWordApp.Documents.Add Template:=varTemplateName, NewTemplate:=False
End If

Set MyDoc = oWordApp.ActiveDocument
If InStr(1, varTemplateName, "Analysis&quot Then
'oWordApp.Run "NewAnalysis"
MyDoc.Bookmarks("DateAnalyzed&quot.Select
oWordApp.Selection.Text = Format(Date, "dd-mmm-yy&quot
MyDoc.Bookmarks("IncidentReport&quot.Select
oWordApp.Selection.Text = Mid$(strDocName, 3, 2) & "-" & Mid$(strDocName, 5, 4)
MyDoc.Bookmarks("txtIRTitle&quot.Select
oWordApp.Selection.Text = strTitle
MyDoc.Bookmarks("Analysis&quot.Select
oWordApp.Selection.Text = strNarrative
MyDoc.SaveAs FileName:="f:\groups\sdv\dmats\analysis\" & strDocName
ElseIf InStr(1, varTemplateName, "Design&quot Then
MyDoc.Bookmarks("DateReviewed&quot.Select
oWordApp.Selection.Text = Format(Date, "dd-mmm-yy&quot
MyDoc.Bookmarks("IncidentReport&quot.Select
oWordApp.Selection.Text = Mid$(strDocName, 3, 2) & "-" & Mid$(strDocName, 5, 4)
MyDoc.Bookmarks("txtIRTitle&quot.Select
oWordApp.Selection.Text = strTitle
'Set a Checkbox value
'MyDoc.FormFields("Check9&quot.CheckBox.Value = True
MyDoc.Bookmarks("DesignNotes&quot.Select
oWordApp.Selection.Text = strNarrative
MyDoc.SaveAs FileName:="f:\groups\sdv\dmats\design\notes\" & strDocName
End If

strTemplate = oWordApp.Templates.Creator

Exit_Proc:
Exit Sub

notloaded:
If Err.Number = 429 Then
Set oWordApp = CreateObject("Word.Application.8&quot
Resume Next
ElseIf Err.Number = 5137 Then
MsgBox "Template " & varTemplateName & " does not exist."
Else
MsgBox Err.Number & ", " & Err.Description
End If
GoTo Exit_Proc

End Sub

Growth follows a healthy professional curiosity