三个问题300分(300分)

  • 主题发起人 主题发起人 maming
  • 开始时间 开始时间
M

maming

Unregistered / Unconfirmed
GUEST, unregistred user!
一位朋友要你帮忙的问题,可惜我一个也不知道。只好向大家请教了。<br>问题如下:<br>&nbsp; &nbsp; ①怎样给word或其它编辑软件发送汉字?我利用sendmessage发送时,在<br>word中老是变成怪字符。请你帮助我解决一下。<br>&nbsp; &nbsp; ②怎样获得光标(脱字号)在编辑框中的位置。我利用API函数GetCaretPos<br>在WORD中行不通,其它一些软件中能行,不知为何?请赐教。<br>&nbsp; &nbsp; ③汉字中简体字与繁体字如何转换?汉字中半角与全角又有什么区别?
 
踢一脚!
 
1.旁门左道:用剪贴板Paste &nbsp;or &nbsp;OLE自动化直接控制Word<br>&nbsp; (如果可能的话,请把您的SendMessage代码贴出来)<br>2.Word的编辑器不是简单的多行文本,最好用OLE实现<br>3.GB &lt;==&gt; Big5 ?? 到网上搜一下,很多的(源代码)。<br>&nbsp; 在半角状态下,输入的英文字符和西文方式下的一样(仅占1Byte);而在全角方式下,英文字符和<br>普通汉字一样(占2Byte)
 
对了,用OLE会更加方便。
 
问题太笼统,无法作详细的回答,通常我用word 是通过ole.<br>能否说的更加详细一点了<br>
 
搬个小板凳听课
 
你怎么发送的汉字??<br>我曾经先存在剪贴版然后向word发送粘贴消息可以成功.<br>见繁体转换可以用控件,半角和全角有些字符不同.<br><br>
 
1.我也曾经遇到过这个问题,你可以用DDE来解决,如要源代码,请给我写E-mail<br>2.不知你想干什么?
 
我也来踢一脚
 
WORD设计为自动化服务器,可以编程控制的。我做过控制IE的,WORD没试过。
 
procedure TForm1.Button1Click(Sender: Tobject);<br>var MSWord: Variant;<br>begin<br>MSWord := CreateOLEObject('Word.Application');//连接Word<br>MSWord.Documents.Open(FileName:='d:/test.doc', ReadOnly:=True);//打开外部Word文档<br>MSWord.Visible := 1;//是否显示文件编辑<br>MSWord.ActiveDocument.Range(Start:=0, End:=0);//开始改变的启止位置<br>MSWord.ActiveDocument.Range.InsertAfter(Text:='Title');//在Word中增加字符'Title'<br>MSWord.ActiveDocument.Range.InsertParagraphAfter;<br>MSWord.ActiveDocument.Range.Font.Name := 'Arial';//字体名称<br>MSWord.ActiveDocument.Range.Font.Size := 24;//字体大小<br>end;
 
抬个床来听课。
 
用SENDMESSAGE是完全可行的,但是记得在发送汉字之前一定要将系统状态转为CH
 
床和板登都有了,<br>那我抬张沙发好了,一起听课!<br>顺便也踢一脚哈!
 
关注,关注~~!
 
怎一个关注了得
 
后退
顶部