在word中如何画横线，word如何在横线上打字不破坏横线

今天小编为大家分享Windows系统下载、Windows系统教程、windows相关应用程序的文章，希望能够帮助到大家！

word文档顶端一条黑色横线，试试这样删除

Office讲师雅风

Word文档中有条黑色横线，无法删除怎么办？

04:20

#和秋叶一起学word# #技巧# #高效利用办公软件#

今天给大家分享几个高效办公的技巧！

第一个就是Word里面的分割线。

❶ 输入三个 --- ，回车，就是一条细直线；

❷ 输入三个 === ，回车，就是一条双直线；

❸ 输入三个 ~~~ ，回车，就是一条波浪线；

❹ 输入三个 *** ，回车，就是一条虚线；

❺ 输入三个 ### ，回车，就是一条隔行线。

第二个就是怎么拆分表格。

只需要将光标放在需要拆分的位置上，按【Ctrl+Shift+Enter】，方可一秒拆分成功！

【秋叶图书】和秋叶一起学秒懂PPT+Excel+Word 套装3册速查工具书

@南城动漫9B9D @vvgv

四川共青团中国共产主义青年团四川省委员会官方账号

【#团团告诉你# 超实用！9张图搞定word排版】删了页眉页脚，横线却怎么也去不掉？写论文改格式，大小标题要手动调？学期论文、工作报告、工作总结……都用得上的word排版技巧↓↓ 看图操作，转需！（人民网） #写论文不仅废学生还废导师#

你会用word画线吗？

①输入三个“=”，回车，输入一条双直线；

②输入三个“~”，回车，输入一条波浪线；

③输入三个“*”， 回车，输入一条虚线；

④输入三个“-”， 回车，输入一条细直线；

⑤输入三个“#”，回车，输入一条边框线；

好技能get√！

#我要上微头条##直言职场# #微头条日签#

word、ppt经常要制作图形，例如坐标图有许多纵横线，手工极不方便，需要批量制作，线间距也不好调节，还需要设置网格线的粗细、箭头、颜色等等，这时用VBA就可以发挥优势。

一、要求：

每间隔5格主刻度线加粗显示，组合成一个图；次刻度线较细，组合成一个图。便于批量设置主刻度和次刻度的格式。各条线间距相等


4个组合图形构成坐标图


主刻度线组合成一个


次刻度线组合成一个

二、程序

```vbnet

Sub coordinate()

Dim shp1 As Shape, shp2() As Shape, shp3() As Shape

// 设置纵坐标

j = 1

k = 1

ReDim shp2(1 To 1)

ReDim shp3(1 To 1)

For i = 1 To 36

Set shp1 = addline(100 + 5 * (i - 1), 100, 100 + 5 * (i - 1), 275)

shp1.Name = "shp" & "i" & i

If (i - 1) Mod 5 = 0 Then

Set shp2(j) = shp1

With shp2(j)

.Line.Weight = 1

End With

j = j + 1

ReDim Preserve shp2(1 To j)

Else

Set shp3(k) = shp1

k = k + 1

ReDim Preserve shp3(1 To k)

End If

Next

For i = LBound(shp2) To UBound(shp2) - 1

ActiveDocument.Shapes.Range(Array(shp2(i).Name)).Select (msoFalse)

Next

Selection.ShapeRange.Group

For i = LBound(shp3) To UBound(shp3) - 1

ActiveDocument.Shapes.Range(Array(shp3(i).Name)).Select (msoFalse)

Next

Selection.ShapeRange.Group

// 设置横坐标

j = 1

k = 1

ReDim shp2(1 To 1)

ReDim shp3(1 To 1)

For i = 1 To 36

Set shp1 = addline(100, 100 + 5 * (i - 1), 275, 100 + 5 * (i - 1))

**************************************

****横坐标程序与上一步相同略去****

**************************************

End Sub

Function addline(x1, y1, x2, y2)

Set addline = ActiveDocument.Shapes.addline(x1, y1, x2, y2)

With addline.Line

.ForeColor.RGB = RGB(0, 0, 0)

.Weight = 0.5

End With

End Function

三、关键点

将所画直线编号并加上name属性，用可变数组存储，ActiveDocument.Shapes.Range(Array(shp2(i).Name)).Select (msoFalse)可以批量选择主刻度和次刻度线，不加“msoFalse”是无法多重选择的。

Selection.ShapeRange.Group组合所选直线，这样主刻度和次刻度都是组合图形，只要点一下鼠标就可以选中全部线条并编辑格式，直线再多也没有压力。

决战精准剖析2021年中考数学二次函数与几何方法技巧:

求几条线段和的最值,如果不能用字母表示成函数形式,或者表示出的函数不好求最值,往往需要通过作对称、平移、旋转等变换后,进行边长的等量代换,利用“两点之间线段最短”或“点线之间,垂线段最短”求得最小值.

平分三角形的面积,转化为线段相等问题只需画中线所在直线即可;

平分规则四边形的面积,可以是过中心的直线,如:过平行四边形对角线交点的直线平分面积;

平分不规则四边形的面积,可以利用平行线进行等积变换将四边形面积化成相等面积的三角形,然后画中线所在直线即可,这里的平行线需要过四边形最大角的顶点,不然会出现中线的中点在四边形外部的情况.#学浪计划-教育创作者扶持计划#

——更多优质精准完整Word版复习资料已经发布个人专栏，欢迎关注，转发和收藏学习

wWw.Xtw.com.Cn系统网专业应用软件下载教程，免费windows10系统,win11,办公软件,OA办公系统,OA软件,办公自动化软件,开源系统,移动办公软件等信息，解决一体化的办公方案。