Sub AutoNew
ProcurementDocType.Show
'BŁĄD BŁĄD 76 ONLINE BELOW
Jeżeli ActiveDocument.CustomDocumentProperties.Item ("xDocType") = "Prośba dla Oferta" Wtedy GEOProcurementMenu.txt DocNo = "RFT"
Jeżeli ActiveDocument.CustomDocumentProperties.Item ("xDocType") = "Prośba dla Wycena" Wtedy GEOProcurementMenu.txt DocNo = "RFQ"
Jeżeli ActiveDocument.CustomDocumentProperties.Item ("xDocType") = "Prośba dla Propozycja" Wtedy GEOProcurementMenu.txt DocNo = "RFP"
GEOProcurementMenu.txt RevisionDate = Format$ (Daktylowy, "dd/mm/yyyy")
GEOProcurementMenu.Show
Końcówka Okręt podwodny
Intymny Okręt podwodny ClickAction ()
Jeżeli Me.OptTender = Fałszywy I _
Me.OptQuote = Fałszywy I _
Me.OptProposal = Fałszywy Wtedy
MsgBox "Zadawalać wybiórka the Dokument Typ. ", "WYBÓR WYMAGAĆ"
Wyjście Okręt podwodny
Kończyć Jeżeli
'Ładować pole
Jeżeli Me.OptTender = Prawdziwy Wtedy
ActiveDocument.CustomDocumentProperties.Item ("xDocType"). Wartość = "Prośba dla Oferta"
ElseIf Me.OptQuote = Prawdziwy Wtedy
ActiveDocument.CustomDocumentProperties.Item ("xDocType"). Wartość = "Prośba dla Wycena"
ElseIf Me.OptProposal = Prawdziwy Wtedy
ActiveDocument.CustomDocumentProperties.Item ("xDocType"). Wartość = "Prośba dla Propozycja"
Kończyć Jeżeli
Dzwonić InsertDoc
Rozładowywać
Kończyć Okręt podwodny
Intymny Okręt podwodny InsertDoc ()
Ścieżka = ActiveDocument.AttachedTemplate.Path
Selection.GoTo Co: =wdGoToBookmark, Imię: = " StartHere "
n = Selection.Information (wdActiveEndSectionNumber)
Wywoławczy UnprotectMyDoc
Jeżeli ActiveDocument.CustomDocumentProperties.Item ("xDocType"). Wartość = "Prośba dla Oferta" Wtedy
Selection.InsertFile Ścieżka & "\ Poparcie Kartoteka Proc_Tender.docx"
ElseIf ActiveDocument.CustomDocumentProperties.Item ("xDocType"). Wartość = "Prośba dla Wycena" Wtedy
Selection.InsertFile Ścieżka & "\ Poparcie Kartoteka Proc_Quote.docx"
ElseIf ActiveDocument.CustomDocumentProperties.Item ("xDocType"). Wartość = "Prośba dla Propozycja" Wtedy
Selection.InsertFile Ścieżka & "\ Poparcie Kartoteka Proc_Proposal.docx"
Inny
MsgBox "Niezdolny poparcie kartoteka. Zadawalać kontakt twój administrator", "Błąd"
Kończyć Jeżeli
Dzwonić ProtectMyDoc
ActiveDocument.Sections (n). Chodnikowiec (wdHeaderFooterPrimary) .LinkToPrevious = Prawdziwy
ActiveDocument.Sections (n). Stopka (wdHeaderFooterPrimary) .LinkToPrevious = Prawdziwy
Końcówka Okręt podwodny
|