将页脚值拉为字符串

Question

无论如何将页脚的值拉成一个字符串，而不是制作该页脚的公式？

如果有可能，可以提供更多信息。

谢谢！

Answer 1

这对我有用：

Dim mystring As String
mystring = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text
Debug.Print mystring

Answer 2

你可以尝试

Dim myFooter As String

myFooter = ActiveSheet.PageSetup.LeftFooter

当然你可能想用

myFooter = ActiveSheet.PageSetup.CenterFooter
myFooter = ActiveSheet.PageSetup.RightFooter