troubleshooting Question

Send tick symbol from Access to a Word template

Avatar of LiMa
LiMa asked on
Microsoft AccessMicrosoft Word
8 Comments1 Solution897 ViewsLast Modified:
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
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 8 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 8 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros