excel取消
格式
篇一:WORD中如何去掉表格和格式
WORD中如何去掉表格和格式,删除word中的空格空行和空段
一、去掉表格和格式
为了版面的整齐,网页文档都是以表格的形式存在的,只是一般情况下表格的颜色被设为无色或表格宽度被设为0,所以我们在网页上看不到表格。另外,网页文档中换行用的都是手动换行符,还有对字体等格式的设置。如果把从网页上复制的文字直接粘贴到Word中,那么它们也都粘贴进来了,这给重新排版带来了很大的麻烦。现在同事已经把网页粘了进来,可以用下面的方法解决。
从”编辑”菜单中单击“全选”,然后单击“剪切”,再单击“选择性粘贴”。在打开的的“选择性粘贴”对话框中选择“形式”为“无格式文本”,确定。这样表格和各种格式都没了,手动换行符也变成了回车符(段落标记)。另外还可以从“文件”菜单中选择“另存为”,把文档保存为纯文本文件,再用Word打开,效果和上面的方法完全一样。
如果刚从网页上复制了文字,那么在Word中可以直接执
1
行“选择性粘贴”的步骤,这样将省事得多。
二、删除空格
网页文字中会有许多的空段和空格,在Word中排版时也需要清除。那么为什么这一步要删除空格,而不是先删除空段呢,道理是:有些看起来什么也没有的段落中可能存在空格,而有空格的段落并不是真正的空段,在Word中没法对它们批量执行删除操作。
首先,从“编辑”菜单中打开“替换”对话框(打开后暂时不要关闭,后面的操作都要在这里完成)。把光标定位到“查找内容”文本框中,按一下空格键输入一个空格(默认情况下是半角空格),“替换为”文本框中什么都不填。单击“全部替换”,Word将删除所有的空格。你可能会说怎么我这还有许多空格呀,别急,如果这样的话,那是因为这个文档中还有另外两种空格:全角空格和制表符空格。对这两种空格,半角空格是不会把它们当一家人的,所以替换时对它们置之不理。打开中文输入法,按Shift+空格键,切换到全角状态,然后按空格键在“查找内容”框里输入一全角空格,“替换为”为空,再按“全部替换”,所有的全角空格也都删除了。再单击对话框中的“高级”按钮,然后单击“特殊字符”,选择“制表符”,在“查找内容”框中会出现“ ”(当然也可以手工输入),“替换为”为空,再单击“全部替换”,制表符空格也都没了。这时你的文档中保 如果有连续的空段的话,一次替
2
换不完,你可以多按几次“全部替换”,直到提示找不到替换的对象为止。
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,下面这些为我参考的文章:
批量删除:
(一)段首空格:1.选定内容。2.居中。3左对齐或者右对齐。(方法二:也可用替换来删除)
(二)一般空格:1.编辑菜单。2.替换。3查找内容中键入空格,替换中什么也不键入。
(三)空段删除:1.编辑菜单。2.替换。3.高级。4.特殊字符,查找内容中选择段落标记2次,替换中选择段落标记1次。
(四)表格转换:1.全选。2.表格菜单。3.转换。4.先把所有内容转换成表格。5.再把所有内容转换成文本。
(五)超链接删除:1.全选。(可以不用,请试试)2.alt+F9。3.编辑菜单,替换,高级,特殊字符,查找内容中选择域。替换中什么都不选。
(六)超链接删除,但不删除其内容:1.全选。2.ctrl+shift+F9。
(七)只保留纯文本:可用编辑菜单中选择性粘贴,选择无格式文本选项。
(八)金山WPS中有删除段首空格,空格,空段等功能。
3
(九)删除小图标,小图形图像:编辑菜单中替换功能可以组合多种删除方式,文档中小的,大的图形,图像都可以删除。
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 一般在将网页内容复制到word文档中时,会出现一些问
。解决办法:
1、清除多余的空格(点一下显示比例旁边的一个按钮即可显示,下同)
空格可以全部替换为空(去掉)
1)注意有两种空格,英文的小点和中文的方框将其复制,
2)然后编辑,查找,用Ctrl+V粘贴到查找后面
替换中的内容为空
3)“全部替换”
2、清除多余的回车键(即段落标记)
首先看一下规律,一个段落后有几个回车键以两个回车键为例,
1)编辑,查找,输入
2)点“替换”,输入
3)点“全部替换”
4
3、将人工换行符(即向下的箭头)变为段落标记
1)编辑,查找,输入,l
2)点“替换”,输入
3)点“全部替换”
4、修改段落格式
1)选中相应文字,格式,段落
2)特殊格式,首行缩进2字符
3)段前段后0行
4)设置适当的行距
5)将“如果...”前面的勾去掉
6)确定
其他的情况可结合上面的方法灵活处理。
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 如何去掉WORD文档中多余的空格全选(Ctrl+A)
然后居中(Ctrl+E)
再左对齐(Ctrl+L)
OK!
空格全被抖掉了!
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,我们在使用Word打开一
5
些文档时,经常会发现许多文档因空行过多,从而使得文档很长,页数居高不下。实际上我们可以通过“空行替换”的几种方法,去除文档中多余的空行,具体操作如下:
1.在Word“编辑”菜单中打开“查找和替换”对话框,在“查找内容”中输入“
”“替换为”中输入“
”,然后选“全部替换”,这种方法可去掉文档中因自动换行符造成的多余空行,但还有一些空行是去不掉的,需要再用下面的其他方法。
2.对于文档中的手动换行符(“Shift+回车”),就要用“
”替换成“
”(这里用的不是1,而是L字母的小写)或直接用替换对话框里的“特殊字符”,选择里面的“有手动换行符”来进行替换, 也可以去掉文档中的一些多余空行。
3.对于自动和手动换行符交替的情况,可用“
”替换成“
”或“
”替换成“
6
”也可以去掉文档中的一些多余空行。
上述三种方法可以去除文档中的大部分空行,如果还剩有空行,不妨再用下列方法再试一试。
4.用“
”(注意两个换行符之间有一个空格)替换成“
”,这种方法是用来对付前面有空格的换行符。
以上是我在使用Word时个人的一些个人体验,供大家在使用时参考。
篇二:如何限制别人修改你的Excel表格格式
1、按住ctrl键,逐个选中可以修改的单元格,表中红色部分,黑色为禁止读者修改选项。
2、右击选择“设置单元格”---“保护”---取消“锁定”勾选。
3、右击表格的“sheet1”---“保护工作表”---“密码”。
4、需要取消锁定时,右击表格的“sheet1”---“撤销工作表保护”,输入原密码即可。
篇三:如何解除EXCEL工作表锁定
在日常工作中,大家有时会遇到过这样的情况:使用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,这该怎么办,有时您从网上下载的Excel
7
格式的小程序,您想修改,但是作者加了工作表保护密码,怎么办,您只要按照以下步骤操作,Excel工作表保护密码瞬间(稍微有点夸张)即破~
工具/原料
?
待破解的Excel工作表
方法/步骤
1. 1
打开您需要破解的Excel文件,如图所示:
2. 2
依次点击菜单栏上的工具---宏----录制新宏;
3. 3
输入宏名字(PS:打击积极性啊~)如:易尔拓,然后停止录制(这样得到一个空宏,为后面添加vb代码做准备);
4. 4
依次点击菜单栏上的工具---宏----宏,选易尔拓,点编辑按钮; 删除窗口中的所有字符,替换为下面的内容;
Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure
passwords. Bob McCormick
' probably originator of base code algorithm
8
modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to cons
tants, and ' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE &
vbNewLine & _
Adapted from Bob McCormick base code by & _
Norman Harker and JE McGimpsey
Const HEADER As String = AllInternalPasswords User Message Const VERSION As String = DBLSPACE & Version 1.1.1 2003-Apr-04
Const REPBACK As String = DBLSPACE & Please report failure & _
to the microsoft.public.excel.programming newsgroup.
Const ALLCLEAR As String = DBLSPACE & The
9
workbook should & _
now be free of all password protection, so make sure you: & _ DBLSPACE & SAVE IT NOW! & DBLSPACE & and also & _ DBLSPACE & BACKUP!, BACKUP!!, BACKUP!!! & _
DBLSPACE & Also, remember that the password was & _
put there for a reason. Don't stuff up crucial formulas & _ or data. & DBLSPACE & Access and use of some data & _ may be an offense. If in doubt, don't.
Const MSGNOPWORDS1 As String = There were no passwords on & _
sheets, or workbook structure or windows. & AUTHORS & VERSION Const MSGNOPWORDS2
As String = There was no protection to & _
workbook structure or windows. & DBLSPACE & _
Proceeding to unprotect sheets. & AUTHORS & VERSION
Const MSGTAKETIME As String = After pressing OK button this & _
10
will take some time. & DBLSPACE & Amount of time & _ depends on how many different passwords, the & _
passwords, and your computer's specification. & DBLSPACE & _ Just be patient! Make me a coffee! & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = You had a Worksheet & _ Structure or Windows Password set. & DBLSPACE & _
The password found was: & DBLSPACE & $$ & DBLSPACE & _ Note it down for potential future use in other workbooks by & _
the same person who set this password. & DBLSPACE & _
Now to check and clear other passwords. & AUTHORS & VERSION Const
MSGPWORDFOUND2 As String = You had a Worksheet & _ password set. & DBLSPACE & The password found was: & _ DBLSPACE & $$ & DBLSPACE & Note it down for potential & _ future use in other workbooks by same person who & _
11
set this password. & DBLSPACE & Now to check and clear & _ other passwords. & AUTHORS & VERSION
Const MSGONLYONE As String = Only structure / windows & _ protected with the password that was just found. & _ ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
12
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
13