Replies

Either way would be great. Overall count would be best. Thanks Much HansV.

Sorry. All documents in a folder. From the control Toolbox, then formatted to float above or behind the text.

I like the way this works. Having trouble modifying it to count shapes (checkbox shapes). I can get the total shapes, i’m trying to count the unchecked, checked and total number of shapes in a folder, then perform some calculations on the totals. I can’t seem to be able to count the checked and unchecked. It would really be helpful to count the shapes with checked/unchecked values with a certain value in its name. Any help would be appreciated.

Thanks Much Hans, work great.

Works good. I’m trying to get the bookmark text out of each bookmark in the documents. I’ve been trying to merge you previous attachment with something i’ve been working on that was giving me the output of the active document only. I’ve managed to get that with the attached but it seems to pulling the bookmarks multiple times from each document in the selected folder. Could you please see if you can figure where my problem is. Except for this is perfect.

Within a specfied folder.

Thanks Hans, do you think it would be possible to look through several unopened documents and pull the bookmarks out into a new document?

This work well. Could you help me to sort those bookmarks so they come out in location order. Thanks.

Works great, thanks HansV

Sorry HansV, 2003 the code I provided does work to create and save a task, can’t make it loop off query/table records though.

HansV, I’m trying to use this code from the site provided in this post to create task items in outlook with the variable of the task sheld in a table or query.

Public Function taskme()
Dim ol As New Outlook.Application
Dim ns As Outlook.NameSpace
Dim itmTask As Outlook.TaskItem
Set ns = ol.GetNamespace(“MAPI”)
‘Create a new Task item.
Set itmTask = ol.CreateItem(olTaskItem)
‘Set some properties of the Task item.
With itmTask
.Subject = “Write article”
.DueDate = “8/22/97”
.Importance = olImportanceHigh
.Save
End With
End Function
I’m trying to figure out how to get it to loop through the records of the table/query until the last record then stop. Any help would be appreciated.

Thank HansV, I was making it harder than it needed to be. Much thanks.

Then i will just have to prevent them from clearing the filter. Correct?

Thanks HansV, I’ll set it in code from Access like you said

Perhaps this is the problem. When I manually open the template creating a new document. Word asks
“Opening this document will run the following command:
Select * from [cur_ann_ltr]
Data from the database wil be placed in the document. Do you wish to continue?”

If I select no, the documents opens like it does when acess opens it.
I believe access is not sending that “YES” during this prompt and assumes “NO”
How would I get by this?

Thanks in advance.