Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   MS Word 2007 Bookmarks (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4399-ms-word-2007-bookmarks.html)

thanosgr 28-12-16 13:05

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

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

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

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

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

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

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

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

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

Meteora 28-12-16 13:22

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

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

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

nasos23 29-12-16 05:41

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

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

thanosgr 29-12-16 06:50

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

Μετέωρα: Εχω ανοίξει ενα κενό εγγραφο προτυπο. Αντέγραψα ενα 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 29-12-16 07:57

1 Συνημμένο(α)
Καλημέρα Θάνο μας...

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

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


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

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

nasos23 29-12-16 09:08

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

thanosgr 29-12-16 09:47

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

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

thanosgr 05-01-17 11:35

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

thanosgr 05-01-17 11:44

Παράθεση:

Αρχική Δημοσίευση από thanosgr (Μήνυμα 25065)
Καλημέρα Νάσο σε ευχαριστώ
θα το κοιταξω...

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

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

nasos23 06-01-17 08:08

Παράθεση:

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


Η ώρα είναι 19:20.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2