MS Project VBA 가져 오기 또는 설정 사용자 지정 작업 필드 제목 Text1..Text30

Question

VBA를 사용하여 Microsoft Project 2007에서 작업 필드 Text1을 Text30으로 변경하려고합니다.

갠트 차트 작업 테이블에서 테이블 머리글을 클릭하고 열을 추가 : 여기

내가 수동으로 할 것입니다. 팝업에서 나는 추가 할 작업 속성을 선택할 수 있는데, 내 경우에는 "Text1"이고 "my text1"과 같은 제목을 입력 할 수 있습니다.

그러나 나는 테이블에 대해 상관하지 않습니다. 텍스트 필드에 제목을 지정하고 싶습니다. Text1을 Text30으로 XML 파일로 내보내고 필드의 제목을 내보내려고하므로 제목을 가져와야하고 테이블에 사용되지 않아도 설정하고 싶습니다. 내보낼 것입니다. ... 여기

Private Sub setfieldtitletryout() 
    Dim i As Integer 
    Dim c As Long 
    For i = 1 To 30 
    c = FieldNameToFieldConstant("Text" & i, pjTask) 
    Debug.Print "Text" & i; " has constant " & c 
    Debug.Print " Name of Text" & i; " is " & FieldConstantToFieldName(c) ' well what a surprise... 
    SetFieldTitle(c, ListOfNames(i)) ' Oviously doesn't work, because the function doesn't exist :-(
    Debug.Print " Title of Text" & i; " is " & FieldConstantToFieldTitle(c) ' unfortunately doen't exist too 
    Next 
End Sub 

내가 확인하지만 나를 도울 준비가 무슨 짓을

http://msdn.microsoft.com/en-us/library/bb221504(office.12).aspx

http://msdn.microsoft.com/en-us/library/bb221254(office.12).aspx

나 ': 여기

난 그냥 테스트를 위해 쓴 것입니다 이 문제를 해결할 수있어서 기쁩니다!

도와 주셔서 미리 감사드립니다.

건배

B

Answer 1

잘 나는 그것을했다 :-)

Private Sub setfieldtitletryout() 
    Dim i As Integer 
    Dim c As Long 
    For i = 1 To 5 
    c = FieldNameToFieldConstant("Text" & i, pjTask) ' get constant of custom field by name 
    Debug.Print i & ". Rename title of Text" & i 
    Debug.Print " Name of Text" & i; " is '" & FieldConstantToFieldName(c) & "'" 

    CustomFieldRename FieldID:=c, NewName:="Titel of Text " & i 'Rename/set custom field title 
    Debug.Print " Title of Text" & i; " is '" & CustomFieldGetName(c) & "'" ' get title of custom field 
    Next 
End Sub 

http://msdn.microsoft.com/en-us/library/ms453877(v=office.12).aspx

도움말 CustomFieldRename에

도움말 CustomFieldGetName

에