Pytanie : Dlaczego the dokument I pracować wewnątrz

Cześć experts

I mieć szablon który na nowy otwierać użytkownik forma dokąd the użytkownik wybierać the typ dokument chcieć. Od ich wybór ono wkładać the zawartość inny kartoteka w the dokument. Jak Tylko wybierać the opcja guzik I nagrywać ich wybór w the customdocumentproperties. Jak Tylko ono kończyć the dokument I wzywać the customdocumentproperty część the nextform (nazwany GEOProcurementMenu). Ale gdy ono iść the customdocumentproperty I dostawać znajdować błąd 76 Kartoteka Ścieżka Znajdować. Ale I móc że ono właściwie nagrywać w the document.

The dziwny rzecz być że ono pracować świetnie na mój computer.

Help? Co znać co móc dalej?
(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:
36:
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
   
'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

Odpowiedź : Dlaczego the dokument I pracować wewnątrz

Ponieważ the kłoszenie imię pytać o dokument, I iść to the pomysł ActiveDocument z zmienny imię.

I sugerować twój kod z:
Ciemnawy doc Dokument

Wtedy ty móc że the poprawny dokument wymagać z:
Set doc = ActiveDocument

Ponieważ ty wspominać że the użytkownik tworzyć dokument, ty można nawet ono dołączać the szablon:
Set doc = Documents.Add (Szablon: = " Normalna ")

Z the szablon imię ty ty potrzebować.  The ładny rzecz o szablon dla nowy dokument być że ty móc pewny że the bookmarks istnieć.

Bez the odpoczynek twój szablon, I być zupełnie pewny nie brakować, ale ty móc rzecz Dokument typ. ActiveDocument móc jakby jakby jeżeli the użytkownik mieć wieloskładnikowy kartoteka otwarty (otwarty ono być nieprawdopodobny jeżeli ty dzwonić the kod wśród the aktywny dokument).
Inne rozwiązania  
 
programming4us programming4us