word添加边框

anquan1980

给Word文本行添加边框

VB代码：

With Selection.Borders(wdBorderTop)

    .LineStyle = Options.DefaultBorderLineStyle

    .LineWidth = Options.DefaultBorderLineWidth

    .Color = Options.DefaultBorderColor

End With

如何通过对象来处理呢？

' wdBorderBottom -3 底边框线。
' wdBorderDiagonalDown -7 从左上角开始的斜向边框。
' wdBorderDiagonalUp -8 从左下角开始的斜向边框。
' wdBorderHorizontal -5 横向框线。
' wdBorderLeft -2 左侧框线。
' wdBorderRight -4 右侧框线。
' wdBorderTop -1 上框线。
' wdBorderVertical -6 纵向框线。


' wdLineStyleDashDot 5 划线后跟点。
' wdLineStyleDashDotDot 6 划线后跟两个点。
' wdLineStyleDashDotStroked 20 划线后跟粗点，使边框的外观类似于理发店招牌。
' wdLineStyleDashLargeGap 4 划线后跟大间隙。
' wdLineStyleDashSmallGap 3 划线后跟小间隙。
' wdLineStyleDot 2 点。
' wdLineStyleDouble 7 双实线。
' wdLineStyleDoubleWavy 19 波浪型双实线。
' wdLineStyleEmboss3D 21 边框呈现三维阳文效果。
' wdLineStyleEngrave3D 22 边框呈现三维阴文效果。
' wdLineStyleInset 24 边框呈现凹进效果。
' wdLineStyleNone 0 无边框。
' wdLineStyleOutset 23 边框呈现凸起效果。
' wdLineStyleSingle 1 单实线
' wdLineStyleSingleWavy 18 波浪型单实线。
' wdLineStyleThickThinLargeGap 16 里面是一条粗实线，外面是一条细实线，两条线的间隙较大。
' wdLineStyleThickThinMedGap 13 里面是一条粗实线，外面是一条细实线，两条线的间隙中等。
' wdLineStyleThickThinSmallGap 10 里面是一条粗实线，外面是一条细实线，两条线的间隙较小。
' wdLineStyleThinThickLargeGap 15 里面是一条细实线，外面是一条粗实线，两条线的间隙较大。
' wdLineStyleThinThickMedGap 12 里面是一条细实线，外面是一条粗实线，两条线的间隙中等。
' wdLineStyleThinThickSmallGap 9 里面是一条细实线，外面是一条粗实线，两条线的间隙较小。
' wdLineStyleThinThickThinLargeGap 17 最里面是一条细实线，其次是一条粗实线，最外面是一条细实线，所有线之间的间隙较大。
' wdLineStyleThinThickThinMedGap 14 最里面是一条细实线，其次是一条粗实线，最外面是一条细实线，所有线之间的间隙中等。
' wdLineStyleThinThickThinSmallGap 11 最里面一条细实线，其次一条粗实线，最外面是一条细实线，所有线之间的间隙较小。
' wdLineStyleTriple 8 三条细实线。

补充内容 (2021-6-29 17:04):
在光标处添加边框！

寒潮

20210629-Word对象移动到文档末尾给文本添加边框.e (5.02 KB, 下载次数: 11)

2021-6-30 09:16 上传

点击文件名下载附件



可以的了。

影知

https://blog.csdn.net/weixin_30414245/article/details/94953273
【来自wai网】
度娘一下就都有了

寒潮

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
局_文件名	文本型
局_Word对象	对象
局_Documents对象	对象
局_Document对象	对象
局_Window对象	对象
局_Range对象	对象
局_Borders对象	对象
局_Border对象	对象

