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

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

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

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

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

Надстройка - это файл с расширеним xla
Создается в Ёкселе
Должен лежать В папке «Documents and Settings/<имя пользователя>/Application Data/Microsoft/AddIns».
Более подробно читайте в ХЕЛПе
...
Рейтинг: 0 / 0
Замена « и » на " в Word
    #33700858
ыен
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А! В Екселе! Понятно! Я-то думал для Ворда нужно в Ворде ее и создавать... Про надстройки в Екселе у меня инфа есть. Спасибо за ответы.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Замена « и » на " в Word
    #38551950
Сергей_12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вопрос в другом: как заменить парные кавычки « » на парные кавычки „ ” или парные “ ” (а не такие " ")? И наоборот?
...
Рейтинг: 0 / 0
Замена « и » на " в Word
    #38552148
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сергей_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
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена « и » на " в Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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