MS Word 2007 Bookmarks

[thanosgr]

Καλημέρα και χρόνια πολλά
Προσπαθώ να μεταφέρω καποια δεδομένα απο ενα πινακα σε αρχειο WORD.

Εχω δεί σε video πως γίνεται με την χρήση των bookmarks. Ολα καλά. αλλα μου βγάζει μήνυμα

Error 5941 Το απαιτούμενο μέλος της συλλογής δεν υπάρχει.

Κάνοντας ένα έλεγχο δημιουργεί το πρόβλημα στο

FormFields("bmk1").Result = Nz(Me!InvoiceNumber, "")

Τώρα δεν ξέρω εάν δημιούργησα σωστά το πρότυπο αρχείο WORD.

Πήρα το υπάρχον έγγραφο, έκανα εισαγωγή τα bookmarks και μετά το αποθηκευσα ως .dot

Παρακαλώ για τη βοήθεια σας.

Ευχαριστώ
Θάνος

[Meteora]

Καλημέρα, χρόνια πολλά

...δώσε το video ή περιέγραψε τα βήματα δημιουργίας Bookmark. Έχει σημασία...

Τα λέμε... Νίκος Δ.

[nasos23]

Καλημέρα σε όλους και χρόνια πολλά!!
Φίλε Θάνο το μήνυμα λάθους παραπέμπει σε λάθος ονομασία
του σελιδοδείκτη στο έγγραφο. Έλεγξε ξανά τις ονομασίες.

Σημ. Δέν είναι απαραίτητο το έγγραφο να μετατραπεί σε πρότυπο.
Μπορεί να γίνει και σε doc.

[thanosgr]

Καλημέρα σε όλους

Μετέωρα: Εχω ανοίξει ενα κενό εγγραφο προτυπο. Αντέγραψα ενα text κειμενο και στα σημεία που ήθελα να στέλνει records απο την Access, πηγα Εισαγωγή, σελιδοδείκτες, και προσθήκη. μετά αποθήκευση σαν .dot, (εχω δοκιμασει και σαν dotx). .Ολα αυτά σε MS Word 2007.


nasos23: Tο εχω διπλοτσεκάρει, αλλα τίποτα δίνω και τον κωδικα παρακάτω

On Error GoTo HandleErr
Dim strFileName As String
Dim strsave As String
Dim rstSuppliers As DAO.Recordset


If IsNull(Me!PreorderID) Then
    
    var = MsgBox("Error", vbCritical + vbOKOnly, "Ðñïóï÷Þ")
    Exit Sub
End If

var = MsgBox("Εκτύπωση;", vbYesNo + vbDefaultButton2 + vbQuestion, "Ðñïóï÷Þ")
If var = vbNo Then Exit Sub



Select Case Me!ApprovalText1
Case "0881"
    If IsNull(DLookup("[0811LabourWorkFilename]", "Settings")) Or DLookup("[0811LabourWorkFilename]", "Settings") = "" Then
        
        var = MsgBox("Ðáñáêáëþ êÜíôå Ýëåã÷ï åÜí õðÜñ÷åé ôï ðñüôõðï áñ÷åßï MS-Word", vbCritical + vbOKOnly, "Ðñïóï÷Þ")
        Exit Sub
    Else
        strFileName = DLookup("[0811LabourWorkFilename]", "Settings")
    End If
'Case "1431"
'    If IsNull(DLookup("[1431WordTemplateFileName]", "Settings")) Or DLookup("[1431WordTemplateFileName]", "Settings") = "" Then
        
 '       var = MsgBox("Ðáñáêáëþ êÜíôå Ýëåã÷ï åÜí õðÜñ÷åé ôï ðñüôõðï áñ÷åßï MS-Word", vbCritical + vbOKOnly, "Ðñïóï÷Þ")
 '       Exit Sub
 '   Else
  '      strFileName = DLookup("[1431WordTemplateFileName]", "Settings")
 '   End If
    
'Case "1611"
  '  If IsNull(DLookup("[1611WordTemplateFileName]", "Settings")) Or DLookup("[1611WordTemplateFileName]", "Settings") = "" Then
        
  '      var = MsgBox("Ðáñáêáëþ êÜíôå Ýëåã÷ï åÜí õðÜñ÷åé ôï ðñüôõðï áñ÷åßï MS-Word", vbCritical + vbOKOnly, "Ðñïóï÷Þ")
   '     Exit Sub
  '  Else
     '   strFileName = DLookup("[1611WordTemplateFileName]", "Settings")
  '  End If
    
'Case Else
 '   If IsNull(DLookup("[OthersWordTemplateFileName]", "Settings")) Or DLookup("[OthersWordTemplateFileName]", "Settings") = "" Then
        
   '     var = MsgBox("Ðáñáêáëþ êÜíôå Ýëåã÷ï åÜí õðÜñ÷åé ôï ðñüôõðï áñ÷åßï MS-Word", vbCritical + vbOKOnly, "Ðñïóï÷Þ")
    '    Exit Sub
  '  Else
       ' strFileName = DLookup("[OthersWordTemplateFileName]", "Settings")
        
    'End If
End Select