如果真 (打开文件通用对话框.打开 () ＝ 假)
返回 ()
局_文件名 ＝ 打开文件通用对话框.文件名
局_Word对象.创建 (“Word.Application”, )
局_Word对象.写属性 (“Visible”, 真)
局_Documents对象 ＝ 局_Word对象.读对象型属性 (“Documents”, )
局_Document对象 ＝ 局_Documents对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)
局_Document对象.方法 (“Select”, )
局_Range对象 ＝ 局_Document对象.对象型方法 (“Range”, )
局_Borders对象 ＝ 局_Range对象.读对象型属性 (“Borders”, )
局_Border对象 ＝ 局_Borders对象.对象型方法 (“Item”, 1)
局_Border对象.写属性 (“LineStyle”, 1)
局_Border对象.写属性 (“LineWidth”, 6)
局_Border对象.写属性 (“Color”, 255)
局_Document对象.方法 (“Save”, )
局_Documents对象.方法 (“Close”, )
局_Word对象.方法 (“Quit”, )
局_Border对象.清除 ()
局_Borders对象.清除 ()
局_Range对象.清除 ()
局_Document对象.清除 ()
局_Documents对象.清除 ()
局_Word对象.清除 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_Word对象, 对象<br /> .局部变量 局_Documents对象, 对象<br /> .局部变量 局_Document对象, 对象<br /> .局部变量 局_Window对象, 对象<br /> .局部变量 局_Range对象, 对象<br /> .局部变量 局_Borders对象, 对象<br /> .局部变量 局_Border对象, 对象<br /> <br /> .如果真 (打开文件通用对话框.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 局_文件名 ＝ 打开文件通用对话框.文件名<br /> 局_Word对象.创建 (“Word.Application”, )<br /> 局_Word对象.写属性 (“Visible”, 真)<br /> 局_Documents对象 ＝ 局_Word对象.读对象型属性 (“Documents”, )<br /> 局_Document对象 ＝ 局_Documents对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)<br /> <br /> 局_Document对象.方法 (“Select”, )<br /> 局_Range对象 ＝ 局_Document对象.对象型方法 (“Range”, )<br /> 局_Borders对象 ＝ 局_Range对象.读对象型属性 (“Borders”, )<br /> 局_Border对象 ＝ 局_Borders对象.对象型方法 (“Item”, 1)<br /> 局_Border对象.写属性 (“LineStyle”, 1)<br /> 局_Border对象.写属性 (“LineWidth”, 6)<br /> 局_Border对象.写属性 (“Color”, 255)<br /> <br /> 局_Document对象.方法 (“Save”, )<br /> 局_Documents对象.方法 (“Close”, )<br /> 局_Word对象.方法 (“Quit”, )<br /> 局_Border对象.清除 ()<br /> 局_Borders对象.清除 ()<br /> 局_Range对象.清除 ()<br /> 局_Document对象.清除 ()<br /> 局_Documents对象.清除 ()<br /> 局_Word对象.清除 ()

anquan1980

影知 发表于 2021-6-29 14:12
https://blog.csdn.net/weixin_30414245/article/details/94953273
【来自wai网】
度娘一下就都有了 ...

看了一些，都没能够实现！

anquan1980

寒潮 发表于 2021-6-29 14:45
[e=0].版本 2

.子程序 _按钮1_被单击

能在空文档中加线，但是不能在指定文本行加，需要怎么优化一下呢？

寒潮

anquan1980 发表于 2021-6-29 15:27
能在空文档中加线，但是不能在指定文本行加，需要怎么优化一下呢？

  

' 给指定段落加
如果真 (打开文件通用对话框.打开 () ＝ 假)
返回 ()
局_文件名 ＝ 打开文件通用对话框.文件名
局_Word对象.创建 (“Word.Application”, )
局_Word对象.写属性 (“Visible”, 真)
局_Documents对象 ＝ 局_Word对象.读对象型属性 (“Documents”, )
局_Document对象 ＝ 局_Documents对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)
Paragraphs对象 ＝ 局_Document对象.读对象型属性 (“Paragraphs”, )
Paragraph对象 ＝ Paragraphs对象.对象型方法 (“Item”, 2)  ' 给第二段加
局_Range对象 ＝ Paragraph对象.对象型方法 (“Range”, )
局_Range对象.方法 (“Select”, )
局_Borders对象 ＝ 局_Range对象.读对象型属性 (“Borders”, )
局_Border对象 ＝ 局_Borders对象.对象型方法 (“Item”, 1)
局_Border对象.写属性 (“LineStyle”, 1)
局_Border对象.写属性 (“LineWidth”, 6)
局_Border对象.写属性 (“Color”, 255)
局_Document对象.方法 (“Save”, )
局_Documents对象.方法 (“Close”, )
局_Word对象.方法 (“Quit”, )
局_Border对象.清除 ()
局_Borders对象.清除 ()
局_Range对象.清除 ()
Paragraph对象.清除 ()
局_Document对象.清除 ()
局_Documents对象.清除 ()
局_Word对象.清除 ()

.版本 2<br /> <br /> ' 给指定段落加<br /> <br /> .如果真 (打开文件通用对话框.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 局_文件名 ＝ 打开文件通用对话框.文件名<br /> 局_Word对象.创建 (“Word.Application”, )<br /> 局_Word对象.写属性 (“Visible”, 真)<br /> 局_Documents对象 ＝ 局_Word对象.读对象型属性 (“Documents”, )<br /> 局_Document对象 ＝ 局_Documents对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)<br /> Paragraphs对象 ＝ 局_Document对象.读对象型属性 (“Paragraphs”, )<br /> Paragraph对象 ＝ Paragraphs对象.对象型方法 (“Item”, 2)  ' 给第二段加<br /> 局_Range对象 ＝ Paragraph对象.对象型方法 (“Range”, )<br /> 局_Range对象.方法 (“Select”, )<br /> 局_Borders对象 ＝ 局_Range对象.读对象型属性 (“Borders”, )<br /> 局_Border对象 ＝ 局_Borders对象.对象型方法 (“Item”, 1)<br /> 局_Border对象.写属性 (“LineStyle”, 1)<br /> 局_Border对象.写属性 (“LineWidth”, 6)<br /> 局_Border对象.写属性 (“Color”, 255)<br /> 局_Document对象.方法 (“Save”, )<br /> 局_Documents对象.方法 (“Close”, )<br /> 局_Word对象.方法 (“Quit”, )<br /> 局_Border对象.清除 ()<br /> 局_Borders对象.清除 ()<br /> 局_Range对象.清除 ()<br /> Paragraph对象.清除 ()<br /> 局_Document对象.清除 ()<br /> 局_Documents对象.清除 ()<br /> 局_Word对象.清除 ()

