MS Project VBA получение или настройка Заголовок настраиваемого поля задачи Text1..Text30 - PullRequest
Новая
       19

MS Project VBA получение или настройка Заголовок настраиваемого поля задачи Text1..Text30

0 голосов
/ 05 апреля 2011

Я пытаюсь изменить заголовок полей задачи Text1 на Text30 в Microsoft Project 2007 с помощью VBA.

Вот что я делаю вручную:

In GantТаблица задач диаграммы нажмите на заголовок таблицы и добавьте столбец.Во всплывающем окне я могу выбрать, какое свойство задачи добавить, в моем случае «Text1», и я могу ввести заголовок, например «мой 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

1 Ответ

1 голос
/ 05 апреля 2011

Ну, я сделал это: -) 

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

...