When sending text from a form to Access to Word is it possible to send a tick symbol? I want to send a tick to a custom property on my Word template but I do not know how to go about this. The code II am using to send the other text to Word is below.
Public Sub WordReport()
On Error GoTo ErrCreateWordVersion
Dim objWord As Object
Dim objProperties As Object
Dim strWordTemplate As String
Dim objDoc As Object
strWordTemplate = Access.Application.CurrentProject.Path & "\Template.dot"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents
objDoc.Add strWordTemplate
' Other properties in here
Set objProperties = objWord.ActiveDocument.CustomDocumentProperties
With Me
objProperties.Item("Process").Value = .txtProcess
objProperties.Item("ReportNo").Value = .txtReportNo
objProperties.Item("Area").Value = .txtArea
objProperties.Item("Summary").Value = txtSummary
objProperties.Item("Checked").Value = chkChecked ' THIS IS THE FIELD I WANT TO SEND A TICK AS DISPLAYED ON THE FORM
End With
With objWord.Selection
.WholeStory
.Fields.Update
.Collapse Direction:=wdCollapseEnd
End With
Set objProperties = Nothing
Set objDoc = Nothing
ErrCreateWordVersion:
If Err.Number <> 0 And Err.Number <> 13 Then
MsgBox Err.Number & " " & Err.Description
On Error Resume Next
End If
Set objProperties = Nothing
Set objDoc = Nothing
Set objWord = Nothing
End Sub
I am using Office 2003 on a Windows XP based system. Thanx in advance for any help with this - all help is greatly appreciated, many thanx.
LiMa
I'm guessing that "Checked" is an existing yes/no custom property. In that case, it accepts the values True and False. From your naming convention, chkChecked is likely a checkbox, returning either True or False.
Doesn't your code work? Do you get an error message either when compiling or when running this?
(°v°)