?

Log in

Microsoft Office [entries|archive|friends|userinfo]
Microsoft Office

[ userinfo | livejournal userinfo ]
[ archive | journal archive ]

Links
[Links:| Тренажёр правильной осанки ТАНЦУЮЩИЙ КИПАРИС™ ]
[############| Видеокурс от центра В.И.Дикуля ]
[############| Cок TAHITIAN NONI® для укрепления иммунитета ]
[############| Гравитационные ботинки ]

Word 2010 [Jul. 26th, 2012|03:50 pm]
Microsoft Office

denny29
Как сделать так,чтобы при включении "Непечатных символов" какие-либо из них не отображались?
Например, °
Link3 comments|Leave a comment

(no subject) [Jul. 26th, 2012|09:00 am]
Microsoft Office

urartu
office - подскажите, можно ли при альбомной ориентации листа нумеровать страницы как при портретной ориентации - т.е. сбоку и повёрнуто на 90 град
Link4 comments|Leave a comment

Как извлечь таблицу ТОП-энцать из бАААльшой таблицы данных в Excel [Jul. 11th, 2012|10:48 pm]
Microsoft Office

zopla
Собственно вопрос:
Имеется таблица с данными.
Например: ФИО / количество сусликов.
ФИО много, например, несколько тысяч.

Нужно из нее функциями ивлечь таблицу, ТОП10 (по количеству сусликов) с содержанием
1. ФИО / количество
2. ФИО / количество
Пытаюсь это делать командами: индекс ( поиск позиции (наибольший..).
Работает но криво: если количество сусликов у всех разное, то все ок,
а если у нескольких ФИО количество одинаковое, то выводит соответственно несколько строк с одинаковой ФИО (видимо которую первую находит для соответствующего места в ТОП.

Есть ли способы решить эту проблему пользуясь только функциями Екселя, и не создавая мощнейшего суперкода VBA?
Link6 comments|Leave a comment

Вопрос по таблицам [Apr. 24th, 2012|03:19 am]
Microsoft Office

mobilemedved
 Есть таблицы в Ворде. Там есть объеденные ячейки в том числе. Необходимо найти в ячейках кодовые слова или фрагменты слов (например "ТЕХНОЛОГИЧЕСКАЯ" или "Содержание операции") и задать этим ячейкам определенный стиль.

Вот соорудил я макрос который работает. Неуклюжий, но время нету. Зато работает!

Sub TechCardFormater()


Dim sStr As String
Dim oTable As Table
 'Таблица, в которой работаем
 Dim oCell As Cell 'Ячейка таблицы
' Dim c As Integer
 
Dim rngTable As Range


 Dim I As Integer

     For I = 1 To ActiveDocument.Tables.Count
               ActiveDocument.Tables(I).Select


            Set rngTable = Selection.Range
            Set oTable = ActiveDocument.Tables(I)
            
            
            Set oCell = oTable.Range.Cells(1) 'Первая ячейка таблицы
 

 'Перебор всех ячеек
 Do
 
     sStr = oCell.Range.Text
           
            If (InStr(1, sStr, "ТЕХНОЛОГИЧЕС", vbTextCompare) > 0) Then
                '  oCell.Shading.BackgroundPatternColor = wdColorGreen
                  
                   oCell.Range.Style = ActiveDocument.Styles("Шапка техкарты")
                   oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(12.05)
                  
           End If
           
             If (InStr(1, sStr, "Пункт РО", vbTextCompare) > 0) Then
                 ' oCell.Shading.BackgroundPatternColor = wdColorGreen
                  oCell.Range.Style = ActiveDocument.Styles("Шапка техкарты")
                  oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(6.31)
           End If
 
     
 
 
 If (InStr(1, sStr, "К РО", vbTextCompare) > 0) Then
                '  oCell.Shading.BackgroundPatternColor = wdColorGreen
                  oCell.Range.Style = ActiveDocument.Styles("Шапка техкарты")
                  
                  oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(6.31)
                  
                  
                  
       End If
 
 If (InStr(1, sStr, "На страниц", vbTextCompare) > 0) Then
              '    oCell.Shading.BackgroundPatternColor = wdColorGreen
                  oCell.Range.Style = ActiveDocument.Styles("Шапка техкарты")
                  oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(8.45)
       End If
 
 
 If (InStr(1, sStr, "Трудоемкость", vbTextCompare) > 0) Then
               '   oCell.Shading.BackgroundPatternColor = wdColorGreen
                  oCell.Range.Style = ActiveDocument.Styles("Шапка техкарты")
                  oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(8.45)
       End If
 
 
 If (InStr(1, sStr, "Содержание операции и технические", vbTextCompare) > 0) Then
                '  oCell.Shading.BackgroundPatternColor = wdColorGreen
                  oCell.Range.Style = ActiveDocument.Styles("Шапка техкарты")
                  
                  
       End If
 
  If (InStr(1, sStr, "Работы выполняемые", vbTextCompare) > 0) Then
              '    oCell.Shading.BackgroundPatternColor = wdColorGreen
                  oCell.Range.Style = ActiveDocument.Styles("Шапка техкарты")
                  oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(6.68)
       End If
 
 
  If (InStr(1, sStr, "Контроль", vbTextCompare) > 0) Then
               '   oCell.Shading.BackgroundPatternColor = wdColorGreen
                  oCell.Range.Style = ActiveDocument.Styles("Шапка техкарты")
                  oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(1.58)
       End If
       
 'низ техкарты
 
 If (InStr(1, sStr, "Контрольно-проверочная", vbTextCompare) > 0) Then
               '   oCell.Shading.BackgroundPatternColor = wdColorGreen
                  
                  oCell.Range.Style = ActiveDocument.Styles("КПА")
                  
                  oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(6.31)
       End If
 
 
 
  If (InStr(1, sStr, "Инструмент и приспособления", vbTextCompare) > 0) Then
               '   oCell.Shading.BackgroundPatternColor = wdColorGreen
                 oCell.Range.Style = ActiveDocument.Styles("КПА")
                 
                 
                 oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(10.63)
       End If
       
       
 If (InStr(1, sStr, "Расходные материа", vbTextCompare) > 0) Then
                '  oCell.Shading.BackgroundPatternColor = wdColorGreen
                  oCell.Range.Style = ActiveDocument.Styles("КПА")
                  
                  oCell.PreferredWidthType = wdPreferredWidthPoints
                  oCell.PreferredWidth = CentimetersToPoints(9.88)
       End If
              
       
    oCell.VerticalAlignment = wdCellAlignVerticalTop
 
 'End With
 'End If
 Set oCell = oCell.Next
 DoEvents
 Loop Until oCell Is Nothing
 
 
 
 Next
 
 
 
 End Sub
Link3 comments|Leave a comment

Оглавление [Mar. 26th, 2012|10:37 am]
Microsoft Office
hallima
Помогите, пожалуйста - не все пункты оглавления выравниваются по правому краю, что делать?) Нужен именно данный стиль...
Точками добить - не вариант..(
Link10 comments|Leave a comment

Глюк с нумерацией [Mar. 23rd, 2012|03:26 pm]
Microsoft Office

n1_seliger
Коллеги, столкнулся с проблемой.

2007 word

В документе есть три раздела.

1 раздел - титульная страница с уникальными колонтитулами/
2 раздела - полностью пустая страница № 2
3 раздел - страница № 3, с которой начинает текст

Задача - сделать так, чтобы нумерация на страницы № 3 начиналась с цифры - 1

По идее все просто: захожу в форматирование нумерации, выбираю "Начать с 1". Но вместо цифры 1 появляется цифра 2!

При этом, если ставлю начать с 0, то начинается с 0
Если ставлю начать с 4, начинается с 4
А если хочу начать с 1, то начинается с 2.

Как такое вообще может быть? ) И что делать?
LinkLeave a comment

MS Word 2003. стили размножаются но не работают, спасите! [Mar. 12th, 2012|10:43 am]
Microsoft Office

mobilemedved
Ситуация такая. Создаю стиль, например "Техкарта" (где в частности шрифт 12 размера задаю), выделяю весь документ и применяю его. Появляется еще куча стилей "Техкарта+" . Если где-то в тексте был 14 шрифт - "Техкарта+14". При том шрифт остается 14.
Работать невозможно, текст совершенно не поддается контролю, что делать, отчет горит, помогите люди умные!
LinkLeave a comment

Альтернатива Microsoft Visio [Jan. 31st, 2012|12:19 pm]
Microsoft Office

vanishedinocean

Не устаю удивляться тому, насколько Microsoft Visio из года в год остатётся "сырой" программой.

Глюки и недоработки уже годами переходят из версии в версию.
Такое ощущение, что программа заброшена именитым разработчиком.

Но реальной альтернативы, как я понимаю, нет?

Необходимо рисовать бизнес-процессы в нотациях EPC и BPMN.
И необходимо, чтобы альтернативная программа могла работать с файлами из Visio.

Link8 comments|Leave a comment

Зафиксировать значение [Jan. 14th, 2012|07:16 pm]
Microsoft Office

irdis
В столбцах А вбиты сцепленные данные из столбцов В и С при помощи функции СЦЕПИТЬ. Данные из В и С уже не нужны. Как зафиксировать сцепленные значения, чтобы можно было удалить ненужные данные? Скопировать столбец А в другую книгу.
Link1 comment|Leave a comment

(no subject) [Jan. 5th, 2012|10:07 pm]
Microsoft Office

urartu
Ситуация - документ с пронумерованными страницами.
Проблема 1: При печати на некоторых страницах, особенно на тех которые с рисунками, номер страницы внизу примерно наполовину не пропечатывается (примерно в верхней своей части). На экране всё в порядке. С чем это может быть связано?
Проблема 2: Как сделать так чтобы на определённых страницах нумерация не отображалась?
Link2 comments|Leave a comment

navigation
[ viewing | 10 entries back ]
[ go | earlier/later ]