word宏代码编写 word宏代码如何编写域
让背景黑色变成白色如何写宏代码？word
下面这3个在附件里都有，你试用和比较一下即知 Su aaa（) "背景无色 ActiveDocument.Backgound.Fill.Visile = msoFalse End SuSu（) "背景为白色 ActiveDocument.Backgound.Fill.FoeColo.RGB = RGB(255, 255, 255) ActiveDocument.Backgound.Fill.Visile = msoTue ActiveDocument.Backgound.Fill.Solid ActiveDocument.Save End SuSu ccc（) "背景为红色 ActiveDocument.Backgound.Fill.FoeColo.RGB = RGB(255, 0, 0) ActiveDocument.Backgound.Fill.Visile = msoTue ActiveDocument.Backgound.Fill.Solid ActiveDocument.Save End Su
为清除word文档中的空行和有？的行,我在宏中编写了如下代码,请问...
一，替换空格 从“编辑”菜单中打开“替换”对话框。
把光标定位到“查找内容”文本框中，按一下空格键输入一个空格（默认情况下是半角空格），“替换为”文本框中什么都不填。
单击“全部替换”，Word将删除所有的空格。
你可能会说怎么我这还有许多空格呀？别急，如果这样的话，那是因为这个文档中还有另外两种空格：全角空格和制表符空格。
对这两种空格，半角空格是不会把它们当一家人的，所以替换时对它们置之不理。
打开中文输入法，按Shift+空格键，切换到全角状态，然后按空格键在“查找内容”框里输入一全角空格，“替换为”为空，再按“全部替换”，所有的全角空格也都删除了。
再单击对话框中的“高级”按钮，然后单击“特殊字符”，选择“制表符”，在“查找内容”框中会出现“^t”（当然也可以手工输入），“替换为”为空，再单击“全部替换”，制表符空格也都没了。
二，删除回车和空行 （怎样使每篇文章末尾不允许有多余的回车符？） 点击菜单栏中的“编辑”→“替换” ，在“查找内容”里面输入^l， “替换为”里面不输入任何字符，然后点“全部替换” ，就可以删除整个文档里面的软回车了。
上面的方法只是把所有的软回车都给删了，可是必要的段落换行还是需要的，所以下面介绍把软回车替换成硬回车。
点击菜单栏中的“编辑”→“替换” ，在“查找内容”里面输入^l， “替换为”里面输入^p，然后点“全部替换” 就OK了 三，清除“Word文档”多余空行 打开“编辑”菜单中的“替换”对话框，把光标定位在“查找内容”输入框中，按下“高级”按钮，选择“特殊字符”中的“段落标记”两次，在输入框中会显示为“^p^p”，在“替换为”输入框中用上面的方法插入一个“段落标记”，即“^p”，然后按下“全部替换”按键，可删除单行的空行，对于多行空行，可进行重复替换，直到删除全部的空行为止。
在用替换的办法删除空行时要注意两个问题： 1.分清文件中用的是手动换行符（“Shift+回车”），还是段落标记。
“^p^p”替换成“^p”并不能替换所有的空行。
如果文件中用的是手动换行符，那么就要用“^l^l”替换成“^l”（这里用的不是1，而是L字母的小写，也可以直接用替换对话框里的“特殊字符”，里面有“有手动换行符”），空行才能去除。
有时遇到这种情况，可能是用手动换行符换行的。
可能你也用了“^l^l”替换成“^l”的办法，用“全部替换”时依然提示“Word已完成对文档的搜索并已完成0处替换”这又是为什么呢？为了搞清楚到底问题出在哪里，试试在Word文档中分别用手动换行符和回车符制造一些空行，用“^p^p”替换成“^p”和“^l^l”替换成“^l”来验证，结果能顺利完成空行的删除。
为什么自己输入的可以替换，网上下载的却不能呢？难道这里面还有“机关”？ 试用手工删除了。
在删除的过程中，会发现它的秘密：原来每个空行的换行符前还有一个空格。
空格成了折腾人的“罪魁祸首”！再用“^l^l”（注意两个换行之间有一个空格）替换成“^l”，替换终于有成果了。
单击了几次全部替换，又更改了几次“查找内容”，比如把“^p^l”替换成“^l”。
页面中再也没有空行了。
看来用替换的方法来删除空行时，要灵活对待查找的内容。
使用查找替换的办法查找空段标记（点开高级>>特殊标记），然后替换那一栏不填。
四，删除最后1页空白页 1.如果是回车空行过多造成空白页，很简单删除空行就行了 2.可以先在空白页上段文字的末尾先点下鼠标，在自动空白页下段文字的开头，按住shift的时候再点下鼠标，选择空白页，再删除 （验证过好用，以下几条未验证） 3.如果是插入分页符造成的空白页，少的话，删除分页符就行，就是到空白页顶部按退格键 4.如果分页符很多，可以 编辑》》替换》》高级》》特殊字符》》人工分页符》》全部替换 就可以了 5.如果是你画了一个表格，占了一整页，造成最后一个回车在第二页删不了，可以将表格缩小一点或者将上面或者下面页边距设小一点，在 文件》》页面设置 中，上 下 的数字改小一点！ 6.将鼠标放在前一页的最后，用DEL健删除。
如果空白面是最后一页，且鼠标在第一行，可选“格式”-“段落”，将这一行的行距设为固定值1磅，该空白页将自动消失。
-------------------------------------------------------------------- 五 请问哪里有下最新版的word软件？ 你在网上下word时别找word，要找office软件，word是office中的一个软件而已 很多的 最新的是2007 我给你的网址就有，看看评论好的就可以下了 呵呵，回答的够详细吧 希望对你有点帮助。
◆
请写一个WORD宏,相当于点击格式
输入冒号，单击“更多”按钮，单击“开始”菜单下的“替换”命令，在弹出的“查找和替换”对话框中单击“查找内容”右侧的输入框，输入冒号以word2007为例：1、打开word文档，单击“特殊格式”按钮，单击“段落标记”命令。
2、在“查找和替换”对话框中单击“替换为”右侧的输入框
如何在word中编写一个宏,使得文档的每一页生成一个独立的word文档...
每页一个：---------------------------------------------Sub aa()myPath = ＂D:\temp\＂Selection.HomeKey Unit:=wdStorySet myRange = Selection.Rangecurpage = 0Application.ScreenUpdating = FalseDoprepage = curpagepagenum = pagenum + 1Set myRange = myRange.GoToNext(What:=wdGoToPage)curpage = myRange.Startendpage = myRange.Previous.End "StartIf curpage = prepage Then _endpage = ActiveDocument.Content.EndActiveDocument.Range(prepage, endpage).CopyWith Documents.Add.Content.Paste.SaveAs myPath & ＂Page＂ & pagenum & ＂.doc＂.CloseEnd WithIf curpage = prepage Then Exit DoLoopApplication.ScreenUpdating = TrueEnd Sub---------------------------------------------------如按10页分，改动如下，依次类推：pagenum = pagenum + 10
-