请高手帮忙写一个word vab代码，谢谢！

dtxczjzmp

请高手帮忙写一个word vab代码，具体详见附件，谢谢！！ 请高手帮忙写一个word vab代码.rar (193.92 KB, 下载次数: 10)

2019-2-12 19:25 上传

点击文件名下载附件

ming0018

这些论坛里都有例子，自己找找。

dtxczjzmp

ming0018 发表于 2019-2-13 08:34
这些论坛里都有例子，自己找找。

找了老半天，还是无法得到想要的

相见是缘8

你的具体要求是：

1、设置首行缩进2个字符。

2、把所有手动换行符，全部替换为段落符。

3、把2个段落符，全部替换为1个段落符。

4、插入如截图的页码：

我用的是2003版的office，该代码在上面运行正常，不知在你高版本上可否？？？

Sub 删除()

      Selection.WholeStory

      With Selection.ParagraphFormat

             .FirstLineIndent = CentimetersToPoints(0.63)  '以五号宋体字，首行缩进2个字符是0.63，如是小三号宋体字，首行缩进2个字符是 0.95。

       End With

       Selection.MoveUp Unit:=wdLine, Count:=1

       With ActiveDocument.Content.Find

             .Execute "^11", , , 0, , , , , , "^p", 2

             .Execute "^13{2}", , , 1, , , , , , "^p", 2

       End With

       Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _

       wdAlignPageNumberCenter, FirstPage:=True  '我用的是2003版的 office，没有你截图上的页码设置项，只有这种页码设置。

End Sub

dtxczjzmp

相见是缘8 发表于 2019-2-13 14:10
你的具体要求是：1、设置首行缩进2个字符。2、把所有手动换行符，全部替换为段落符。3、把2个段落符，全部 ...

多谢了，基本能用。