Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена « и » на " в Word / 10 сообщений из 10, страница 1 из 1
27.04.2006, 13:52
    #33694407
ыен
ыен
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
Нужно чтобы в документе были только кавычки вот такие: ".
Пробовал сгенерить код при помощи записи макроса (и выполнить Правка - > Заменить) но вылезла вот такая проблема: Word воспринимает эти символы как одно и тоже. Тоесть, замена просто не осуществляется. Подскажите, плиз какой-нибудь другой путь замены? В Excel, например, такой макрос работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2006, 14:07
    #33694486
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2006, 14:17
    #33694533
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
в догонку к vkodor
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Замена прямых кавычек парными и наоборот
При вводе Microsoft Word автоматически заменяет прямые кавычки ( ' или " ) парными ( « » ). 
В версии на английском языке (США) прямые кавычки заменяются на фигурные (  или  ). 

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

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

Чтобы изменить все прямые кавычки на парные кавычки, установите флажок "Прямые" кавычки «парными» 
и повторите процедуру поиска и замены.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2006, 15:15
    #33694764
ыен
ыен
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
Угу, спасибо, понятно. А вот такой вопрос: Каким образом мне нужно сохранить макрос, чтобы он был доступен из любого документа Word? Тоесть, прислали мне файл какой-то я его открыл, нажал комбинацию клавиш, например, макрос прошуршал, я документ сохранил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2006, 15:56
    #33694969
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
знаю 2 способа
1) в "шаблон"
2) в "надстройку"

я предпочитаю 2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2006, 16:09
    #33695025
ыен
ыен
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
HandKot1) в "шаблон" Пробовал записать в какой-либо шаблон отличный от Normal.dot. В этом случае макрос тановиться недоступен из других документов. А Normal.dot поганить не хочеться.
HandKot2) в "надстройку" А нельзя ли поподробнее? Я с надстройками не работал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 16:51
    #33698152
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
ыен HandKot1) в "шаблон" Пробовал записать в какой-либо шаблон отличный от Normal.dot. В этом случае макрос тановиться недоступен из других документов. А Normal.dot поганить не хочеться.
HandKot2) в "надстройку" А нельзя ли поподробнее? Я с надстройками не работал.

Надстройка - это файл с расширеним xla
Создается в Ёкселе
Должен лежать В папке «Documents and Settings/<имя пользователя>/Application Data/Microsoft/AddIns».
Более подробно читайте в ХЕЛПе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2006, 09:30
    #33700858
ыен
ыен
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
А! В Екселе! Понятно! Я-то думал для Ворда нужно в Ворде ее и создавать... Про надстройки в Екселе у меня инфа есть. Спасибо за ответы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
06.02.2014, 14:50
    #38551950
Сергей_12345
Сергей_12345
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
Вопрос в другом: как заменить парные кавычки « » на парные кавычки „ ” или парные “ ” (а не такие " ")? И наоборот?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2014, 16:30
    #38552148
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена « и » на " в Word
Сергей_12345,

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

ВЫДЕЛИТЬ левую вавычку и вызвать макрос(циклический перебор)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена « и » на " в Word / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 531ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2174260]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 83ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 350ms
total:  531ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]