troubleshooting Question

Send tick symbol from Access to a Word template

Avatar of LiMa
LiMa asked on
Microsoft WordMicrosoft Access
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
ASKER CERTIFIED SOLUTION
Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 8 Comments.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 8 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004