anquan1980

寒潮 发表于 2021-6-29 15:42
[e=0]
.版本 2

图例

我遇到的情况可能有点复杂，我前面有表格，图片，现在我想在红色箭头的位置添加边框，但是总是在第一个表格位置添加！
Word报告-2021629155826.doc (126.79 KB, 下载次数: 1)

2021-6-29 16:06 上传

点击文件名下载附件
源文档
这个可有办法，谢谢！

anquan1980

寒潮 发表于 2021-6-29 15:42
[e=0]
.版本 2

应该说是在光标处添加边框，是我说的有问题！

寒潮

anquan1980 发表于 2021-6-29 16:16
应该说是在光标处添加边框，是我说的有问题！

插入一个文本框就好了啊：

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
局_文件名	文本型
局_Word对象	对象
局_Documents对象	对象
局_Document对象	对象
局_Window对象	对象
局_Selection	对象
局_Shapes对象	对象
局_Shape对象	对象

如果真 (打开文件通用对话框.打开 () ＝ 假)
返回 ()
局_文件名 ＝ 打开文件通用对话框.文件名
局_Word对象.创建 (“Word.Application”, )
局_Word对象.写属性 (“Visible”, 真)
局_Documents对象 ＝ 局_Word对象.读对象型属性 (“Documents”, )
局_Document对象 ＝ 局_Documents对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)
局_Document对象.方法 (“Select”, )
局_Window对象 ＝ 局_Word对象.读对象型属性 (“ActiveWindow”, )
局_Selection ＝ 局_Window对象.读对象型属性 (“Selection”, )
局_Selection.数值方法 (“EndKey”, 6, 0)
局_Shapes对象 ＝ 局_Document对象.读对象型属性 (“Shapes”, )
局_Shape对象 ＝ 局_Shapes对象.对象型方法 (“AddTextbox”, 1, 局_Selection.读属性 (“Information”, 5).取数值 (), 局_Selection.读属性 (“Information”, 6).取数值 (), 64, 67, )
局_Shape对象.读对象型属性 (“TextFrame”, ).读对象型属性 (“TextRange”, ).写属性 (“Text”, “abccc”)
局_Document对象.方法 (“Save”, )
局_Documents对象.方法 (“Close”, )
局_Word对象.方法 (“Quit”, )
局_Shapes对象.清除 ()
局_Document对象.清除 ()
局_Documents对象.清除 ()
局_Word对象.清除 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_Word对象, 对象<br /> .局部变量 局_Documents对象, 对象<br /> .局部变量 局_Document对象, 对象<br /> .局部变量 局_Window对象, 对象<br /> .局部变量 局_Selection, 对象<br /> .局部变量 局_Shapes对象, 对象<br /> .局部变量 局_Shape对象, 对象<br /> <br /> .如果真 (打开文件通用对话框.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 局_文件名 ＝ 打开文件通用对话框.文件名<br /> 局_Word对象.创建 (“Word.Application”, )<br /> 局_Word对象.写属性 (“Visible”, 真)<br /> 局_Documents对象 ＝ 局_Word对象.读对象型属性 (“Documents”, )<br /> 局_Document对象 ＝ 局_Documents对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)<br /> 局_Document对象.方法 (“Select”, )<br /> 局_Window对象 ＝ 局_Word对象.读对象型属性 (“ActiveWindow”, )<br /> 局_Selection ＝ 局_Window对象.读对象型属性 (“Selection”, )<br /> 局_Selection.数值方法 (“EndKey”, 6, 0)<br /> <br /> 局_Shapes对象 ＝ 局_Document对象.读对象型属性 (“Shapes”, )<br /> 局_Shape对象 ＝ 局_Shapes对象.对象型方法 (“AddTextbox”, 1, 局_Selection.读属性 (“Information”, 5).取数值 (), 局_Selection.读属性 (“Information”, 6).取数值 (), 64, 67, )<br /> 局_Shape对象.读对象型属性 (“TextFrame”, ).读对象型属性 (“TextRange”, ).写属性 (“Text”, “abccc”)<br /> <br /> 局_Document对象.方法 (“Save”, )<br /> 局_Documents对象.方法 (“Close”, )<br /> 局_Word对象.方法 (“Quit”, )<br /> 局_Shapes对象.清除 ()<br /> 局_Document对象.清除 ()<br /> 局_Documents对象.清除 ()<br /> 局_Word对象.清除 ()