高分请教急！！！！如何在delphi中实现对word 中页眉的输入 (100分)

Y

yssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #1

我采用的方法是
var msword:variant;
begin
msword:=Createoleobject('word.basic');
msword.appshow;
msword.filenew;
不知道那句实现对word 中页眉的输入的代码怎么写，谢谢

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #2

用Word自带的宏录制功能记录下来即可：
Sub Macro3()
'
' Macro3 Macro
' 宏在 2003-3-31 由 creation_zy 录制
'
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
Selection.TypeText Text:="页眉 Here!"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

//估计只有后面3行有用

 

Y

yssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #3

问题是我的页眉是从数据库中读取的字段，是动态改变的

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #4

你动态改变宏不就成了？？

for i:=0 to Count-1
Selection.TypeText.Text:=Title;

 

Y

yssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #5

我想真接用delphi语句实现，因为我对宏不大懂

 

B

breezee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #6

录制一个宏看看，在修改一下
从程序中调用就行了
很简单

 

Y

yssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #7

问题是我这个word文件是动态建立的，事先没有，我在程序中如何录制宏

 

Y

yssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #8

问题是我这个word文件是动态建立的，事先没有，我在程序中如何录制宏

 

Z

zhu_jy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #9

先根据格式做一个模版。
然后用程序控制用特定模版新建文件，在相应位置插入文字(相应操作可以通过录制宏来看，修改)

 

V

vivee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #10

看看vba可否办到！！

 

Y

yssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #11

难道就没有一条简单的插入语句

 

C

caodayong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-02

• #12

Msword.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
MsWord.Selection.TypeText Text:="所要插入的字符穿"