jarslav

Дата регистрации: 2010-11-24 11:18:32

Ник: jarslav

Комментариев: 7

Редактировать персональные данные


Его последние комментарии:

  • Задать обтекание текстом для всех рисунков в документе
    2010-11-24 16:57:10

    Мой вариант:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    Sub ImageWrapFormatBugFix()
    '
    ' ImageWrapFormatBugFix Macro
    '
    '
    Dim Promt, Style, Title, Help, Ctxt, Response, MyString
    Promt = "This macro fixes a bug with wrapping patterns arising when importing data from a document Open Office. Do you want to continue?" + vbCrLf + vbCrLf + "NB: Do not run this macro more than once."
    Style = vbYesNo + vbCritical + vbDefaultButton2
    Title = "Wrapping patterns FIX"
    Response = MsgBox(Promt, Style, Title + " Welcome")
    If Response = vbNo Then
        Exit Sub
    End If
    Dim Msg
    Msg = "Shapes in current document:" + vbCrLf
    Msg = "Name" + vbTab + vbTab + "Current" + vbTab + "Fixed" + vbCrLf
    Dim img As Object
    For Each img In ActiveDocument.Content.ShapeRange
        Msg = Msg + img.Name + vbTab + CStr(img.WrapFormat.Type)
        img.WrapFormat.Type = wdWrapInline
        Msg = Msg + vbTab + CStr(img.WrapFormat.Type) + vbCrLf
    Next
    Response = MsgBox(Msg, vbInformation, Title + " Results")
    End Sub
  • Запрет на распечатку документов с чужого компьютера
    2010-11-24 11:55:42

    Попробуйте просто поставить пароль на открытие документа ;-) Все другие решения, основанные на макросах, достаточно легко обойти.

  • Вставка неформатированного текста
    2010-11-24 11:42:33

    Альтернативный способ.

    В Word 2007 после обычной вставки (Ctrl+V) любого форматированного каким-либо способом фрагмента можно выбрать вариант вставки по умолчанию. После вставки, в нижнем правом углу от вставленного фрагмента появляется Параметры вставки (небольшой квадратик) - нажимаем, выбираем Сохранить только текст и ставим Назначить режимом вставки по умолчанию). Теперь при обычной вставке (Ctrl+V) всегда будет только неформатированный текст.

  • Как выделить все объекты Shapes на определенной странице
    2010-11-24 11:34:33

    Очень нужная вещь при создании рамок посредством надписей, когда вручную приходится выделять множество полей. Актуально до Word 2010 - там, насколько, я знаю уже есть встроенный иснтрумент для этих целей.

  • Проверка орфографии и сохранение по запросу
    2010-11-24 11:29:37

    Отличная идея, спасибо! Стоит только дополнить настройкой в шаблоне Не проверять орфографию и Не проверять грамматику для всех документов.

  • Задать обтекание текстом для всех рисунков в документе
    2010-11-24 11:27:29

    Это особенно полезно при импортировании фрагментов документа из Open Office в Microsoft Word. При импортировании посредством обычной вставки и ипользования стилей конечного документа обтекание всех рисунков почему-то съезжает из В тексте в Вокруг рамки. Действительно для Microsoft Word 2007 и Open Office 3.2 (шаблон докмуента создавался в Word и редактировался в Open Office, после чего обратно импортировался в Word).

  • Макрос пакетной замены от Александра Витера
    2010-11-24 11:18:32

    Да, это все здорово, особенно когда количество документов переваливает за сотню. Поэтому все авторам - респект:) Но обычно требуется замена в 2-10 документах. Для этого вовсе не обязательно использовать сторонние средства, а само решение весьма банально:

    + Выделяем и открываем все документы, в которых требуется произвести замену.

    + В последней открывшемся документе нажимаем Ctrl+H - появится стандартное диалоговое окно поиска и замены, в нем задаем все необходимые условия.

    + Нажимаем Заменить все для замены в текущем документе. Сохраняем и закрываем документ, не закрывая (!) при этом окно поиска и замены, после чего переключаемся на следующий окрытый документ (Ctrl+F6).

    + В следующем документе для нас уже отображено предыдущее диалоговое окно поиска и замены со всем заданными условиями - остается только нажать Заменить все.

    + ...

    PS. Хочу подчеркнуть, что стандартный механизм поиска и замены в Word достаточно мощный (например, использование подстановочных символов и поиска по стилями/форматам может значительно сократить трудозатраты), поэтому использование сторонних средств и макросов не всегда оправдано.

контакты

 
^ Наверх