delphi word 执行宏

怎么把word 宏设置成自动执行？

打开word文档-点击文件-点击信任中心-点击信任中心设置-打开对话框-选择宏设置-启用所有宏-设置成功。

具体操作步骤如下：1. 打开宏功能的word文档，点击菜单栏的“文件”。

2. 打开word系统设置页面，选择左边菜单列表中的“信任中心”。

3. 点击右边的“信任中心设置”按钮。

4. 打开“信任中心”设置对话框。

5. 选择左边功能列表中的“宏设置”。

6. 选择“宏设置”最下面的“启用所有宏（不推荐：可能会运行有潜在危险的代码）”。

7. 设置成功。

如何在DELPHI中用代码为WORD添加宏

1、打开Word窗口，依次打开菜单栏的“工具”-->宏-->安全性；2、在弹出菜单中选择第一选项“非常高。

只允许运行安装在受信任位置的宏。

所有其他签署的和为经签署的宏都将被禁用。

”；3、然后转到“可靠发行商”中，删除所有来源，然后取消最下面两项前面的勾，最后确定，就行了。

WORD中的宏是什么意思？

如果在 Microsoft Word 中反复执行某项任务，可以使用宏自动执行该任务。

宏是一系列 Word 命令和指令，这些命令和指令组合在一起，形成了一个单独的命令，以实现任务执行的自动化。

以下是宏的一些典型应用：?加速日常编辑和格式设置?组合多个命令，例如插入具有指定尺寸和边框、指定行数和列数的表格?使对话框中的选项更易于访问?自动执行一系列复杂的任务Word 提供两种方法来创建宏：宏录制器和 Visual Basic 编辑器。

说的直白些，应用宏，就如同使用录音机：在word中启动“新建宏”后，就相当于按下了录音键，之后的全部命令和指令都被记录下来。

以后再打开它时，就根相当于按下了播放键，我们就不用把每个命令和指令进行重复了。

word如何在选中区域内执行宏

这个问题难不住我~1.首先你可以使用ole 调用word ,将word内容在delphi界面显示出来。

2.然后利用word本身的‘宏’命令。

选择‘录制新宏’。

3.在宏录制状态下做你想做的操作（将字段插入word中你想要的任何地方）。

操作完毕后选择停止录制。

4.打开刚刚录制的‘宏’。

选择编辑，把VBA命令转换为delphi代码。

（其实你应该去大富翁看看，那里有很多答案）

用Delphi在word中插入表

