如何用DELPHI控制WORD 中表格边框的宽度-CSDN论坛

如何用DELPHI控制WORD 中表格边框的宽度

Delphi > VCL组件开发及应用

收藏回复

[问题点数：100分，结帖人hsqtl]

⋅ExecuteReader 要求已打开且可用的连接。 ⋅如何用DELPHI控制WORD 中表格边框的宽度 更多帖子 关注私信空间博客 hsqtl 等级 本版专家分：0 结帖率 100%: WordD: TWordDocument;

WordD.Tables.Add(WordD.Sentences.Last,2,2,Template,NewTemplate) ;

with WordD.Tables.Item(1) do begin

Cell(1,1).Range.Borders.Shadow := False;

Cell(1,1).Range.Text:='第一列';
Cell(1,2).Range.Text:='第二列';
end;
设置这个表的边框

2006-12-15 22:42:43

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅ADSL协同拨号问题 ⋅刚刚见到的一则招聘，要求真不低啊 ⋅页面左边底部的那个减肥广告太恶心了，可否换个广告？ 更多帖子 关注私信空间博客 踢踏 等级 本版专家分：18488: 参考下：
    With Selection.Cells
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleDashSmallGap
            .LineWidth = wdLineWidth450pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleDashSmallGap
            .LineWidth = wdLineWidth450pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleDashSmallGap
            .LineWidth = wdLineWidth450pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleDashSmallGap
            .LineWidth = wdLineWidth450pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleDashSmallGap
            .LineWidth = wdLineWidth450pt
            .Color = wdColorAutomatic
        End With
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With

2006-12-15 22:58:35

点赞只看TA 引用举报 #1得分 50

⋅泛型和匿名方法在DELPHI单元测试中的妙用

⋅C#之于DELPHI开发者

⋅企业应用开发的点滴体会

更多帖子

关注私信空间博客

老冯

等级

本版专家分：8495

勋章

技术圈认证 用户完成年度认证，即可获得

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

红花 2006年12月 Delphi大版内专家分月排行榜第一

黄花 2006年11月 Delphi大版内专家分月排行榜第二: uses
Word2000;

var
_Cell: Cell;

........................
_Cell.Borders.InsideLineWidth := 2;
_Cell.Borders.OutsideLineWidth := 2;

......................

2006-12-15 23:04:41

点赞只看TA 引用举报 #2得分 50

⋅泛型和匿名方法在DELPHI单元测试中的妙用

⋅C#之于DELPHI开发者

⋅企业应用开发的点滴体会

更多帖子

关注私信空间博客

老冯

等级

本版专家分：8495

勋章

技术圈认证 用户完成年度认证，即可获得

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

红花 2006年12月 Delphi大版内专家分月排行榜第一

黄花 2006年11月 Delphi大版内专家分月排行榜第二: type
  WdLineWidth = TOleEnum;
const
  wdLineWidth025pt = $00000002;
  wdLineWidth050pt = $00000004;
  wdLineWidth075pt = $00000006;
  wdLineWidth100pt = $00000008;
  wdLineWidth150pt = $0000000C;
  wdLineWidth225pt = $00000012;
  wdLineWidth300pt = $00000018;
  wdLineWidth450pt = $00000024;
  wdLineWidth600pt = $00000030;

2006-12-15 23:06:39

点赞只看TA 引用举报 #3得分 0

⋅ExecuteReader 要求已打开且可用的连接。 ⋅如何用DELPHI控制WORD 中表格边框的宽度 更多帖子 关注私信空间博客 hsqtl 等级 本版专家分：0: 感谢 ! 问题解决。

2006-12-16 17:11:07

点赞只看TA 引用举报 #4得分 0

收起

收藏回复

hsqtl

等级：

关注私信 TA的帖子

Delphi向word文档中输出表格及图形: 工作中遇到一个软件开发项目，该项目要求将相关数据报表存为word格式文档（涉及表格、图形的输出），便于用户修改。本人在开发过程中，发现此类资料较少，且介绍相对简单，大多只是文本数据的的简单输出。现将...

Delphi操作Word中的表: Procedure GetWordCellStr; var WordApp: TWordApplication;... WordDoc: TWordDocument; DocInx,FileName,CfCversions,IsReadOnly,AddToRctFiles,PswDocument, PswTemplate,Revert,WPswDocument,

delphi操作word基类,插入表格,分页符,日期,页码,替换,图片: unit utMyword;(*By 闫磊编写 2004.09.06 Email:landgis@126.com yanleigis@21cn.com*)interfaceuses word2000, ActiveX, Variants, Dialogs, SysUtils;type TMyWord = class(TObject) private

Delphi中编辑word: //启动Word try wordapplication1.connect; except messagedlg(word may not be installed, mterror, [mbok], 0); abort; end; //打开文档 procedure TForm1.OpenWord(Sfile: string); var FileNam

Delphi与Word之间的融合技术: 问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] ...

用Delphi将数据导入到Excel并控制Excel: 用得最多的是Word和Excel，而Excel对数据报表的处理尤为方便（操作公式、打印格式等），如果我们将数据导入到Excel中后，再靠我们平时对Excel熟练的操作很快编辑好我们有用的数据（如领导报表等），通过对Excel的...

