Запись в фиелды

[filat]

Причем тут Апдейт, если строка Call dDoc.Sheets(1).TitleBlock.SetPromptResultText(sBox, "тест1") вызывает ошибку?

Код - Visual Basic [Выбрать]

1. Sub T1()
2.     Dim dDoc As DrawingDocument
3.     Set dDoc = ThisApplication.ActiveDocument
4.     Dim oSheet As Sheet
5.     Set oSheet = dDoc.ActiveSheet
6.     Dim sBoxs As TextBoxes
7.     Dim sBox As TextBox
8.     Set sBoxs = oSheet.TitleBlock.Definition.Sketch.TextBoxes
9.     For Each sBox In sBoxs
10.         Debug.Print (sBox.Text)
11.         If sBox.Text = "<Материал Наим.>" Then
12.             dDoc.Update
13.             Call dDoc.Sheets(1).TitleBlock.SetPromptResultText(sBox, "fdss")
14.             dDoc.Update
15.             Debug.Print (dDoc.Sheets(1).TitleBlock.GetResultText(sBox))
16.         End If
17.     Next
18. End Sub

[filat18]

Кажись понял - нужно лезть в свойства файла("GOST Properties") и править прямо там.

[izhgtumekhanik]

Кажись понял - нужно лезть в свойства файла("GOST Properties") и править прямо там.

Неа, если там что то поменяете то и ссылки собьются и потом почему то они исчезают из списка и восстановить не получится.

Нужно поменять тип ячейки НО и тут бяда в том что после смены она перестает реагировать на кнопку "основная надпись" на вкладке пояснения ЕСКД..

В общем палка о двух концах..

Наверно еще есть какие то способы подойти к таблице основной надписи..