Jeg har en rapport på 130 sider, der indsættes i Word. Denne rapport har indbygget side tal, men bliver desværre ikke opdelt automatisk. Kan nogen hjælpe mig med en VBA kode, der løber dokumentet igennem. Finder ordet Side: går 2 linjer tilbage, indsætter et tvungen sideskift, og slette første linje.
Jeg kan godt indspille denne makro, men kan desværre ikke lave koden til at gennemløbe dokumentet og udføre koden indtil enden af dokumentet.
With Selection.Find Do While .Execute(findtext:="side:", Forward:=True, MatchCase:=True, Wrap:=wdFindStop) = True
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Font.Bold = True Selection.EndKey Unit:=wdLine Selection.HomeKey Unit:=wdLine Selection.InsertBreak Type:=wdPageBreak Selection.EndKey Unit:=wdLine Loop End With End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
