Как разбить процедуру (ту лардж)? Вопрос от чайника ...

[viter.alex]

Если текст закладки используется в нескольких местах, то нужно использовать перекрёстные ссылки и пример здесь
По поводу ComboBox. Мне бы чисто физически лень было столько раз писать одно и то же.
Вот так много лучше

Option Explicit
Dim arAbbr
Dim arFullNames
Private Sub ComboBox4_Change()
  oDoc.Bookmarks("b1").Range.Text = arFullNames(ComboBox4.ListIndex)
End Sub

Private Sub UserForm_Initialize()
  arAbbr = Array("ООО", "ОАО", "ЗАО", "ГУ", "МУП", "СХПК", "НП", "ИП", "ПК", "ПрК", "ГП", "ГПВО", "КУИ", "ДЗО", "ДИО", "ТУФАУГИ", "Росреестр", "Администрация")
  arFullNames = Array("общества с ограниченной ответственностью ", _
                      "открытого акционерного общества ", _
                      "закрытого акционерного общества ", _
                      "государственного учреждения ", _
                      "муниципального унитарного предприятия ", _
                      "сельскохозяйственного производственного кооператива ", _
                      "некоммерческого партнерства ", _
                      "индивидуального предпринимателя ", _
                      "потребительского кооператива ", _
                      "производственного кооператива ", _
                      "государственного предприятия ", _
                      "государственного предприятия ____ской области ", _
                      "Комитета по управлению имуществом ", _
                      "Департамента земельных отношений ", _
                      "Департамента имущественных отношений ", _
                      "Территориального управления Федерального агентства по управлению государственным имуществом в ", _
                      "Управления Федеральной службы государственной регистрации, кадастра и картографии по ", _
                      "Администрации ")
  ComboBox4.List = arAbbr
  ComboBox4.ListIndex = 0
End Sub

[neprofi]

спасибо. попробую ...

[neprofi]

oDoc.Bookmarks("b1").Range.Text = arFullNames(ComboBox1.ListIndex)

здесь не имелся ввиду ComboBox4 ????

[Skif-F]

Sub ssss()
Dim Rng As Range, Text As String
Rng = oDoc.Bookmarks("b1").Range
Text = "ООО"
Rng.Text = Coding(Text)
End Sub

Function Coding(CB As String) As String
    Select Case CB
        Case "ООО"
            Coding = "общества с ограниченной ответственностью "
        Case "ОАО"
            Coding = "открытого акционерного общества "
        Case "ЗАО"
            Coding = "закрытого акционерного общества "
        Case Else
        
    End Select
End Function

[viter.alex]

Сообщение от neprofi

oDoc.Bookmarks("b1").Range.Text = arFullNames(ComboBox1.ListIndex)

здесь не имелся ввиду ComboBox4 ????

Это я просто не исправил. У себя я экспериментировал с ComboBox1, вот и осталось.

[neprofi]

viter.alex

не получается что то (Ваш код, указанный в 11 сообщении)
пишет Variable not defined

Option Explicit
Dim arAbbr
Dim arFullNames
Public Sub CommandButton1_Click()
Dim oDoc As Document

Set oDoc = Application.Documents.Add("C:\Мои документы\Определение9.dot")
End Sub

Private Sub ComboBox1_Change()
  oDoc.Bookmarks("b1").Range.Text = arFullNames(ComboBox1.ListIndex)
End Sub

Private Sub UserForm_Initialize()
  arAbbr = Array("ООО", "ОАО", "ЗАО", "ГУ", "МУП", "СХПК", "НП", "ИП", "ПК", "ПрК", "ГП", "ГПВО", "КУИ", "ДЗО", "ДИО", "ТУФАУГИ", "Росреестр", "Администрация")
  arFullNames = Array("общества с ограниченной ответственностью ", _
                      "открытого акционерного общества ", _
                      "закрытого акционерного общества ", _
                      "государственного учреждения ", _
                      "муниципального унитарного предприятия ", _
                      "сельскохозяйственного производственного кооператива ", _
                      "некоммерческого партнерства ", _
                      "индивидуального предпринимателя ", _
                      "потребительского кооператива ", _
                      "производственного кооператива ", _
                      "государственного предприятия ", _
                      "государственного предприятия ____ской области ", _
                      "Комитета по управлению имуществом ", _
                      "Департамента земельных отношений ", _
                      "Департамента имущественных отношений ", _
                      "Территориального управления Федерального агентства по управлению государственным имуществом в ", _
                      "Управления Федеральной службы государственной регистрации, кадастра и картографии по ", _
                      "Администрации ")
  ComboBox1.List = arAbbr
  ComboBox1.ListIndex = 0
End Sub

[viter.alex]

Какая переменная не определена? Неужели трудно написать?
ComboBox1 на форме есть?
Оформляйте код тегом [code][/code]!

[neprofi]

Сообщение от viter.alex

ComboBox1 на форме есть?

да есть ...

[viter.alex]

Я задал три вопроса, а получил ответ только на один. Телепатией не владею

[neprofi]

я к сожалению не знаю, какая пременная не определена
поэтому и не могу написать

понимаю как со мной трудно ...