一个输出到模板表格中的例子 uses SysUtils,Windows,ADODB,DB,Word97,OleServer, Classes; var sSQL: String; qry: TADOQuery; fileN:OLEvariant; oleGrid: array[1..5] of olevariant; oWordApp: TWordApplication; oWordDoc: TWordDocument; sResult: String; i: Integer; begin qry:= nil; try sResult:= ' '; with qry do begin qry:= TADOQuery.Create(nil); qry.LockType:= ltReadOnly； //转换日期范围 //加载合同项目数据 sSQL:= 'select ProjectName, ProjectCode from FPPro_Project where ProjectID= '+ IntToStr(iProjectID); db_uPublic_GetRecordset(gConn, sSQL, qry); if RecordCount= 0 then begin //如果没有记录，退出 qry.Free; Result：= '没有找到项目记录！ '； Exit; end； //连接Word oWordApp:= TWordApplication.Create(nil); owordDoc:= TWordDocument.Create(nil); try oWordApp.Connect; except qry.Free; owordDoc.Free; oWordApp.Free; Result：= '你可能没有安装Word! '; Exit; end; fileN:= fucGetExePath+ 'Template\基础资料清单.dot '; if not FileExists(fileN) then begin Result：= '没有找到模板文件！ '； Exit; end; oWordApp.Documents.Add(fileN,emptyparam); oWordDoc.ConnectTo(oWordApp.ActiveDocument as _document); oWordApp.Options.CheckSpellingAsYouType:= False； //关闭拼写检查 oWordApp.Options.CheckGrammarAsYouType:= False； //关闭语法检查 oleGrid[1]:= oWordDoc.Tables.Item(1); oleGrid[1].Cell(1,2).Range.Text:= FieldByName( 'ProjectName ').AsString; oleGrid[1].Cell(1,4).Range.Text:= FieldByName( 'ProjectCode ').AsString; sSQL:= 'select FileName, CreateLogon, CreateDate from (FPPro_AddonFile ' + 'left join FPPro_RFile on FPPro_AddonFile.FileID=FPPro_RFile.FileID) ' + 'where FPPro_AddonFile.FileType=2 and FPPro_RFile.RelationKind=1 ' + 'and FPPro_RFile.RID= '+ IntToStr(iProjectID); db_uPublic_GetRecordset(gConn, sSQL, qry); oleGrid[1].Cell(6,1).Range.Text：= '共计份数： '+ IntToStr(RecordCount)+ '份 '； if RecordCount> 0 then begin //添加统计项目 First; i:=4; while not Eof do begin oleGrid[1].Cell(i,1).Range.Select; oWordApp.Selection.Rows.Add(emptyparam)； //插入空行 oleGrid[1].Cell(i,1).Range.Text:= FieldByName( 'FileName ').AsString; oleGrid[1].Cell(i,2).Range.Text:= FieldByName( 'CreateLogon ').AsString; oleGrid[1].Cell(i,3).Range.Text:= FieldByName( 'CreateDate ').AsString; i:=i+1; Next; end; end; oWordApp.Visible:= True; oWordApp.WindowState:= 1; oWordApp.Activate; end; qry.Free; oWordApp.Free; owordDoc.Free; Result:= sResult; except on e: Exception do begin qry.Free; if owordDoc nil then owordDoc.Free; if oWordApp nil then oWordApp.Free; Result:= e.Message; end; end; end;

在word中什么是宏怎么使用宏呀？

宏：简单的理解就是提前录好操作，下次再执行就可以完成之前一系列操作。

类似与游戏中的自动打怪脚本。

1.点击“视图”按钮，会看到右侧有个“宏”的功能区，点击“录制宏”，给宏起个易于辨识的名称。

2.开始录制宏，选中文章段落，在“页面布局”选择段落属性，设置段落格式。

3.录制完成，点击查看录制的宏。

4.在界面显示录制的宏。

在功能区右击，选择“自定义功能区”，从“宏”中选择命令，会看到定义的宏；选择面板添加宏，例如选择“页面布局”，点击“新建组”，修改组名和图标，然后将刚才录制的宏添加到该组中。

5.现在再查看“页面布局”，是不是在右侧看到自己的宏了，自己录制的第一个宏成功了。

【加急重赏】office 2010 word 每次打开和关闭都提示宏错误

第1种方法：如果你手头有Office 2010的安装程序或电脑有安装文档的话在控制面板中打开程序和功能，选择Office 2010右键点击更改，再打开Office 2010安装程序-选择＂添加或删除功能＂重新添加＂office 共享功能＂中的＂visual Basic for Applications＂组件安装完成后，再次启动Word，即搞定第2中方法： Word选项——加载项——管理【com加载项】，转到——把几个勾勾都取消掉——确定，即可。

Win7中注意要以管理员身份进行，因为这些写入了注册表。

如何用DELPHI中的WORD控件

WordRange:=WordDocument1.Range(aTemp,Position_b); vNumRows:=ADOQuery1.RecordCount; vNumColumns:=ADOQuery1.FieldCount; WordDocument1.Tables.AddOld(WordRange,vNumRows,vNumColumns); WordTable:=WordDocument1.Tables.Item(item); T:=WordTable; WordTable:=nil;WordRange:=nil; vNumRows:=NULL(); { NULL() is in unit Variant } vNumColumns:=NULL(); ADOQuery1.First； {向表格插入数据库记录} i:=1; while not ADOQuery1.Eof do begin j:=0; while j begin T.cell(i,j+1).range.text:=ADOQuery1.Fields[j].AsString; inc(j); end; inc(i); ADOQuery1.Next; end; --------------------------------------------------------------- 在Word中用宏来画表格，然后把它的语句copy下来！在Delphi的OLE中调用就可以了！

转载请注明出处51数据库 » delphi word 执行宏