Excelからフッターを挿入するMicrosoft Word VBA

Question

Excel（VBA）のWord文書にフッターを挿入しようとしています。コードを実行した後

Sub FooterTextwithpageNum() 
    Dim wb As Workbook 
    Dim objWord As Object 
    Dim FooterTemp As Object 

    Set objWord = GetObject(, "Word.Application") 
    objWord.Visible = True 
    Set FooterTemp = objWord.ActiveDocument 

    FooterTemp.Sections(1).Footers(1).Range.Text = "This is Custom Text" 

    FooterTemp.Sections(1).Footers(1).PageNumbers.Add FirstPage:=True 
End Sub 

として以下の結果取得しています：

を

Footer Left Right Footer:以下 CustomText Page 1 of 5

Excelで書かれたVBAコードです：私は、フッターはこのようになりたいですFooter Left Right Footer: This is Custom Text 1

ページ番号をYのページXとして取得するのではなく、ちょうど1,2など。ページ番号をYのページXとして取得するのに誰か助けてくれますか？画像以下のように：

Answer 1

このリンクを見てください：How Can I Add a Page X of Y Footer to a Microsoft Word Document?

私は同様にあなたのカスタムテキストを追加する方法を見つけ出すのに十分な、それを見ていなかったが、以下のコードがありますリンクからあなたのサブに適応し、YのページXを挿入します。

Sub FooterTextwithpageNum() 

    Dim wb As Workbook 
    Dim objWord As Object 
    Dim objDoc As Object 
    Dim FooterTemp As Object 
    Dim objTemplate As Object 
    Dim objRange As Object 

    Set objWord = GetObject("", "Word.Application") 
    objWord.Visible = True 
    Set objDoc = objWord.Documents.Add() 
    Set FooterTemp = objWord.ActiveDocument 

    Set objTemplate = objDoc.AttachedTemplate 
    Set objRange = FooterTemp.Sections(1).Footers(1).Range 

    objTemplate.AutoTextEntries("Page X of Y").Insert objRange 

End Sub