word怎么删除目录中的空格

1.请问在WORD中如何消除数字之间的空格?

经常上网的朋友可能经常会遇到这样的事情：在网上发现一篇好文章，想要粘贴到word中以便对其重新进行排版，可是从网页上粘贴到word后，会有很多多余的空行和空格，文章短的可以一个一个地删除，可是比较长的文章编辑起来可就太费劲了。

怎样才能快速而有准确地消除这些多余的空行和空格呢？下面我就介绍一种非常快速的方法给大家。 第一步：在网页上选择要复制的文字（将要选择部分拉黑），在所选择内容的部分单击鼠标右键，在弹出菜单中选择“复制（C）”单击鼠标左键，完成复制（也可使用快捷键Ctrl+C）。

第二步：进入word打开一空文档，word2003等可以用鼠标左键单击“编辑（E）”菜单，在下拉菜单中选择“选择性粘贴（S）”，在出现的对话框中选择“无格式文本”，鼠标左键单击“确定”按钮。 在word2007中可以使用快捷键Ctrl+Alt+V，在弹出的对话框中选择“无格式文本”。

第三步：用快捷键Ctrl+A选择全部文档文字，先在格式栏中选择“居中”（可用快捷键Ctrl+E），再选择“左对齐”（可用快捷键Ctrl+L）。 第四步： 1、去多余空行――在“编辑”菜单中选择“替换”，在弹出对话框的“查找内容”中输入^p^p，在“替换为”中输入^p（这里^和p都必须在英文状态下输入），然后单击“全部替换”即可（可以多次单击“全部替换”，直到出现“word已完成对文档的搜索并已完成0处替换”）。

2、去多余空格――在“编辑”菜单中选择“替换”，在弹出对话框的“查找内容”中输入一个空格，在“替换为”中什么也不输入，然后单击“全部替换”即可（可以多次单击“全部替换”，直到出现“word已完成对文档的搜索并已完成0处替换”）。 如果你是用wps的话，可以使用工具栏上的——删除空段或者空行来解决。

2.word文档里怎么去掉空行.

一、使用Word的宏

如果拷贝下来的文字里有连续的多行空行，或者在有些空行里还有数量不等的空格字符，不妨让Word的宏来一显身手。

创建一个宏，取名为DBL。代码及注释如下：

Sub DBL()

i = 1

Do

'从当前文档的顶端开始逐一选择文档的每一段文字

ActiveDocument.Paragraphs(i).Range.Select

If Trim(Selection.Text) = Chr(13) Then

'如果选择的段落里只有回车符和空格则删除此段

Selection.Delete

Else

'如果选择的段落非空，就将选择的指针移向下一段

Selection.MoveDown

i = i + 1

End If

Loop Until i = ActiveDocument.Parag

raphs.Count

End Sub

写好了宏程序之后，可以把刚才建好的宏拖拽到快捷工具栏上，做好以后，如果需要从网页上拷贝文字到Word上编辑时，只要单击一次这个宏按钮，即可瞬间删除整篇文档里的空行了。

二、使用网页脚本语言

如果电脑上用的文字处理工具是金山WPS系列的字处理软件，而没有安装Word和UltraEdit等软件时，不妨试试借助一下微软的网页脚本语言（VBScript）来处理删除空行的问题。现在绝大部分的机器上装的操作系统都是Windows，一般办公室里的机器都可以执行。

脚本程序要完成的任务不同于上面的Word宏。首先要把从网页上复制下来的文字粘贴到一个文本文件（以下简称A文件）里保存。脚本程序要做的事情是在程序执行时再创建一个文本文件（以下简称B文件），从A文件里逐行读取文字，并把非空行的文字内容写入到B文件里。这样，B文件里就没有空行了。

新建一个文本文件，把文件的扩展名改为.vbs。在记事本里打开该文件并输入脚本代码，代码及注释如下：

Const ForReading = 1, ForWriting = 2, TristateUseDefault = -2

Dim fsoA, fA, tA, fsoB, fB, tB, s, dir

'如果脚本程序和A文件在同一目录下，直接输入A文件的文件名和扩展名即可

dir=inputbox（"请输入源文件的路径或相对路径："）

if dir<>"" then

'初始化A文件的对象

Set fsoA = CreateObject("Scripting.FileSystemObject")

Set fA = fsoA.GetFile(dir)

Set tA = fA.OpenAsTextStream(ForRe

ading, TristateUseDefault)

'创建并初始化B文件的对象

Set fsoB = CreateObject("Scripting.FileSystemObject")

fsoB.CreateTextFile("_"+dir)

Set fB = fsoB.GetFile("_"+dir)

Set tB = fB.OpenAsTextStream(ForWr

iting, TristateUseDefault)

'逐行读A文件并把非空行写入B文件

while not tA.AtEndOfStream

s=tA.ReadLine

if trim(s)<>"" then tB.WriteLine s

wend

'关闭文件对象

tB.Close

tA.Close

end if

脚本文件代码写好之后，保存，退出记事本。下面就可以用写好的脚本文件来删除空行了。用鼠标双击脚本文件即可执行程序。当程序执行完成之后就会自动产生一个在A文件名前加了一个下划线作为文件名的新文件，打开看看吧，里面的空行早被一扫而空。

3.word中存在删除不了的空白部分怎么解决

1、如果是在word中表格的内容，则把光标插入空白处，如图。

2、表格工具——布局，

3、可以看到原来的对齐方式为靠上居中对齐，可以选择靠上两端对齐就可以解决空白问题，可以进行很好的排版。

4、如果嫌这麻烦，在word中可以直接这样操作：回到word的开始界面，光标插入需要调整的空白处，可以看到原来设置了居中对齐了。

5、还可以选中需要调整的内容。

6、选择段落，然后选择文本左对齐，

7、至此，已经删除掉文档的空白处，其实没有存在空白处，只是我们设置对齐方式不当导致的。完成效果图。