1.所需的三个控件: ChooseWA: TWordApplication; ChooseWD: TWordDocument; ChooseWF: TWordFont; 2.检查计算机是否安装了WORD try ChooseWA.Connect; except MessageBox(handle,'无法链接,请确认电脑上是否安装Word XP/2003及以上版本','连接出错', MB_Ok or MB_ICONERROR); Abort; end; 3.关闭WORD拼写检查 //因为Word进行拼写检查需要很多时间,所以首先关闭检查 ChooseWA.Options.CheckSpellingAsYouType := False; ChooseWA.Options.CheckGrammarAsYouType := False; 4.新建一个文档并设置文档的标题 var NewDocument: _Document; ItemIndex: OleVariant; ItemIndex := 1; NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ChooseWD.ConnectTo(NewDocument); ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一个文档';//此文档的第一个窗口的标题,试卷 名称 5.写入数据 ChooseWD.Range.InsertAfter('第一行数据'+#13);//#13代表换行 6.设置字体格式 procedure SetFont(aBold,aItalic,aShadow,aSize:integer); begin ChooseWF.ConnectTo(ChooseWD.Sentences.Get_Last.Font); ChooseWF.Name := '宋体'; ChooseWF.Bold := aBold; ChooseWF.Italic := aItalic; ChooseWF.Shadow := aShadow; ChooseWF.Size := aSize; end; 如:SetFont(1,0,0,22);//设置字体为22号 7.向WORD中写入表格 (1)插入表格: ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum为行数, ColNum为列数 (2)插入数据: ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列'; ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列'; 8.向WORD写入图片 var Img: TImage; MyFormat: Word; AData: Cardinal; APalette: HPALETTE; Img.Picture.LoadFromFile('文件路径');//从文件夹中导入图片至控件 Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//将图片转存到剪贴板中 Clipboard.SetAsHandle(MyFormat,AData);//将剪贴板中的图片复制出来,注意添加Clipbrd单元 ChooseWD.Sentences.Last.Paste;//在WORD中粘贴图片 9.在界面中显示WORD文档 ChooseWA.Visible:=true; 10.断开与WORD的链接 ChooseWA.Disconnect; ChooseWD.Disconnect; Chart1.SaveToBitmapFile(‘文件名.bmp’);
2024-01-17 22:00:13 2KB delphi word
1
1.可以对文本文件精确查找。 2.不同区域会用不同颜色标注。(源码)
2024-01-17 21:02:13 477KB delphi 文件对比源码
1
1.QQ 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责! 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用!
2024-01-17 19:59:31 2.6MB delphi Android 二维码
1
今天小编就为大家分享一篇关于Nginx跨域设置Access-Control-Allow-Origin无效的解决办法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
2024-01-17 16:43:50 34KB
1
'函数名称 :CreateDbPw '函数说明 :为没有密码的Access数据库添加一个密码 '函数名称 :ModifyPw '函数说明 :修改Access数据库密码
2024-01-17 11:38:44 1KB
1
<math> D = 2 + 1 </ math>由爱因斯坦–希尔伯特作用(带负号)加上曲率中的二次项(<math> K </ math>- 术语)。 在这里,我们将线性化的<math> K </ math> -term的Kaluza-Klein维数缩减为<math> D = 1 + 1 </ math>。 我们以<math> D = 1 + 1 </ math>,由等级2张量描述。 值得注意的是,在<math> D <m
2024-01-17 10:23:45 251KB Open Access
1
$$ \ mu \ nu \ mathrm {SSM} $$μνSSM是标准模型(SM)的简单超对称扩展,能够与实验一致地预测中微子物理学。 在本文中,我们用混合壳上/ $$ {中的一代右手中微子对$$ \ mu \ nu \ mathrm {SSM} $$μνSSM的中性标量扇区执行完整的一环重整化。 \ overline {\ mathrm {DR}}} $$DR¯方案。 将详细讨论重归一化过程,着重说明与最小重(MSSM)和次最小(NMSSM)超对称标准模型在字段重归一化和非风味对角软质量参数处理方面的概念差异 在$$ \ mu \ nu \ mathrm {SSM} $$μνSSM中打破R奇偶性。 我们计算对$$ \ mu \ nu \ mathrm {SSM} $$μνSSM的中性标量质量的完整一环修正。 单环贡献由可用的MSSM高阶校正补充。 我们获得了与实验范围一致的类似SM的希格斯玻色子质量的数值结果。 我们将我们的结果与NMSSM中的预测进行比较,以得出真实的$$ \ mu \ nu \ mathrm {SSM} $$μνSSM类贡献的显着性的度量。 由于中微子Yu
2024-01-17 10:15:50 1.49MB Open Access
1
$$ \ hbox {Li} _ {2} \ hbox {MoO} _ {4} $$ Li2MoO4和CaMoO $$ _ 4 $$ 4等基于钼的晶体正在成为寻找无中微子的下一代实验的主要候选对象 使用低温量热仪(CUPID,AMoRE)进行双β衰变。 这些晶体的精美能量分辨率和高放射线纯度是以潜在有害的背景源为代价的:两个中微子双β衰变为$$ ^ {100} $$ Mo,实际上,该晶体的快速半衰期 衰变模式与低温量热仪的慢响应相结合,将导致感兴趣的能量区域发生无中微子双β衰变的堆积事件,从而降低了实验灵敏度。 只要闪烁时间常数本身不限制时间分辨率,就可以使用快速和高灵敏度的低温光探测器来抑制这种背景。 我们开发了一种新的检测技术,它利用了动力学电感检测器的高灵敏度,快速时间响应和多路复用能力。 我们将建议的技术应用于$$ 2 \ times2 \ times2 $$ 2×2×2 cm $$ ^ 3 $$ 3 $$ \ hbox {Li} _ {2} \ hbox {MoO} _ {4} $$ Li2MoO4晶体,被选作CUPID的基线选项。 我们同时用KID测量声子和闪烁信号。 我
2024-01-17 10:14:45 1.54MB Open Access
1
AdS / CFT对CFT纠缠的理解是基于双重体时空中的HRT表面。 尽管此类表面不必在足够普遍的时空中存在,但maximin构造表明,它们可以在任何光滑的渐近局部AdS时空中找到,而没有视界或仅具有Kasner类奇点。 在这项工作中,我们介绍了锚定到特定边界柯西切片C restricted的受限极大值曲面。 我们表明,当受限的极大值表面位于时空的平滑区域时,结果与原始的非受限的极大值处方相符。 然后,我们使用此构造将HRT表面的存在性定理扩展到其质量通胀奇异性不像Kasner一样的带电或自旋的AdS黑洞。 我们还将讨论与时间无关的带电虫洞中的相关问题。
2024-01-16 22:12:02 242KB Open Access
1
我们通过D7探针臂的假想部分,研究了由外部电场引起的超对称Yang-Mills(SYM)理论的不稳定性,该假想部分嵌入在IIB型理论的背景中。 对于SU(N c)SYM理论,这种不稳定性与Schwinger效应有关,即与由于外部电场而产生的夸克对有关。 在这种全息方法中,有可能针对理论的各个阶段计算施温格效应。 在这里,我们给出了N = 2 $$ \ mathcal {N} = 2 $$ SYM理论的计算,并且分析扩展到了Yang-Mills(YM)理论的有限温度限制和零温度限制阶段。 通过将获得的生产率与超对称情况之一进行比较,估算了动态夸克质量,我们发现其随手性缩合物的变化。 基于此分析,我们推测Nambu-Jona-Lasinio模型可扩展到有限温度YM理论,并在约束理论中评估了四个费米耦合。
2024-01-16 22:07:36 586KB Open Access
1