Kính gưi các Anh/Chị,
Mình có sưu tầm đoạn code insert chữ ký thực hiện từ Excel vào word như sau :
đối với code này mình đã thực hiện được theo mẫu Test1.doxc
Giờ mình muốn chỉnh code trên để làm sao sau khi thực hiện lệnh thì chữ ký sẽ được định dạng ẩn dưới số trang và canh giữa như file Test2.docx
Trân trọng cám ơn các Anh/Chị đã quan tâm !!!
Mình có sưu tầm đoạn code insert chữ ký thực hiện từ Excel vào word như sau :
Mã:
Sub PlaceTextInFooter_Test()
Const wdAlignPageNumberCenter = 1
Dim oWord As Object 'Word.Application
Dim myDoc As Object 'Document
Dim folder As Object
Set oWord = GetObject("", "Word.Application")
Set myDoc = oWord.Documents.Open("D:\PDF\Test1.docx")
Dim Duongdanchuky As String
Duongdanchuky = "D:\PDF\chuky.png"
myDoc.Sections(1).Footers(1).PageNumbers.Add (wdAlignPageNumberCenter)
myDoc.Sections(1).Footers(1).Range.InlineShapes.AddPicture Filename:=Duongdanchuky, linktofile:=False, savewithdocument:=True
myDoc.Save
myDoc.Close
Set oWord = Nothing
Set myDoc = Nothing
End Sub
đối với code này mình đã thực hiện được theo mẫu Test1.doxc
Giờ mình muốn chỉnh code trên để làm sao sau khi thực hiện lệnh thì chữ ký sẽ được định dạng ẩn dưới số trang và canh giữa như file Test2.docx
Trân trọng cám ơn các Anh/Chị đã quan tâm !!!