[已解决]如何在WORD中的每页开头加上同样的文字？

雨玥

如何在WORD中的每页开头加上同样的文字？内容如下：

某某项目图片资料

施工前

我在每页上都放 有两张照片，我想在每页的开头即每页的第一张照片前加上述文字，要求文字居中，黑体 二号
谢谢各位！

最佳答案

月排行榜 / 总排行榜

Zipall

2014-4-28 14:40

雨玥 发表于 2014-4-28 13:47
如果不想在页眉中设置，直接在每页的第一行（即每页的每一张照片前插入）可否用VBA来实现，谢谢啦

1. Sub test()    Selection.HomeKey wdStory
   
2.     For i = 1 To ThisDocument.BuiltInDocumentProperties(wdPropertyPages)
   
3.         With Selection.Range
   
4.             .Text = "某某项目图片资料" & vbCrLf & "施工前" & vbCrLf
   
5.             .Font.Name = "黑体"
   
6.             .Font.Size = 22
   
7.             .ParagraphFormat.Alignment = wdAlignParagraphCenter
   
8.         End With
   
9.         Selection.GoTo wdGoToPage, wdGoToNext, 1
   
10.     Next
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

Zipall

放在页眉里,调整页面上边距和页眉高度.

雨玥

Zipall 发表于 2014-4-28 13:15
放在页眉里,调整页面上边距和页眉高度.

谢谢，这个方法我知道，我是想请教用VBA能否实现插入这些文字？

Zipall

雨玥 发表于 2014-4-28 13:40
谢谢，这个方法我知道，我是想请教用VBA能否实现插入这些文字？

设置页眉和页边距的过程录制成宏,就是你要的vba代码.

雨玥

Zipall 发表于 2014-4-28 13:42
设置页眉和页边距的过程录制成宏,就是你要的vba代码.

如果不想在页眉中设置，直接在每页的第一行（即每页的每一张照片前插入）可否用VBA来实现，谢谢啦

那么的帅

雨玥 发表于 2014-4-28 13:47
如果不想在页眉中设置，直接在每页的第一行（即每页的每一张照片前插入）可否用VBA来实现，谢谢啦

提供没有文字的原始文件附件

Zipall

雨玥 发表于 2014-4-28 13:47
如果不想在页眉中设置，直接在每页的第一行（即每页的每一张照片前插入）可否用VBA来实现，谢谢啦

1. Sub test()    Selection.HomeKey wdStory
   
2.     For i = 1 To ThisDocument.BuiltInDocumentProperties(wdPropertyPages)
   
3.         With Selection.Range
   
4.             .Text = "某某项目图片资料" & vbCrLf & "施工前" & vbCrLf
   
5.             .Font.Name = "黑体"
   
6.             .Font.Size = 22
   
7.             .ParagraphFormat.Alignment = wdAlignParagraphCenter
   
8.         End With
   
9.         Selection.GoTo wdGoToPage, wdGoToNext, 1
   
10.     Next
    
11. End Sub
    

复制代码

雨玥

Zipall 发表于 2014-4-28 14:40

谢谢啦，完成能达到效果。