vba worddatei speichern dann schliessen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Livio,
Ein "Generate" hab ich jetzt nicht gefunden.
Ich hatte allerdings Problem unter Word 2010 mit dem Logo/Grafik in der Kopfzeile der Worddatei (irgendwie fehlt plötzlich Arbeitsspeicher).
Nachfolgend das anzupassende Makro zum Speichern und Schließen der WOrddatei und Beenden der Word-Instanz. Die verschobene und die beiden neuen Zeilen hab ich markiert.
Gruß
Franz

Sub cmdInTextfeldschreiben()
'Variablen definieren
Dim wdApp As Object
Dim wdDoc1 As Object
Dim wdRng As Object
Dim wdCustProp As Object
Dim wdDatei1 As String
Dim wb As Excel.Workbook
'Dim ws As Excel.Worksheet
'Arbeitsmappe mit diesem Makro
Set wb = ThisWorkbook
'Set ws = wb.Worksheets("Sheet1")
'Word als Object starten
Set wdApp = CreateObject("Word.Application") 'Word als Object starten
wdApp.Visible = True                      '##### Zeile verschoben ##### 2014-09-10
'Worddatei festlegen - befindet sich im gleichen Verzeichnis wie diese Excel-AM
wdDatei1 = wb.Path & "\Worddatei.doc"
Set wdDoc1 = wdApp.Documents.Open(wdDatei1)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _
With wdDoc1
On Error Resume Next
Set wdCustProp = .CustomDocumentProperties("Client")
If Not (wdCustProp Is Nothing) Then
.CustomDocumentProperties("Client").Value = [Client].Value
Else
MsgBox "Die Word-Property 'Client' existiert nicht!", 64, "zur Information"
End If
Set wdCustProp = .CustomDocumentProperties("ProjectName")
If Not (wdCustProp Is Nothing) Then
.CustomDocumentProperties("ProjectName").Value = [Project_Number].Value
Else
MsgBox "Die benutzerdefinierte Word-Property 'ProjectName' existiert nicht!", _
64, "zur Information"
End If
Set wdCustProp = .CustomDocumentProperties("Consultant")
If Not (wdCustProp Is Nothing) Then
.CustomDocumentProperties("Consultant").Value = [Consultant].Value
Else
MsgBox "Die benutzerdefinierte Word-Property 'ProjectName' existiert nicht!", _
64, "zur Information"
End If
Set wdCustProp = .CustomDocumentProperties("OrderNo")
If Not (wdCustProp Is Nothing) Then
.CustomDocumentProperties("OrderNo").Value = [Order_Number].Value
Else
MsgBox "Die benutzerdefinierte Word-Property 'OrderNo' existiert nicht!", _
64, "zur Information"
End If
'On Error GoTo 0
.CustomDocumentProperties.Update
.Save
'alle Felder aktualisieren
For Each wdRng In .StoryRanges
wdRng.Fields.Update
While Not (wdRng.NextStoryRange Is Nothing)
Set wdRng = wdRng.NextStoryRange
wdRng.Fields.Update
Wend
Next wdRng
.Close savechanges:=True    '##### Zeile neu ##### 2014-09-10
End With
wdApp.Quit                      '##### Zeile neu ##### 2014-09-10
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _
Set wdRng = Nothing
Set wdDoc1 = Nothing
Set wdCustProp = Nothing
Set wdApp = Nothing
'Set ws = Nothing
Set wb = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

vba worddatei speichern dann schliessen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

vba worddatei speichern dann schliessen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread