MS Office.Обсуждение.Решение проблем.

LWolf, русский проверяет на ура. галки стоят. только с англ. проблем

:need help:

svin0, File - Help. Там справа написано о программе. А о каких зверушках речь?

Кстати странно, поставил себе

MICROSOFT.OFFICE.2010.PROFESSIONAL.RTM.VOLUME.COMBO.ENGLISH

на нее поставил

MICROSOFT.OFFICE.2010.SINGLE.LANGUAGE.PACK.RTM.X86-64

и что-то ничего не прорусифицировалось

Даже тачку перегружал. Никто не сталиквался с подобным?

Система windows 2003 R2 64 битная

UltraMax, спасибо. Под зверушками подразумевались котики, собачки, скрепки.

Flicker:

UltraMax, Может проще сразу что-нибудь изначально русское поставить?

Не было русского Нашел где - через меню Micosoft Office надо выбрать Microsoft Office 2010 Tools и там уже Microsoft Office 2010 Language Preferences

Как-то так. Потребуется специальный шрифт для отображения штрих-кода

tools - macro - Visual Basic Editor

Insert Module

Вставить нижеприведенный код

закрыть редактор

В excel будет доступна функция Barcode

код выделить все

Function BARCODE(ByVal yourData As String) As String
Dim temp As String ' a temporary placeholder
Dim chunk As String ' loop chunk
Dim i As Integer ' our loop counter
Dim checkDigitSubtotal As Integer ' a check digit throwaway
Dim e As Integer ' a placeholder variable
temp = Chr(181) ' code set A start glyph
checkDigitSubtotal = 103 ' code set A start checkdigit value
For i = 1 To Len(yourData) Step 1
chunk = Mid(yourData, i, 1)
Select Case Asc(chunk)
Case Is > 95
temp = temp & Chr(Asc(chunk) - 66)
Case Is = 32 ' move the space character
temp = temp & Chr(206)
Case Else
temp = temp & chunk
End Select
Next i

For i = 1 To Len(yourData)
e = Asc(Mid(yourData, i, 1)) - 32
If e <> 142 Then
checkDigitSubtotal = checkDigitSubtotal + (e * i)
End If
Next i
checkDigitSubtotal = checkDigitSubtotal Mod 103

Select Case checkDigitSubtotal
Case 0
BARCODE = temp & Chr(206) & Chr(196)
Case 1 To 93
BARCODE = temp & Chr(checkDigitSubtotal + 32) & Chr(196)
Case Is > 93
BARCODE = temp & Chr(checkDigitSubtotal + 103) & Chr(196)
End Select
End Function


Zwalker, спс. А где бы фонт взять? Беглый поиск по гуглу не дал результата

Zwalker, спасибо, опробуем.

Если Office Picture Manager не хочет запускаться либо запускается, но очень медленно - решение здесь.

подскажите как в 10 офисе изменить в обычном стиле сделать межстрочный интервал 1,5

шрифт сменил, а где интервал не могу найти. спасибо

LWolf:

правой кнопкой по стилю - изменить - слева внизу кнопка "формат" - абзац

а дальше?