Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Office Новый топик    Ответить
 Замена « и » на " в Word  [new]
ыен
Guest
Нужно чтобы в документе были только кавычки вот такие: ".
Пробовал сгенерить код при помощи записи макроса (и выполнить Правка - > Заменить) но вылезла вот такая проблема: Word воспринимает эти символы как одно и тоже. Тоесть, замена просто не осуществляется. Подскажите, плиз какой-нибудь другой путь замены? В Excel, например, такой макрос работает.
27 апр 06, 13:52    [2609551]     Ответить | Цитировать Сообщить модератору
 Re: Замена « и » на " в Word  [new]
vkodor
Member

Откуда: Moscow
Сообщений: 1824


К сообщению приложен файл. Размер - 0Kb
27 апр 06, 14:07    [2609654]     Ответить | Цитировать Сообщить модератору
 Re: Замена « и » на " в Word  [new]
HandKot
Member

Откуда: Sergiev Posad
Сообщений: 3041
в догонку к vkodor

Замена прямых кавычек парными и наоборот
При вводе Microsoft Word автоматически заменяет прямые кавычки ( ' или " ) парными ( « » ).
В версии на английском языке (США) прямые кавычки заменяются на фигурные ( или ).

Чтобы включить или отключить этот режим, выполните следующие действия.

В меню Сервис выберите команду Параметры автозамены, а затем откройте вкладку Автоформат при вводе.
В группе Заменять при вводе установите или снимите флажок "Прямые" кавычки «парными».
Примечание. Можно найти и заменить все парные кавычки в документе на прямые.
Для этого снимите флажок "Прямые" кавычки «парными» на вкладке Автоформат при вводе.
Выберите команду Заменить в меню Правка. Введите ' или " в поля Найти и Заменить на, а затем нажмите кнопку Найти далее
или Заменить все.

Чтобы изменить все прямые кавычки на парные кавычки, установите флажок "Прямые" кавычки «парными»
и повторите процедуру поиска и замены.
27 апр 06, 14:17    [2609712]     Ответить | Цитировать Сообщить модератору
 Re: Замена « и » на " в Word  [new]
ыен
Guest
Угу, спасибо, понятно. А вот такой вопрос: Каким образом мне нужно сохранить макрос, чтобы он был доступен из любого документа Word? Тоесть, прислали мне файл какой-то я его открыл, нажал комбинацию клавиш, например, макрос прошуршал, я документ сохранил.
27 апр 06, 15:15    [2610083]     Ответить | Цитировать Сообщить модератору
 Re: Замена « и » на " в Word  [new]
HandKot
Member

Откуда: Sergiev Posad
Сообщений: 3041
знаю 2 способа
1) в "шаблон"
2) в "надстройку"

я предпочитаю 2
27 апр 06, 15:56    [2610405]     Ответить | Цитировать Сообщить модератору
 Re: Замена « и » на " в Word  [new]
ыен
Guest
HandKot
1) в "шаблон"
Пробовал записать в какой-либо шаблон отличный от Normal.dot. В этом случае макрос тановиться недоступен из других документов. А Normal.dot поганить не хочеться.
HandKot
2) в "надстройку"
А нельзя ли поподробнее? Я с надстройками не работал.
27 апр 06, 16:09    [2610485]     Ответить | Цитировать Сообщить модератору
 Re: Замена « и » на " в Word  [new]
HandKot
Member

Откуда: Sergiev Posad
Сообщений: 3041
ыен
HandKot
1) в "шаблон"
Пробовал записать в какой-либо шаблон отличный от Normal.dot. В этом случае макрос тановиться недоступен из других документов. А Normal.dot поганить не хочеться.
HandKot
2) в "надстройку"
А нельзя ли поподробнее? Я с надстройками не работал.


Надстройка - это файл с расширеним xla
Создается в Ёкселе
Должен лежать В папке «Documents and Settings/<имя пользователя>/Application Data/Microsoft/AddIns».
Более подробно читайте в ХЕЛПе
28 апр 06, 16:51    [2615114]     Ответить | Цитировать Сообщить модератору
 Re: Замена « и » на " в Word  [new]
ыен
Guest
А! В Екселе! Понятно! Я-то думал для Ворда нужно в Ворде ее и создавать... Про надстройки в Екселе у меня инфа есть. Спасибо за ответы.
2 май 06, 09:30    [2619607]     Ответить | Цитировать Сообщить модератору
Между сообщениями интервал более 1 года.
 Re: Замена « и » на " в Word  [new]
Сергей_12345
Guest
Вопрос в другом: как заменить парные кавычки « » на парные кавычки „ ” или парные “ ” (а не такие " ")? И наоборот?
6 фев 14, 14:50    [15528916]     Ответить | Цитировать Сообщить модератору
 Re: Замена « и » на " в Word  [new]
ПЕНСИОНЕРКА
Member

Откуда: Владимирская обл
Сообщений: 4755
Сергей_12345,

кавычки „8222 8221”
кавычки “8220 8221”
«171 187»

ВЫДЕЛИТЬ левую вавычку и вызвать макрос(циклический перебор)
Sub MREPL07()
Dim N1Z, N2Z, N1W, N2W
''
'ChrW(171) -ChrW(187)
'ChrW(8222)-ChrW(8221)
'ChrW(8220)-ChrW(8221)
''
N1Z = Selection.Range.Text
If AscW(N1Z) = 171 Then
 N1W = ChrW(187)
 N2Z = ChrW(8222)
 N2W = ChrW(8221)
ElseIf AscW(N1Z) = 8222 Then
 N1W = ChrW(8221)
 N2Z = ChrW(8220)
 N2W = ChrW(8221)
Else
 N1W = ChrW(8221)
 N2Z = ChrW(171)
 N2W = ChrW(187)
End If

 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = N1Z
  .Replacement.Text = N2Z
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = N1W
  .Replacement.Text = N2W
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub
6 фев 14, 16:30    [15529830]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Office Ответить