请问大侠们如何用Delphi在Word中控制上标。 ( 积分: 100 )

  • 主题发起人 主题发起人 goldgun
  • 开始时间 开始时间
G

goldgun

Unregistered / Unconfirmed
GUEST, unregistred user!
比如我数据库中有一个单位M3(其实是立方米),现在我想把这个单位输出到Word中。但是在Word中显示要M³,请问这个要怎么处理,想了很久,一直都不知道怎么解决。
请大家帮帮忙。
 
怎么没人回答啊,5555555
数据库里取出来了,但是要怎么转换它啊。急死人了!
 
在word中录一个宏,看看VBA源码,有调用方法。
 
请问怎样才能看它的VBA源码?谢谢了!
 
procedure TfrmWord.btnOleVariantClick(Sender: TObject);
var
WordApp, WordDoc, WordParagraph, WordRange: OleVariant;
Template, NewTemplate, documenttype: OleVariant;
begin
try
WordApp := GetActiveOleObject('Word.Application');
except
try
WordApp := CreateOleObject('word.application');
except
ShowMessage('打开Word文件时出错!');
exit;
end;
end;
WordApp.Visible := True;
template := ExtractFilePath(Application.ExeName) + 'Normal.dot';
newtemplate := false;
documenttype := emptyparam; //默认参数
visible := true;
WordDoc := WordApp.Documents.Add(template, newtemplate, documenttype, Visible);
WordParagraph := WordApp.activedocument.paragraphs.add; //新增一行
WordRange := WordParagraph.range;
WordRange.Collapse(wdCollapseEnd);

WordRange.text := 'M';
WordRange.Font.Size := '10';
WordRange.Font.Name := '宋体';
WordRange.Collapse(wdCollapseEnd);

WordRange.text := '3';
WordRange.Font.Size := '10';
WordRange.Font.Name := '宋体';
WordRange.Font.Superscript := True;
WordRange.Collapse(wdCollapseEnd);
end;
记得use ComObj
 
谢谢newsmile大哥了!不过我这个是在Word中插入一个标签,此标签也保存在数据中,在数据库中手动对此标签插入一条SQL语句。然后执行SQL语句就在Word中生成一个表格,表格中的内容由SQL语句产生,表格的行、例也是由SQL语句定死的啊。这个可怎么办呢?
 
后退
顶部