1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 6: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74:
Sub AutoNew ProcurementDocType.Show 'LAUFZEITFEHLER 76 AUF LINIE UNTEN Wenn ActiveDocument.CustomDocumentProperties.Item („xDocType“) = „Ersuchen um Tender“ dann GEOProcurementMenu.txt DocNo = „RFT“ Wenn ActiveDocument.CustomDocumentProperties.Item („xDocType“) = „Ersuchen um Anführungsstrich“ dann GEOProcurementMenu.txt DocNo = „RFQ“ Wenn ActiveDocument.CustomDocumentProperties.Item („xDocType“) = „Ersuchen um Antrag“ dann GEOProcurementMenu.txt DocNo = „RFP“ GEOProcurementMenu.txt RevisionDate = Format$ (Datum, „dd/mm/yyyy“) GEOProcurementMenu.Show Enden-Unterseeboot Privates VorClickAction () Wenn Me.OptTender = falsch und _ Me.OptQuote = falsch und _ Me.OptProposal = falsch dann MsgBox „wählen bitte die Dokumenten-Eingabe vor. “, „ERFORDERTE VORWÄHLER“ Unterseeboot herausnehmen Beenden wenn 'Felder laden Wenn Me.OptTender = dann ausrichten ActiveDocument.CustomDocumentProperties.Item („xDocType“). Wert = „Ersuchen um Tender“ ElseIf Me.OptQuote = richten dann aus ActiveDocument.CustomDocumentProperties.Item („xDocType“). Wert = „Ersuchen um Anführungsstrich“ ElseIf Me.OptProposal = richten dann aus ActiveDocument.CustomDocumentProperties.Item („xDocType“). Wert = „Ersuchen um Antrag“ Beenden wenn InsertDoc benennen Mich leeren Unterseeboot beenden Privates VorInsertDoc () Weg = ActiveDocument.AttachedTemplate.Path Selection.GoTo was: =wdGoToBookmark, Name: = " StartHere " n = Selection.Information (wdActiveEndSectionNumber) Anruf UnprotectMyDoc Wenn ActiveDocument.CustomDocumentProperties.Item („xDocType“). Wert = „Ersuchen um Tender“ dann Selection.InsertFile Weg u. „\ Stützakte Proc_Tender.docx“ ElseIf ActiveDocument.CustomDocumentProperties.Item („xDocType“). Wert = „Ersuchen um Anführungsstrich“ dann Selection.InsertFile Weg u. „\ Stützakte Proc_Quote.docx“ ElseIf ActiveDocument.CustomDocumentProperties.Item („xDocType“). Wert = „Ersuchen um Antrag“ dann Selection.InsertFile Weg u. „\ Stützakte Proc_Proposal.docx“ Sonst MsgBox „nicht imstande, Stützakte zu finden. Mit Ihrem Verwalter bitte in Verbindung treten“, „Störung“ Beenden wenn ProtectMyDoc benennen ActiveDocument.Sections (N). Überschriften (wdHeaderFooterPrimary) .LinkToPrevious = richten aus ActiveDocument.Sections (N). Seitenenden (wdHeaderFooterPrimary) .LinkToPrevious = richten aus Enden-Unterseeboot