Как из delphi вставить символ в word?

[Sony]

Подскажите, как решить такой вопрос. Открываю из delphi существующий файл word (шаблон).В нем есть CheckBox. Как к нему обратиться из delphi, чтобы поставить галочку (value:=true)? была попытка что-то типа w1.ActiveDocument.VBProject.VBCompo nents ....но не увенчалась успехом...
Или вариант: в Text box в Word вставить символ:
W1: TWordApplication;
vr1, vr2:Olevariant;
vr2:= 'Courier New';
vr1:='Unicode';
w1.Selection.InsertSymbol(9658,vr2, vr1, ...) но здесь должен быть четвертый параметр Bais:Olevariant. Какой?

[nova-alex]

Попробуй включить в Word-е макрос и напиши в CheckBoxe что-нибудь, потом макрос останови и через VBasic посмотри код этого макроса, он дает много чего полезного, а потом используя свойства бокса работай с ними через делфи. Скачай книгу - М.Фленов "Библия Delphi" -там есть полезные простые советы по поводу MSOffice.

[Sony]

Сообщение от nova-alex

Попробуй включить в Word-е макрос и напиши в CheckBoxe что-нибудь, потом макрос останови и через VBasic посмотри код этого макроса, он дает много чего полезного, а потом используя свойства бокса работай с ними через делфи. Скачай книгу - М.Фленов "Библия Delphi" -там есть полезные простые советы по поводу MSOffice.

смотрела, в коде vb у функции три параметра, в delphi четыре. И просто EmptyParam в качестве четвертого не прокатывает

[Ship_1]

Подниму темку, чтоб не плодить новую, т.к. мой вопрос с названием темы полностью созвучен.
Я в ворде создаю таблицу (точнее, добавляю строки к уже существующей) и заношу в ячейки значения из своей таблицы

MyWord.ActiveDocument.Tables.Item(1).Cell(i,1).Range.Text:=StringGrid1.Cells[1,i]

Как мне в конце добавить символ? Например, "♫". В Дельфи из Ворда он отображается как просто буква "d". Пробовал методом

TmpStr:=TmpStr+#$266B;

но этот код и в ворд вместо "♫" добавляет "d". При попытке вставить этот символ просто в код программы в этом виде - в коде отображается "?".
Как быть?

[oksalan]

можно еще так я думаю:

procedure TForm3.N11Click(Sender: TObject);
var
MsWord,Table:Variant;
i,j:integer;
begin
MsWord:=CreateOleObject('Word.Application');
MsWord.Visible:=False;
MsWord.Documents.Add;
MsWord.Selection.Font.Name:='Times New Roman';
MsWord.Selection.Font.Size:='12';
MsWord.ActiveDocument.Tables.Add(MsWord.ActiveDocument.Range,
dbgrd1.DataSource.DataSet.RecordCount, dbgrd1.DataSource.DataSet.FieldCount);
Table:=MsWord.ActiveDocument.Tables.Item(1);
Table.Style:='Сетка таблицы';
dbgrd1.DataSource.DataSet.First;
for i:=0 to dbgrd1.DataSource.DataSet.RecordCount-1 do
begin
for j:=0 to dbgrd1.DataSource.DataSet.FieldCount-1 do
Table.Cell(i+1,j+1).Range.InsertBefore(dbgrd1.DataSource.DataSet.Fields[j].AsString);
dbgrd1.DataSource.DataSet.Next;
MsWord.Visible:=True;
end;
 
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Ship_1]

Не всё понятно и немного путанно. Если правильно понимаю, Вы описали вариант переноса значений из базы данных (dbgrd) в таблицу ворда?
InsertBefore проблему не решило. Точно так же выводит "d" вместо "♫".

[Serge_Bliznykov]

не знаю точно, просто предположение:

Ship_1, а версия Delphi у вас, число случайно, не меньше, чем 2009 ?!
Подозреваю, что проблема кроется в том, что строки не Unicode...

[Vapaamies]

Для Delphi 6/7 должно быть примерно так:

var
  TmpStr: WideString;
begin
  ...
  TmpStr := TmpStr + WideChar($266B);
  ...
end;

[Ship_1]

Serge_Bliznykov, она достаточно специально меньше 2009. Это семёрка.
Vapaamies, получилось! Спасибо большое!

P.S. А можно ли это

TmpStr:=StringGrid1.Cells[3,i];
TmpStr:=TmpStr+WideChar($266F);

сделать одной командой? Прямое сложение даёт "?" вместо символа. Попробовал всё загнать в PWideChar(StringGrid1.Cells[3,i]+WideChar($266F)) - всё равно вопрос, а вместо значения из StringGrid1 вообще иероглифы.

[Vapaamies]

Сделать одной командой можно. Сначала нужно посмотреть, какой тип имеет параметр процедуры или свойство. Если WideString, можно смело писать так:

begin
  ...
  Word.TraTaTa.SomeProc(WideString(StringGrid1.Cells[3,i]) + WideChar($266F));
  ...
end;