一、用vb如何替换word中的页脚
可以先在word中录制一段VB代码的宏,主要修改页脚,作参考调用:
Sub Macro1()
'
' Macro1 Macro
' 宏在 2008-5-23 由 微软用户 录制
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.TypeText Text:="2008 "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
以上宏中,我主要在页脚插入2008,以及页码
二、vb6如何替换word中内容
你的意思我的理解是这样的,表中A2、B2、C2单元格中的内容替换第一页中的数据1、数据2、数据3,,表中A3、B3、C3单元格中的的替换第二页中的数据1、数据2、数据3,也就是说EXCEL中每一行的数据,需要替换的是WORD中某一页的东西(只替换这一页),
---以下说一下编程思路:
1、采用ActiveX技术,也就是将你编的VB程序作为一个客户程序,将EXCEL与WORD作为服务器程序,客户端程序操控服务器端的数据
2、其实你如果会第1条所说的,就不用我说别的了吧,如有兴趣,可以一起讨论ActiveX技术的各种功能,,
3、。。。。