|
0 / 0 / 0
Регистрация: 07.01.2017
Сообщений: 12
|
|
| 1 | |
Word не меняет шрифт07.01.2017, 09:00. Показов 15867. Ответов 20
Метки нет (Все метки)
Хочу поменять на Times или Arial. Не меняет. Формат не чистит и т.п. Как и что делать не знаю. Фрагмент файла во вложении.
0
|
|
(| 07.01.2017, 09:00 | |
|
Ответы с готовыми решениями:
20
шрифт в формулах в word Неуправляемый шрифт в MS Word 2007 Word 2007 переносы в формулах и шрифт. Word 2010 игнорирут установленный шрифт |
|
0 / 0 / 0
Регистрация: 07.01.2017
Сообщений: 12
|
|
| 07.01.2017, 10:24 [ТС] | 3 |
|
Шрифт Гост читает. Все нормально. Им и был написан документ.
Но именно с этим файлом началась такая история. Меняешь на любой другой шрифт и буквы превращаются в квадратики. Я так понимаю, что просто файл накрылся? Все праздники работал, а тут вон как... 
0
|
|
|
Динохромный
1396 / 761 / 282
Регистрация: 22.12.2015
Сообщений: 2,381
|
|
| 07.01.2017, 11:15 | 8 |
Сообщение от vmaxime
Приложите следующие скрины с ворда, в котором ваш документ не читается: 1. Скрин нового документа с любым текстом ( например вбейте без кавычек "=rand()" и нажмите энтер), оформленный шрифтом Gost typeB. 2. Скрин вашего нечитаемого документа - Параметры->дополнительно->Секция "показывать содержимое документа-> кнопка "Подстановка шрифтов".
0
|
|
|
0 / 0 / 0
Регистрация: 07.01.2017
Сообщений: 12
|
|
| 07.01.2017, 12:27 [ТС] | 11 |
|
Основная проблема не в тексте.
А что именно в этом файле Word не меняет шрифт на другой. Содержимое читается только на исходном компьютере. Когда открываю файл на другом компьютере, где установлен принтер - текст меняется на квадратики. Скрин с текстом с компьютера где стоит принтер. Шрифт установлен. Добавлено через 34 секунды
Сообщение от Krasme
0
|
|
|
0 / 0 / 0
Регистрация: 07.01.2017
Сообщений: 12
|
|
| 07.01.2017, 12:30 [ТС] | 12 |
|
Скрин как открывается файл на втором компьютере или если пытаешься сделать другой шрифт на исходном компьютере.
Кнопка "Подстановка шрифтов" - Установка дополнительных шрифтов не требуется, все шрифты используемые в данном документе установлены.
0
|
|
|
Динохромный
1396 / 761 / 282
Регистрация: 22.12.2015
Сообщений: 2,381
|
|
| 07.01.2017, 21:29 | 20 |
|
vmaxime, попробовал VBA код, взятый отсюда. С приложенным куском помогло, попробуйте на копии документа.
Кликните здесь для просмотра всего текста
Код
Sub changeToRusGOSTB()
Selection.WholeStory
Selection.Font.Name = "GOST type B"
For i = 61632 To 61695
a1 = i
a = Trim("^u") & Trim(Str(a1))
b1 = i - 60592
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = a
.Replacement.Text = ChrW(b1)
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
For i = 61472 To 61533
a1 = i
a = Trim("^u") & Trim(Str(a1))
b1 = i - 61440
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = a
.Replacement.Text = ChrW(b1)
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
For i = 61535 To 61627
a1 = i
a = Trim("^u") & Trim(Str(a1))
b1 = i - 61440
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = a
.Replacement.Text = ChrW(b1)
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
Selection.WholeStory
Selection.LanguageID = wdRussian
Application.CheckLanguage = True
End Sub
0
|
|
| 07.01.2017, 21:29 | |
| 07.01.2017, 21:29 | |
|
Помогаю со студенческими работами здесь
20
Word 2007: найти текст и заменить шрифт Сделать макрос в Word, вводишь строку и макрос произвольно меняет шрифт, цвет и размер для каждого слова из этого активного вордовского документа.
choosefont меняет шрифт, но не цвет Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
