Clear all custom text fields

Question

Is there any easy way, other than displaying all the fields and deleting each cell, to delete all the data out of all the custom task text fields?

Thanks for you advice,

cb24

Answer 1

cb24,

It could be automated with VBA. The following macro will do it:

Sub ClearTskText()

Dim t As Task

Dim pst As Task

For Each t In ActiveProject.Tasks

If Not t Is Nothing Then

t.Text1 = ""

t.Text2 = ""

'continue sequence for Text3 through Text30

End If

Next t

End Sub

This version includes the Project Summary Task:

Sub ClearTskText()

Dim t As Task

Dim TFld As String

OutlineShowAllTasks

FilterApply Name:="all tasks"

GroupApply Name:="no group"

SelectAll

'this loop will cover all tasks including the Project Summary Task

For i = 1 To 30

TFld = "text" & i

SetTaskField Field:=TFld, Value:="", TaskID:=0

SetTaskField Field:=TFld, Value:="", allselectedtasks:=True

Next i

End Sub

Hope this helps.

John

Answer 2

John,

Can this be expanded to include the resource and assignment text fields?

Thanks,

cb24

Answer 3

cb24,

You're welcome. I responded with the first version of the macro that did not include clearing the 30 text fields for the Project Summary Task. While you were reading that response, I was working on a version to include the Project Summary Task. I have edited my response to include the expanded version.

John

Answer 4

John,

What did you mean by " the text field of the Project Summary Task clear"?

Answer 5

Thanks John.

It is much appreciated.