Word document sluiten met VBA

Status
Niet open voor verdere reacties.
E

EvelienVD

Gebruiker
Lid geworden
27 mei 2020
Berichten
6
Weet iemand of het mogelijk is om enkel een Word-document te sluiten zonder de volledige Word applicatie te sluiten?
Mijn Excel-tool genereert 300 Word-documenten en slaat deze dan op als pdf.
Echter loopt Word vast na 100 brieven omdat er 100 Word-documenten open staan.
Ik zou dus in de for lus code willen steken die steeds het document afsluit nadat deze is opgeslagen als pdf.
Bedankt!
 
Dat zal geen probleem zijn.
Maar laat wel even je huidige code zien.
 
Bij deze:

Code: 
Sub Generate_form()

Dim appWord As Word.Application
    Dim Brief As Word.Document
    Dim pad As String
    Dim Brief_Bestand As String
    Dim rng As Range, cell As Range
    Set rng = Range("Briefkeuze")
    Dim Gemeente As String
    Gemeente = Range("Hoofdgemeente").Value

pad = "https://mononline.sharepoint.com/:w:/r/sites/ORG00205/Shared%20Documents/Domeinvergunningen/06_Gemeentelijke%20retributies/Overzicht%20uitbetalingen"
    
    Brief_Bestand = pad & "\Brief.docx"

For Each cell In rng
        If cell.Value = True Then
    
            Set Brief = appWord.Documents.Add(Template:=Brief_Bestand, NewTemplate:=False, DocumentType:=0)
    

Brief.ExportAsFixedFormat OutputFileName:= _
                                       "W:\07_0016\08_ON\07_NWP\09_Wegvergunningen\Brieven Gemeentelijke retributies\" & Gemeente & "-brief.pdf", _
                                       ExportFormat:=wdExportFormatPDF, _
                                       OpenAfterExport:=False, _
                                       OptimizeFor:=wdExportOptimizeForPrint, _
                                       Range:=wdExportAllDocument, _
                                       IncludeDocProps:=True, _
                                       CreateBookmarks:=wdExportCreateWordBookmarks, _
                                       BitmapMissingFonts:=True
cell.Value = False
         End If
    Next cell
    
    appWord.Quit SaveChanges:=False
    
End Sub
 
Hou het simpel:

Code: 
Sub M_snb()
  Gemeente = Range("Hoofdgemeente").Value
  brief ="https://mononline.sharepoint.com/:w:/r/sites/ORG00205/Shared%20Documents/Domeinvergunningen/06_Gemeentelijke%20retributies/Overzicht%20uitbetalingen/Brief.docx"
    
  with Getobject("brief")
    for each it in rng
      if it then.ExportAsFixedFormat 0, "W:\07_0016\08_ON\07_NWP\09_Wegvergunningen\Brieven Gemeentelijke retributies\" & Gemeente & "-brief.pdf"
      it=false
    next
  end with
End Sub

Je moet net even iets anders denken.
Eenzelfde document kan op tig verschillende manieren opgeslagn worden.
Ik zie in je code echter geen verschil in benaming tussen de verschillende pdf-documenten; dus die wordt iedere keer overschreven.
 
Laatst bewerkt:
SNB bedankt maar mijn Word documenten blijven nog steeds allemaal open staan.

De benaming haalt hij uit de range 'Hoofdgemeente' deze verandert telkens.
Mijn pdf's worden niet overschreven dat werkt allemaal perfect.

Code: 
Gemeente = Range("Hoofdgemeente").Value
Brief.ExportAsFixedFormat OutputFileName:= _
                                       "W:\07_0016\08_ON\07_NWP\09_Wegvergunningen\Brieven Gemeentelijke retributies\" & Gemeente & "-brief.pdf", _
                                       ExportFormat:=wdExportFormatPDF, _
                                       OpenAfterExport:=False, _
                                       OptimizeFor:=wdExportOptimizeForPrint, _
                                       Range:=wdExportAllDocument, _
                                       IncludeDocProps:=True, _
                                       CreateBookmarks:=wdExpo
rtCreateWordBookmarks, _
BitmapMissingFonts:=True[/CODE]
 
Laatst bewerkt:
Het blijkt uiterst eenvoudig te zo zoals meestal het geval ;)
Was alweer eens te ver aan het denken.

Oplossing:

Code: 
Brief.Close  SaveChanges:=False
 
Je hebt nier veel begrepen van de suggestie.
De door jou geplaatste code kan niet werken, dus je hebt ons van onvolledige/onjuiste informatie voorzien.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan