вкладки
и окно будет меньше
и информация структуризируется
(и, возможно, полоса прокрутки не понадобится)

и вообще так не делается
старый инв номер новый инв номер (а потом сверховый и т.д) в одной записи
как только намечается такая штука - делается отдельная таблица

ох

а зачем верд - акс сам прекрасно делает отчеты
да и нужно структуру делать - а структуру нужно продумать самому - что для чего и как будет пользоваться в дальнейшем - если просто набор строк про комп - то Екселя хватит на всю жизню, если формировать различные отчеты - то думай, думай, думай.

п.с. порадовал:
размер скрина,
размер винта 80, память - 512
зачеркнутая Модель монитора и яго Размер - секрет
пугкт про флопарь
и пункты про мыша

не много ли? - можно еще задать про FAT, размер сектора ....

Спасибо большое!!!

снайп - (не обижайся) - я рыдаю, и плачу - сдаю отчеты в налоговую, ПФ в города Харьков, Киев, по ИНЕТУ - ответ получаю в течении 2-3х часов и быстрее - ВСЁ. походы в налоговую забыли как страшный сон уже давно с 2007-го.

Есть определённая форма просто в ворде,туда надо записывать,не я её придумывал
про скрин-зааабей )так и знал что прикопаются

У меня просто есть пример как в шаблон ворда импортировать в нужные места нужные строки из полей =)
On Error GoTo Err_
Dim app As Word.Application
Dim DlgUser As Integer
If Dir(strPathWord) <> "" Then
DlgUser = MsgBox("Документ был создан с ками именем заменить?", vbYesNo, "admin")
If DlgUser = vbNo Then
Set app = CreateObject("Word.Application")
With app
.Visible = True
.Documents.Open strPathWord
End With
Set app = Nothing
Else
GoTo nn
End If
Else
nn:
Set app = New Word.Application
app.Visible = True
app.Documents.Add strPathDot
With app.ActiveDocument
.Bookmarks.Item("&#199;&#224;&#234;&#224;&#231;&#247;&#232;&#234;").Range.Text = Nz(&#207;&#240;&#238;&#245;&#238;&#240;&#238;&#226;, "")
.Bookmarks.Item("&#192;&#228;&#240;&#229;&#241;").Range.Text = Nz(&#192;&#228;&#240;&#229;&#241;, "")
.Bookmarks.Item("&#192;&#228;&#240;&#229;&#241;&#198;&#232;&#242;").Range.Text = Nz(&#192;&#228;&#240;&#229;&#241;&#198;&#232;&#242;, "")
.Bookmarks.Item("&#210;&#229;&#235;&#229;&#244;&#238;&#237;").Range.Text = Nz(&#210;&#229;&#235;&#229;&#244;&#238;&#237;, "")
.Bookmarks.Item("&#209;&#238;&#242;&#238;&#226;&#251;&#233;").Range.Text = Nz(&#209;&#238;&#242;&#238;&#226;&#251;&#233;, "")
.Bookmarks.Item("&#193;&#224;&#237;&#234;").Range.Text = Nz(&#193;&#224;&#237;&#234;, "")
.Bookmarks.Item("&#208;&#209;").Range.Text = Nz(&#208;&#209;, "")
.Bookmarks.Item("&#202;&#209;").Range.Text = Nz(&#202;&#209;, "")
.Bookmarks.Item("&#193;&#200;&#202;").Range.Text = Nz(&#193;&#200;&#202;, "")
.Bookmarks.Item("&#200;&#205;&#205;").Range.Text = Nz(&#200;&#205;&#205;, "")
.SaveAs strPathWord
End With
Set app = Nothing
End If
funOutputWord = True
Exit_:
Exit Function
Err_:
funOutputWord = False
Err.Clear
app.Quit
Resume Exit_

Еще такой вопрос,пока ты здесь,я надеюсь))
Me.ClientForFilter.SelStart = 200
у меня начало ругаться на это,после того как идёт сортировка и ввожу специально несуществующие записи,выбор стандартный:
Private Sub ClientForFilter_Change()
Dim strFind_1 As String
strFind_1 = Nz(Me.ClientForFilter.Text, "")
If strFind_1 <> "" Then
Me.Filter = "["Арм сотрудника"]Like '" & strFind_1 & "*'"
Me.FilterOn = True
Me.ClientForFilter.SelStart = 200
Else
Me.FilterOn = False
End If
End Sub

RunTime Error 2185
невозможно обратиться к свойству или методу элемента управления,пока на этот элемент не установле фокус,только что работал щас перестало(((ваааще жесть

В том то и дело что не работает(((
Раньше работало,а щас нет %)И я это их примера брал,там нормально всё работает,перенёс к себе,тоже работало.а щас октазывается%)%)%)

Главное пример с такой же функцией работает,а моя прога с такой же отказывается %)

Подскажите что дееелать??Не могу разобраться((((

http://zalil.ru/32919154
тут всё лежит