[整理贴]新手提问

konggs

此贴用来整理一些大家经常提问的问题。（加上对应的的VBA代码，如果我能完成的话。）
感谢：原创者与分享者。
－－－－－－－－－－－链接贴——————————－－
1.如何去掉页眉的横线？
2.邮件合并入门知识
2.1关于邮件合并的高级技巧
2.2带照片的邮件合并
3. 删除空行
3.1 删除空行不留格式
3.2 做好的一个替换空行的模板
4.不齐文字的处理方法
5.从××页开始加页码的方法
6.如何制作密封线？
7.如何打印网格线？

[此贴子已经被作者于2006-12-24 9:33:34编辑过]

konggs

－－－－－－－－－－－VBA部分——————————－－
Sub 页眉去线()
With ActiveDocument.Styles("页眉").ParagraphFormat
    .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End With
End Sub
Sub 页眉去线2()
Dim asection As Section
For Each asection In ActiveDocument.Sections
   With asection.Headers(wdHeaderFooterPrimary)
        .Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
   End With
Next
End Sub
Sub 页眉去线3()
Dim asection As Section
For Each asection In ActiveDocument.Sections
   With asection.Headers(wdHeaderFooterPrimary)
        .Range.ParagraphFormat.Style = "正文"
   End With
Next
End Sub

2.
Sub 邮件合并()
'邮件合并
'下面，是我见过最繁杂的方法，参数太多噢。
'其它的关于opendatasource调用别的数据库，可以参考帮助
'可以简化的，也可以不记，记用，录制一下
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "D:\Documents and Settings\Administrator\桌面\数据源.xls", ConfirmConversions _
        :=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=D:\Documents and Settings\Administrator\桌面\数据源.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=""" _
        , SQLStatement:="SELECT * FROM `Sheet1$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
    Selection.HomeKey Unit:=wdStory '移到文档的开头
    Selection.EndKey Unit:=wdLine   '移到第一行的末尾
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""姓名""" '插入合并域
    Selection.MoveDown Unit:=wdLine, Count:=1
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""性别"""
    Selection.MoveDown Unit:=wdLine, Count:=1
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""年龄"""
   '合并到新文档
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument '合并到文档
        .SuppressBlankLines = True
        With .DataSource
          '  .FirstRecord = wdDefaultFirstRecord
          '  .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub

[此贴子已经被作者于2006-7-13 14:04:07编辑过]

konggs

续贴：
8. 使用域自动填充功能完成人民币金额大写
9. 楷体钢笔描红字帖
10. 本人收集关于Word使用技巧（超实用）

[此贴子已经被作者于2006-12-9 16:53:37编辑过]

chenfly76

谢谢KONGS提供这么好的东东！！！！

konggs

11.删除重复的段落
http://club.excelhome.net/viewthread.php?tid=205742&px=0

[此贴子已经被作者于2006-12-9 16:55:26编辑过]

未来

应该是好东西，可惜我看不懂。

安心改造

收藏了，向版主学习！

shaojb

好东西啊，谢谢楼主了

子恺

我曾做过学校里教导，小学低年级写字用田字格（有的地区用米字格，也有华文格、回宫格的），我做了一个。

 

ZpBhs0eq.rar (3.72 KB, 下载次数: 286)

2006-12-26 08:09 上传

点击文件名下载附件
[整理贴]新手提问

同时向办公之星建议，拼音部分也能输入拼音就更好了。

ntadmin

thanks a lot!