jarslav
Дата регистрации: 2010-11-24 11:18:32
Ник: jarslav
Комментариев: 7
Редактировать персональные данные
Его последние комментарии:
- Задать обтекание текстом для всех рисунков в документе
2010-11-24 16:57:10
Мой вариант:
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 достаточно мощный (например, использование подстановочных символов и поиска по стилями/форматам может значительно сократить трудозатраты), поэтому использование сторонних средств и макросов не всегда оправдано.