'Avoid error 429, when Word isn't open.
On Error Resume Next
Err.Clear
'Set appWord object variable to running instance of Word.
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'If Word isn't open, create a new instance of Word.
Set appWord = CreateObject("Word.Application")
End If
Err.Clear
On Error GoTo HandleErr
appWord.Visible = False
WordTemplateFilePath = CurrentProject.Path & "\" & strFileName
If Dir$(WordTemplateFilePath) = "" Then
    
    var = MsgBox("Äåí âñÝèçêå ôï ðñüôõðï áñ÷åßï MS-Word" & vbCrLf & "Äåí ÂñÝèçêå " & WordTemplateFilePath, vbCritical + vbOKOnly, "Ðñïóï÷Þ")
    GoTo HandleErrExit
End If

Set doc = appWord.Documents.Add(WordTemplateFilePath)
With doc

    .FormFields("bmk1").Result = Nz(Me!InvoiceNumber, "")
    .FormFields("bmk2").Result = Format(Nz(Me!InvoiceDate, ""), "d mm yyyy")
    .FormFields("bmk5").Result = Format(Nz(Me!InvoiceDate, ""), "d mm yyyy")
    .FormFields("bmk4").Result = Nz(Me!NumberID, "")
    

    Strsql = "SELECT Supplier.SupplierName, Supplier.SupplierDescription, PreorderSuppliers.Qualify, PreorderSuppliers.Price"
    Strsql = Strsql & " FROM Supplier INNER JOIN (Preorder INNER JOIN PreorderSuppliers ON Preorder.PreorderID = PreorderSuppliers.PreorderID) ON Supplier.SupplierID = PreorderSuppliers.SupplierID"
    Strsql = Strsql & " WHERE Preorder.PreorderID = " & Me!PreorderID & " AND PreorderSuppliers.Qualify = True"
    
  
    Set rstSuppliers = CurrentDb.OpenRecordset(Strsql, dbOpenForwardOnly)
    If Not rstSuppliers.EOF Then
       .FormFields("bmk3").Result = Nz(rstSuppliers("SupplierName"), "")
       
    Else
       var = MsgBox("Ðáñáêáëþ êÜíôå Ýëåã÷ï åÜí õðÜñ÷åé ôï ðñüôõðï áñ÷åßï MS-Word", vbCritical + vbOKOnly, "Ðñïóï÷Þ")
       Exit Sub
    End If
     
     'strsave = Me!NumberID & "_" & rstSuppliers("SupplierName")
         
   ' .SaveAs FileName:="C:\Users\ÈáíÜóçò\Desktop\ÉÁÍÏÕÁÑÉÏÓ" & strsave
    
    
End With



appWord.Visible = True
appWord.Activate


HandleErrExit:
On Error GoTo 0
On Error Resume Next
rstSuppliers.Close
Set rstSuppliers = Nothing
Set doc = Nothing
Set appWord = Nothing
Exit Sub

HandleErr:
Select Case Err.Number
Case Else
    MsgBox "Error " & Err & " : " & Error$, vbCritical, "Ðñïóï÷Þ"
    Resume HandleErrExit
End Select

[Meteora]

Καλημέρα Θάνο μας...

...καλά το υποψιάστηκα. Στο επισυναπτόμενο δες τι θα κάνεις. Όσο για τον κώδικα που ανέβασες, ελπίζω να δουλέψει. Αν δεν τον δω να τρέχει, είναι εξαιρετικά δύσκολο να πω σε ποιο σημείο υπάρχει πρόβλημα. Οι γνώσεις μου είναι περιορισμένες...

Να είσαι καλά / Νίκος


Υστερολόγιο (Ι) : Το όνομά μου είναι Νίκος. Μετέωρα είναι ένα όνομα μέλους του forum -μοναδικό μιας και έτσι πρέπει.

(ΙΙ) Νάσο δεν πήγες στα ...Χάσια;

[nasos23]

Θάνο δες ένα παράδειγμα βασισμένο στην πρόταση του Νίκου.
Το έγγραφο ΚΑΤΑΣΤΑΣΗ.doc επιταγές θα το τοποθετήσεις στο φάκελο: C:\epitages\

[thanosgr]

Νίκο σε ευχαριστώ, δούλεψε.... τελικα ηθελε με τον τρόπο που μου έδειξες

Καλη χρονιά σε όλους

[thanosgr]

Καλημέρα Νάσο σε ευχαριστώ
θα το κοιταξω...

[thanosgr]

Αρχική Δημοσίευση από thanosgr

Καλημέρα Νάσο σε ευχαριστώ
θα το κοιταξω...

Νάσο το αρχειο doc δειχνει εικόνα απο το login kai password του Forum, εκτός και αν ειναι ετσι σκοπιμα.

Ευχαριστώ πάντως

[nasos23]

Νάσο το αρχειο doc δειχνει εικόνα απο το login kai password του Forum, εκτός και αν ειναι ετσι σκοπιμα.

Σκόπιμα όχι. Δεν καταλαβαίνω πως έγινε αυτό και σε ποιό σημείο εμφανίζεται η εικόνα.
Σήμερα που το κατέβασα δεν είδα κάτι τέτοιο. Αν έχεις την
καλοσύνη εσύ ή κάποιος άλλος φίλος του forum ας μου στείλει
εικόνα (screenshot) του εγγράφου.