Microsoft Word VBA에서 Excel에서 바닥 글 삽입

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

엑셀로 작성된 VBA 코드 : 나는 바닥 글이처럼되고 싶어요 Footer Left Right Footer: This is Custom Text 1

페이지 번호를 Y 대신 페이지 번호 1,2로 가져 오는 대신 1,2 등. 누구나 페이지 번호를 Y로 가져 오는 데 도움을 줄 수 있습니까? 이 링크를 한 번 봐 제발

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