Как задать кодовую страницу в новом документе Word

@lemenev · Регистрация: 04.10.2021

Студворк — интернет-сервис помощи студентам

Я создаю новый документ Word средствами VBA. У меня немецкая Windows, т.е. кодовая страница 1252. Все русские буквы отображаются неверно. Как мне указать кодовую страницу 1251?

Code
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
57
58
59
60
61
62
63
64
*:**************************************
*:
*:  Программа : WORD.PRG
*  Hазначение : Вывод текста в файл .DOC для Word
*
****************************************
 
FileToPrint = FullPath("")+"MyWord.DOC" && в текущей папке
 
File_in_Use = .F.
TRY
 IF FILE( FileToPrint )
   DELETE FILE ( LOCFILE(FileToPrint) )
 ENDIF
CATCH
   Messagebox("Файл "+FileToPrint+" сейчас обрабатывается")
   File_in_Use = .T.
ENDTRY
 
* Создаем новый документ MS WORD 
LOCAL loWord, loWordDoc
TRY
    loWord = GETOBJECT( , 'WORD.APPLICATION')
CATCH
    loWord = CREATEOBJECT( 'WORD.APPLICATION')
ENDTRY
loWordDoc = loWord.Documents.Add
*loWordDoc = loWord.Documents.Add.SaveAs( FileToPrint ) 
 
WITH loWord.Selection
    .Font.Name = "Times New Roman"
    .Font.Bold = .T.
    .LanguageID = "1049"    && Русский язык
    .TypeText( "Пример текста.")
    .Font.Bold = .F.
    .TypeParagraph
    .LanguageID = "1033"    && Английский язык США
    .TypeText( "I don't understand.")
    .TypeParagraph
    .LanguageID = "1031"    && Немецкий язык
    .TypeText( "SьЯe Kartoffeln.")
    .TypeParagraph
ENDWITH
 
* Сохраним документ
IF !File_in_Use
    *loWordDoc.Save
    loWordDoc.SaveAs( FileToPrint )
ENDIF
 
* Делаем созданный документ видимым
m.loWord.Visible = .T.
 
* Выводится экземпляр приложения Word на передний план 
LOCAL loShell 
loShell=CreateObject("WScript.Shell") 
IF loShell.AppActivate(loWord.Caption) = .T. 
    loShell.SendKeys("% ~") 
ENDIF 
 
RETURN
 
*:**********************************************************************
*:* End of  WORD.PRG *******

@lemenev · 08.10.2021, 13:04 **[ТС]**

Решение найдено, но оно не программное и вообще лежит за пределами FoxPro и VBA.
Нужно в региональных настройках операционной системы указать текущий язык программ, не поддерживающих Unicode, - русский. Тогда FoxPro сможет передавать в Word русский текст, но уже не сможет немецкий.

shanemac51 · 28.02.2022, 11:24

lemenev, когда-то, очень давно, я формировала из dBASE(кодировка ДОС 866) документ в HTM-формате для печати в WORD

Code
1
2
3
4
5
6
7
8
9
10
11
12
set alte to c:\temp\w2202228.doc
set alte on
text
<html>
<meta charset=CP866>  не помню точный синтаксис
<pre>
полезный текст
 
</pre>
</html>
set alte off
set alte to

потом подобным образом выводила и таблицы и заголовки(все в стандартных 20-30 тегах)

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@lemenev 0 / 0 / 0 Регистрация: 04.10.2021 Сообщений: 2
	08.10.2021, 13:04 [ТС]
	Решение найдено, но оно не программное и вообще лежит за пределами FoxPro и VBA. Нужно в региональных настройках операционной системы указать текущий язык программ, не поддерживающих Unicode, - русский. Тогда FoxPro сможет передавать в Word русский текст, но уже не сможет немецкий. 0