OUtline level 1 in text field

[ellebelle]

I have several outline level 1 headings. Each of these have multiple tasks
and subtasks etc. I would like to create a text field that pulls the level 1
task name into a text field for the multiple levels of subtasks.

EG.

task name text field
level 1 - shot 1
level 2 - 3D shot 1
level 3 - lighting shot 1
level 3 - rendering shot 1
level 3 - fx shot 1

 

[Jan De Messemaeker]

Hi Ellebelle,

Install and run the following macro:

sub CopyLevel1()
Dim L1Name as string
Dim Job as task
for each job in activeproject.tasks
if not job is nothing then
if job.outlinelevel=1 then
L1Name=job.name
else
job.text1=L1Name
end if
end if
next job
end sub

Hope this helps,