title image


Smiley Re: Über Excel Word-Fußzeile ändern
Hallo Thomas,



probiers mal mit folgendem Makro. Nach dem Start musst du nur noch die gewünschten Worddateien (Mehrfachauswahl ist möglich) auswählen und dann werden die Kopfzeilen über das Makro erstellt. Der Text wird in der Zelle B2 erwartet, aber das kannst du ja entsprechend abändern.



Viele Grüße

Herby





Option Explicit



Sub WordKopfzeile()

Dim x As Integer

Dim var As Variant

Dim iCounter As Integer

Dim Dateiname As String

Dim dateiname1 As String

Dim objWord As Object

Dim objDoc As Object

Dim i As Integer

Dim Abschnitt As Section ' Word - Abschnitt

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

var = Application.GetOpenFilename( _

FileFilter:="Word-Dateien (*.doc), *.doc", _

MultiSelect:=True)

On Error GoTo ERRORHANDLER

For iCounter = 1 To UBound(var)

For x = Len(var(iCounter)) To 1 Step -1

If Mid(var(iCounter), x, 1) = "\" Then

Dateiname = Right(var(iCounter), Len(var(iCounter)) - x)

MsgBox "Dateibezeichnung: " & Dateiname

dateiname1 = var(iCounter)

Set objDoc = objWord.Documents.Open(dateiname1)

For Each Abschnitt In objDoc.Sections

For i = 1 To 3

Abschnitt.Headers(i).Range.Text = Range("B2:B2").Value

Next i

Next

' Application.Wait Now + TimeSerial(0, 0, 5)

objDoc.Close savechanges:=True

objWord.Quit

Set objDoc = Nothing

Set objWord = Nothing

Application.CutCopyMode = False

Exit For

End If

Next x

Next iCounter

Exit Sub

ERRORHANDLER:

Beep

MsgBox "Abbruch!"

End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: