Frage : Wie man das Dokument erklärt, das ich innen bearbeite

Hallo haben experts

I eine Schablone, die auf neuem eine Benutzerform erschließen, in der der Benutzer die Art des Dokuments vorwählt, das, sie erstellen möchten. Von ihrer Vorwähler setzt es den Inhalt einer anderen Akte in das Dokument ein. Sobald er den Wahlknopf ich vorwählen, ihre Vorwähler in den customdocumentproperties notieren. Sobald er beendet, das Dokument einzusetzen ich, auf dem customdocumentproperty benennen, um ein Teil des nextform zu füllen (genannt GEOProcurementMenu). Aber, wenn er geht, sich auf das customdocumentproperty zu beziehen ich, einen Laufzeitfehler 76 erhalten Akten-Weg nicht gefunden. Aber ich kann bestätigen, dass es wirklich in der document.

The sonderbaren Sache ist notiert wird, dass es auf meinem computer.

Help adaequat ist? Weiß jemand, was los sein könnte? 
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

Antwort : Wie man das Dokument erklärt, das ich innen bearbeite

Da die Überschrift von diesem nach der Erklärung eines Dokuments fragt, werde ich die Idee des Ersetzens von ActiveDocument durch einen variablen Namen heraus werfen.

Ich vorschlagen ch, Ihren Code mit anzufangen:
Schwaches Doc. als Dokument

Dann können Sie überprüfen, ob das korrekte Dokument in mit.einbezogen:
Einstellen Doc. = ActiveDocument

Seit Ihnen erwähnte, dass der Benutzer ein Dokument erstellt, Sie konnte sicherstellen sogar wünschen, dass es zur Schablone angebracht, indem es verwendete:
Einstellen Doc. = Documents.Add (Schablone: = " Normal ")

Wenn der Schablonenname was auch immer, ist, Sie benötigen.  Die nette Sache über die Anwendung einer Schablone für ein neues Dokument ist, dass Sie sicher sein können, dass die Bookmarks existieren.

Ohne den Rest Ihrer Schablone zu sehen völlig sicher, bin ich nicht, was fehlt, aber Sie konnten Sachen festziehen, indem Sie eine Dokumenteneingabe erklärten. ActiveDocument kann Art von wonky erhalten, wenn der Benutzer die mehrfachen Akten hat, die geöffnet sind (zwar ist es unwahrscheinlich, wenn Sie den Code innerhalb des aktiven Dokuments benennen).
Weitere Lösungen  
 
programming4us programming4us