DELPHI中EXCEL组件的使用方法: DELPHI中EXCEL组件的使用方法: 一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelApp.Visible...

学习笔记：delphi之TStringGrid: 最近加入了一个项目组，使用的开发工具是delphi6，想想又要开始搞这个工具有点小忧伤，但没办法谁让咱就是个打杂的尼。。。的需求是显示一个类似于Word/excel的那种表格，可以合并列等。。本来想用DBGridEh去解决...

用DELPHI操作EXCEL: 在DELPHI中显示EXCEL文件，可用以下简单代码做到。但要实用，则需进一步完善。 var Form1: TForm1; EApp:variant;implementationuses ComObj, OleServer,Excel2000;{$R *.dfm}procedure TForm1.Button1Click...

delphi 控制 excel，创建报表: http://www.delphibbs.com/keylife/iblog_show.asp?xid=11659一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口：...

delphi 开发经验技巧宝典源码: 0217　根据表格中的数据长度自动调整表格宽度　144 7.2　ADO数据处理技术　145 0218　如何把ADO中的数据导入到ListBox中　145 0219　使用SQL语句保存数据　146 0220　使用赋值方式保存数据　147 0221　当ADO循环删除...

借用excel 设计 fasterport 表格,主要是考虑转回excel 整齐好看: 转excel 或者word,表格不齐好难看, 没办法,动手写了个小工具.借用EXCE设计报表. 再转转回 excel 或者word 很工整. 目前效率提高许多了. Rm太贵了. 思路读EXCEL 的表， 1，打印设置，边距...

dbgrid使用大全(delphi): <!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto;...}

delphi 操作excel（全）: DELPHI中EXCEL组件的使用方法: (一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ...

DBGrid 各属性的设置: 在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段... 以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。示例程序的运行：在

Delphi中DBGrid 应用全书: Delphi中DBGrid 应用全书(一) ［作者：佚名转贴自：本站原创点击数：3340 更新时间：2004-11-21 文章录入：luokang ］在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省...

DELPHI 7.0软件自带有报表 Quick Report组件(TQRShape等所有组件说明): DELPHI7.0软件自带有报表Quick Report组件，但是默认的情况下，工具栏中是没有的，需要手动添加，步骤：　component->install packages->add->\borland\bin\dclqrt70.bpl 　　一、组件功能简介　上面的两个图...

Delphi控制Execl: Delphi控制Excel2000心得 - -类　别: COM & ActiveX(一)使用动态创建的方法首先创建 Excel 对象, 使用ComObj:var ExcelApp: Variant; ExcelApp := CreateOleObject(Excel.Application); 1)显示当前窗口: ExcelApp...

用DELPHI操作EXCEL====转帖收藏: DELPHI中EXCEL组件的使用方法:一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口：ExcelApp.Visible := True;2) ...

Delphi对Excel的所有操作: （Delphi对Excel的所有操作）逐个试试！一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示...

Delphi小技巧杂记: //获取任务栏尺寸 procedure TForm1.Button1Click(Sender: TObject); var TaskList: HWnd; Bordered: TRect; begin TaskList := FindWindow(’Shell_TrayWnd’, nil); GetWindowRect(TaskList, Bordered);...

Delphi的笔记整理(一）: 这几天清理资料，把以前学Delphi时的笔记翻出来了。大概是2005年时的吧,有些资料都没有什么价值了。以后再整理吧。 Delphi Note 1、触发器的使用。源数据库：名称：info 字段：idd、namee、age、sex...

Delphi TWebBrowser: Delphi WebBrowser控件的使用 WebBrowser控件属性： 1、Application 如果该对象有效，则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效，程序将返回WebBrowser...

delphi控件使用: Standard页 1- Tlistbox控件重要属性items.* 举例，界面设计如下左，执行结果如下右：代码为 procedure TForm1.Button1Click(Sender: TObject); begin ...edit2.Tex

关于Delphi通用涵数: DELPHI程序注册码设计（转载）思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则... 在DELPHI下新建一工程,放置Edit1,Edit2,Label1,Label2,Button1组件.具体代码如下: u

Delphi WebBrowser控件的使用（大全 good）: Delphi WebBrowser控件的使用 WebBrowser控件属性： 1、Application 如果该对象有效，则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效，程序将返回WebBrowser...

RTF(rich textformat)富文本格式: 这是一种类似DOC格式（Word文档）的文件，有很好的兼容性，使用Windows“附件”中的“写字板”就能打开并进行编辑。RTF是一种非常流行的文件结构,很多文字编辑器都支持它。一般的格式设置,比如字体和段落设置,页面...

delphi FastReport问题整理: 1.FastReport中如果访问报表中的对象？可以使用FindObject方法。 TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’; 2.FastReport中如何使用上下标？设置frxmemoview.AllowHTMLTags := True...

相关热词 c# 控件改了name c#枚举类型有什么用 c# 循环多线程 c#在什么情况用事件 c# exe 运行静默 c#如何打开一组图片 c# sql 引用那些 c#引用py第三方库 c# 属性结构体 c# 加小时