万里大荒
excel表格里面画线excel中怎么画线
展开全部 1、在开始菜单下，原始表第一行输入表格名称，空一行作为调整标题与表格的位置。
2、确定表格列数打出表眉分项名称。
根据需要确定行数，不够可以临时插入。
3、将表格内容用鼠标拖黑加框线。
然后在用鼠标拖黑状态下对行列宽度由此处调整，达到满意为止。
4、点击打印预览查看表格效果，如果表格偏左可以加一列进行平衡即可。
...
vba如何把word表格内容填到excel里
如果说填写，这个比较复杂，而且很难实现，因为word的VBA都是跟跟键盘操作，和界面操作有关的。
所以，如果可能，可以考虑用VBA来复制表格，然后粘贴到EXCEL中，对于比较简单的表格，内容是可以完全匹配的。
首先，你要知道如何用键盘来选择整个表格，然后复制，把这些操作录制下来，然后复制代码。
。
如果你是要从EXCEL 的VBA 入手，那么你需要在VBA引用中添加WORD Libary 11.0 如果是从WORD的VBA入手，那么就要添加EXCEL LIBARY 11.0 (OFFICE 2007 是 12.0)然后就是需要知道EXCEL中粘贴的代码，如果我记得不错的话，是：cells(1,1).paste这个，你也可以通过录制来得到。
如果你需要知道具体的操作方案，你当然也应该吧分数提高。
。
。
excel中表格中如何自由绘制线条？
展开全部 使用VBA操作Word表格一、生成表格Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As RangeSet mRange = ActiveDocument.RangemRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.EndSet SelfGenTable = ActiveDocument.Tables.Add(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns) End Sub上面过程的作用是在活动文档的末尾插入一个mRows行，mColumns列的表格。
二、在读写表格中的单元格 写入单元格使用如下代码：TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter ＂文本＂ 上面代码的做用时在curRow行，curColumn列处插入字符“文本”。
其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用SelfGenTable来替代TableObject。
三、调整单元格对齐方式 水平对齐设置Selection.ParagraphFormat.Alignment=水平对齐常数（具体的常数可以查看帮助文件的说明） 如何选择单元格？ 选定特定单元格TableObject.Cell(Row:=1,Column:=1).Select'选定单元格1,1 选定行TableObject.Rows(i).Select'选定第i行 选定列TableObject.Columns(i).Select'选定第i列 选定整个表格 TableObject.Select首先执行表格元素选择程序，然后再使用Selection.ParagraphFormat.Alignment设置对齐方式。
垂直对齐方式Selection.Cells.VerticalAlignment=垂直对齐常数也是首先选择表格元素，可以使单个单元格，单个行、单个列或者整个表格。
似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。
四、设置表格边线类型下面的代码对整个表格的所有边线设置成细实线： SelfGenTable.Select With Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineStyle = wdLineStyleSingle.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingleBorders(wdBorderVertical).LineStyle = wdLineStyleSingle End With同样是对Selection进行设置，所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置，这里就不再列举了。
五、调整表格尺寸下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30,10,10,30,10,10: Dim WidthP(0 To 2) As Integer Dim j As Integer dim i as Integer WidthP(0) = 30 WidthP(1) = 10 WidthP(2) = 10 j = 0For i = 0 To SelfGenTable.Columns.Count - 1 If j > 2 Then j = 0 End IfSelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercent SelfGenTable.Columns(i + 1).PreferredWidth = WidthP(j) j = j + 1 Next上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式，这里选择的是百分比列宽，可以根据自己的实际情况选择其他列宽形式，然后再设置相应的数值。
表格的行高请读者以此类推（实际上我还没设置过行高，都用自动生成的就够了） ===============================================编写操作表格的程序时需要注意，Word表格的行列起始值为1，而不是0。
===============================================下面是一个拆分字符串的代码，当插入表格的文本过长时，可以设定一个长度，超过这个长度就进行回车，这样保证在设定的单元格宽度内能够写下长文本。
单元格的高度会自动调整以使文本能完整的显示，这也就是我为什么没有通过代码设置单元格高度的原因。
Private Function FoldText(mLen As Integer, mStr As String) As String '折叠文字函数，mLen为折叠前的文字长度，mStr为文字的内容 Dim i As IntegerDim tmpStr(0 To 1) As String '临时字符串 If Len(mStr) > mLen ThenDo While Len(mStr) > mLen tmpStr(0) = Left(mStr, mLen)mStr = Right(mStr, Len(mStr) - mLen)tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf LooptmpStr(1) = tmpStr(1) + mStr ElsetmpStr(1) = mStr
您好,我想问一下用EXCEL vba读取word表格中的表格数据怎么读取...
excel：在单元格上单击右键-边框-选中你需要的样式， 在工具栏空白处单击右键选中调出绘图工具栏，单击文本框命令-在表格上拉一个区域-输入你要打的字-调整字体、大小等适合你设定的那个单元格，最后右键-图片格式-线条颜色和填充颜色都选为无。
做好后可以拖动调整位置。
word表格和excel表格的区别
一、WORD是文字处理软件，EXCEL是电子表格软件。
二者各有所长。
WORD也可以对数据进行简单的计算，但EXCEL更擅长存储、计算和分析数据。
EXCEL提供了分类汇总、分列、数据透视表、合并计算、模拟运算等实用工具，并提供了大量函数用于数据处理，还可以根据数据生成图表，以及基于EXCEL平台的VBA等功能，是一款优秀的数据处理软件。
二、数据存储方式不同。
WORD的表格通过插入和绘制的方法产生，表格类似于图形。
而EXCEL数据存储于单元格，单元格由行和列交叉而成，单元格的多少是给定的，不是人为画上去的。
在单元格中填写数据，单元格就被激活（被使用）。
在EXCEL函数当中，通常使用A1或R1C1的格式对单元格引用。
在excel做好的表格复制到word后表格线不显示怎么办
可以在excel表格中添加框线，也可以在Word中再添加框线。
1、在excel表格中选中表格区域——字体——框线——所有框线。
2、在Word2007中，鼠标移过粘贴的表格左上角出现双向十字箭头——单击选中该十字箭头选中表格——设计——表样式——边框——所有框线。
也可以在页面布局中设置。
转载请注明出处51数据库 » excel vba word 画表格线
