Mẫu mã để thêm đường dẫn và tên tệp để mỗi trượt

Hỗ trợ dành cho Office 2003 đã kết thúc

Microsoft đã kết thúc hỗ trợ dành cho Office 2003 vào ngày 8 tháng 4 năm 2014. Thay đổi này đã ảnh hưởng đến các bản cập nhật phần mềm và các tùy chọn bảo mật của bạn. Tìm hiểu ý nghĩa của điều này với bạn và cách thực hiện để luôn được bảo vệ.

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:222797
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
TÓM TẮT
Bài viết này chứa một mẫu Microsoft Visual Basic cho các ứng dụngvĩ mô (tiểu thủ tục) cho biết thêm đường dẫn và tên tệp để chân củamỗi trượt trong một bài thuyết trình. Nếu bạn thay đổi tên hoặc vị trí của cáctrình bày, bạn có thể chạy các macro một lần nữa để cập nhật các chân.
THÔNG TIN THÊM
Microsoft cung cấp lập trình ví dụ để minh hoạ chỉ, không có bảo hành hoặc thể hiện hay ngụ ý. Điều này bao gồm, nhưng không giới hạn, bảo đảm ngụ ý khả năng bán hàng hoặc cho một mục đích cụ thể. Bài viết này giả định rằng bạn đã quen thuộc với ngôn ngữ lập trình mà đang được chứng minh và với những công cụ được sử dụng để tạo ra và gỡ lỗi thủ tục. Microsoft hỗ trợ các kỹ sư có thể giúp giải thích các chức năng của một thủ tục cụ thể, nhưng họ sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình để đáp ứng các yêu cầu cụ thể của bạn. LƯU Ý: Các ví dụ vĩ mô sau làm việc chỉ trong PowerPoint. Visual Basic cho các ứng dụng macro không được hỗ trợ bởi Microsoft PowerPoint Viewer. Để biết thêm thông tin, bấm vào số bài viết sau để xem bài viết trong Cơ sở Kiến thức Microsoft:

Thủ tục Visual Basic mẫu

   Sub UpdatePath()      ' Macro to add the path and file name to each slide's footer.      Dim PathAndName As String      Dim FeedBack As Integer      ' Place a message box warning prior to replacing footers.      FeedBack = MsgBox( _         "This Macro replaces any existing text that appears " & _         "within your current footers " & Chr(13) & _         "with the presentation name and its path. " & _         "Do you want to continue?", vbQuestion + vbYesNo, _         "Warning!")      ' If no is selected in the dialog box, quit the macro.      If FeedBack = vbNo Then         End      End If      ' Gets the path and file name and converts the string to lowercase.      PathAndName = LCase(ActivePresentation.Path & "\" & _         ActivePresentation.Name)      ' Checks whether there is a Title Master, and if so, updates the      ' path.      If ActivePresentation.HasTitleMaster Then         With ActivePresentation.TitleMaster.HeadersFooters            With .Footer               .Text = PathAndName            End With         End With      End If    ' Updates the slide master.      With ActivePresentation.SlideMaster.HeadersFooters         With .Footer            .Text = PathAndName         End With      End With ' Updates the individual slides that do not follow the master.Dim X As Integer For X = 1 to ActivePresentation.Slides.Count      With ActivePresentation.Slides(X).HeadersFooters           With .Footer                 .Text = PathAndName           End With     End With  Next        End Sub				
THAM KHẢO
Để biết thêm chi tiết về cách sử dụng mẫu mã trong bài viết này, bấmsố bài viết dưới đây để xem bài viết trong cơ sở kiến thức Microsoft:
212536OFF2000: Làm thế nào để chạy mẫu mã từ bài viết cơ sở kiến thức
9.00 ppt9 vba vbe ppt2k powerpt vba2k ppt9.0 ppt2000 chương trình lập trình sử dụng mô-đun mẫu thư hộp pathname tên tệp

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 222797 - Xem lại Lần cuối: 12/05/2015 13:27:10 - Bản sửa đổi: 3.0

Microsoft PowerPoint 2004 for Mac, Microsoft Office PowerPoint 2003, Microsoft PowerPoint 2002 Standard Edition, Microsoft PowerPoint 2001 for Mac, Microsoft PowerPoint 2000 Standard Edition, Microsoft PowerPoint 97 Standard Edition, Microsoft PowerPoint X for Mac

  • kbnosurvey kbarchive kbcode kbdtacode kbhowto kbmacro kbprogramming kbmt KB222797 KbMtvi
Phản hồi