Скачать: CL | DM;

Изменения шрифта в Word   Найти похожие ветки 

← →
Scorpio ©   (2006-02-09 13:38) [0]

Добрый день мастера. У меня возникла проблема, необходимо в ворд передать данные, но только так, чтобы в одной строке было написано двумя разными шрифтами, вот исходный код:

    WordApplication1.Documents.Add(EmptyParam,EmptyParam);

    WordFont1.Bold := 1;
    WordFont1.Size := 8;
    WordFont1.Name := "Arial";
    WordApplication1.Selection.InsertAfter("Серия АА №   ");
    WordApplication1.Selection.Collapse(direction);

    WordFont1.Bold := 0;
    WordFont1.Size := 10;
    myrange.WordFont1.Name := "Courier New";
    nom := "040000";
    WordApplication1.Selection.InsertAfter(nom);
    WordApplication1.Selection.Collapse(direction);


А он мне пишет эту строку только первым шрифтом, хотя если перейти на следующую строку, то там шрифт уже меняется. Как мне это лечить ??

---

← →
umbra ©   (2006-02-09 15:05) [1]

а что такое myrange?

---

← →
Scorpio ©   (2006-02-09 16:52) [2]

Это я забыл убрать, ставил эксперементы как было написано в книге, но не работает.

---

← →
YurikGL ©   (2006-02-09 20:55) [3]

Что-то типа
range(...).select
Selection.font....

---

← →
umbra ©   (2006-02-10 10:55) [4]

можно сделать примерно так. mydoc - документ ворд


var
 myrange, mydoc: variant;
 wordc: integer;
{..................................................................}
 myrange := mydoc.Content;
 wordc := myrange.Words.Count;
 myrange.InsertAfter("Добавляем в конец документа шесть слов");
 myrange.Words[wordc + 5].Bold := true; //слово "шесть" должно стать жирным
 myrange := Unassigned;


---

← →
Scorpio ©   (2006-02-20 16:40) [5]

У меня этот способ не работает

myrange := mydoc.Content;

он этого не понимает.

---

← →
umbra ©   (2006-02-20 17:55) [6]

а какой тип у mydoc? Этот пример рассчитан на то, что Вы создаете экземпляр ворд с помощью функции CreateOleObject, добавляете там документ с помощью Documents.Add (или открываете существующий) и присваиваете ссылку на него переменной mydoc. Если же Вы пользуетесь готовым компонентом TWordApplication, то я не уверен, что этот код будет работать.

---

← →
scorpio ©   (2006-03-01 10:00) [7]

Так весь мой код вверху

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c