Opgelost Knop verbergen

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

pommeke

Gebruiker
Lid geworden
17 jul 2007
Berichten
237
Hallo,

Ik heb een formulier in Word gemaakt met een verzendknop.
Met behulp van AI ervoor gezorgd dat als men op deze knop klikt:
- Het doc wordt opgeslagen als pdf
- Verzonden per mail

Werkt perfect!
Alleen staat die knop mee op het pdf document en dat wil ik niet.

AI geeft verschillende opties, maar deze werken niet.
bv: Klik met de rechtermuisknop op de knop en selecteer "Eigenschappen".
Zoek naar de eigenschap "PrintObject" en stel deze in op "False".

Of wat aanpassingen in de code, maar geven fouten

Weet iemand een oplossing?

Dit is de code van de knop
Code:
Sub OpslaanEnMailen()
'
' OpslaanEnMailen Macro
'
'
 Dim pdfPath As String
    Dim olApp As Object
    Dim olMail As Object
    Dim todayDate As String

    ' Huidige datum ophalen en formatteren
    todayDate = Format(Date, "yyyy-mm-dd")
    
    ' Pad om het PDF-bestand op te slaan met vaste tekst en datum
    pdfPath = Environ("UserProfile") & "\Documents\tekst_" & todayDate & ".pdf"
  

    ' Document opslaan als PDF
    ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF
    
 
    ' Outlook applicatie openen
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)

    ' E-mail opstellen
    With olMail
        .To = "naam@mail.be"
        .Subject = "mail"
        .Body = "Hierbij het ingevulde formulier."
        .Attachments.Add pdfPath
        .Send
    End With

    ' Opruimen
    Set olMail = Nothing
    Set olApp = Nothing

End Sub
 
Deze code aanpassingen stelde AI voor maar werken niet:
Code:
    ' Verberg de knop
    Set btn = ActiveDocument.InlineShapes(1).OLEFormat.Object
    btn.Visible = False
    
    ' Knop weer zichtbaar maken
    btn.Visible = True

Code:
    ' Verwijder de knop tijdelijk
    Set btn = ActiveDocument.Shapes("CommandButton1")
    btn.Delete
    
    ' Knop opnieuw toevoegen
    With ActiveDocument.Shapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
        .Name = "CommandButton1"
        .Top = 100 ' Pas deze waarden aan naar de oorspronkelijke positie van de knop
        .Left = 100
        .Width = 100
        .Height = 30
    End With

Code:
    ' Verberg de knop
    For Each btn In ActiveDocument.InlineShapes
        If btn.OLEFormat.Object.Name = "CommandButton1" Then
            btn.OLEFormat.Object.Visible = False
        End If
    Next btn
        
    ' Knop weer zichtbaar maken
    For Each btn In ActiveDocument.InlineShapes
        If btn.OLEFormat.Object.Name = "CommandButton1" Then
            btn.OLEFormat.Object.Visible = True
        End If
    Next btn
 
Is het een ActiveX button?
Plaats je document eens hier.
 
Bij mij werkt dit prima met een ActiveX button:
Code:
Sub OpslaanAlsPDF()
    Dim pdfPath As String
    Dim todayDate As String
    
    For Each btn In ActiveDocument.InlineShapes
        btn.OLEFormat.Object.Visible = False
    Next btn
    ' Huidige datum ophalen en formatteren
    todayDate = Format(Date, "yyyy-mm-dd")
    
    ' Pad om het PDF-bestand op te slaan met vaste tekst en datum
    pdfPath = Environ("UserProfile") & "\Documents\tekst_" & todayDate & ".pdf"
  
    ' Document opslaan als PDF
    ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF
    For Each btn In ActiveDocument.InlineShapes
        btn.OLEFormat.Object.Visible = True
    Next btn
End Sub
 
Bij mij werkt dit prima met een ActiveX button:
Code:
Sub OpslaanAlsPDF()
    Dim pdfPath As String
    Dim todayDate As String
   
    For Each btn In ActiveDocument.InlineShapes
        btn.OLEFormat.Object.Visible = False
    Next btn
    ' Huidige datum ophalen en formatteren
    todayDate = Format(Date, "yyyy-mm-dd")
   
    ' Pad om het PDF-bestand op te slaan met vaste tekst en datum
    pdfPath = Environ("UserProfile") & "\Documents\tekst_" & todayDate & ".pdf"
 
    ' Document opslaan als PDF
    ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF
    For Each btn In ActiveDocument.InlineShapes
        btn.OLEFormat.Object.Visible = True
    Next btn
End Sub
Helaas, bij mij niet...
In bijlage het bestand
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan