以下代码是设置Word页码的。注释掉的两行是VBA的宏程序代码,设置页码不关联上一节,如何改成VFP的代码?
WITH JccgWord
.ActiveWindow.ActivePane.View.SeekView=10
.Selection.Sections(1).Headers(1).PageNumbers.Add(5,.t.)
.Selection.Font.Size = 10.5 &&指定字号,9为小五号,10.5为五号,12为小四号
.Selection.Font.Name = "宋体" &&设置字体
.Selection.Fields.Add(JccgWord.Selection.Range, -1,"Page \* MergeFormat",.f.)
.Selection.ParagraphFormat.Alignment = 1 &&页脚居中
*!* .Selection.ParagraphFormat.RestartNumberingAtSection =.T.
*!* .Selection.ParagraphFormat.StartingNumber = 1
.ActiveWindow.ActivePane.View.SeekView=0
ENDWITH