title image


Smiley Re: komplettes Word-Dokument x-fach anhängen und die Textfelder umbenennen
Ich glaube ich habs, muss nur noch Bookmarks und FormFields unterscheiden , sonst geht's doppelt.



Ich poste mal meine Lösung.





Sub Seite_kopieren()



' Seite_kopieren Makro

' Makro erstellt am 28.01.2004 von Weller



Dim strName As String

Dim objBM As FormField

Dim Ffields As FormFields

Dim BMarks As BookMarks



Set docCurrent = ActiveDocument



Set CompleteRange = docCurrent.Range

CompleteRange.Copy



anz = InputBox("Wieviele Male soll das Dokument kopiert werden ?", "Auswahl Kopien", 1)



For j = 1 To anz

Set CompleteRange = docCurrent.Range

CompleteRange.Collapse Direction:=wdCollapseEnd



CompleteRange.InsertBreak (wdPageBreak)

Set NewRange = docCurrent.Range(CompleteRange.End, CompleteRange.End)

NewRange.Paste



Set NewRange = docCurrent.Range(CompleteRange.End, docCurrent.Range.End)



Set Ffields = NewRange.FormFields



For i = 1 To Ffields.Count

Set ff = Ffields(i)

strName = ff.Name + CStr(j)

Set BMFF_Range = ff.Range

Set BMFF_Range = BMFF_Range.FormFields.Add(BMFF_Range, wdFieldFormTextInput)

BMFF_Range.Name = strName

Next





Set BMarks = NewRange.BookMarks



For i = 1 To BMarks.Count

Set bm = BMarks(i)

strName = bm.Name + CStr(j)

Set BMFF_Range = bm.Range

Set BMFF_Range = BMFF_Range.FormFields.Add(BMFF_Range, wdFieldFormTextInput)

BMFF_Range.Name = strName

Next



Next



End Sub





Viel Spaß damit.



M. Weller

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: