Public Sub Main()
Dim Name_$
Dim A$
Dim B$
If WordBasic.[Left$](WordBasic.[FileName$](), 8) = Dokument Or Len(WordBasic.[FileName$]()) = 0 Then
WordBasic.MsgBox Ungültiger Dateiname -> Erst speichern., So nicht!
GoTo byebye
End If
WordBasic.EndOfDocument
WordBasic.InsertPara
Name_$ = (Ho)
WordBasic.FileSummaryInfo Update:=1
Dim dlg As Object: Set dlg = WordBasic.DialogRecord.FileSummaryInfo(False)
WordBasic.CurValues.FileSummaryInfo dlg
A$ = dlg.Directory
B$ = dlg.FileName
WordBasic.WW2_Insert Name_$ + A$ + \ + B$
WordBasic.ExtendSelection
WordBasic.StartOfLine
WordBasic.FontSize 6
WordBasic.InsertFrame
WordBasic.FormatFrame Wrap:=1, WidthRule:=0, FixedWidth:=, HeightRule:=0, FixedHeight:=, PositionHorz:=Rechts, PositionHorzRel:=0, DistFromText:=0,25 cm, PositionVert:=28,2 cm, PositionVertRel:=1, DistVertFromText:=0 cm, MoveWithText:=0, LockAnchor:=0
WordBasic.FormatBordersAndShading ApplyTo:=0, Shadow:=0, TopBorder:=0, LeftBorder:=0, BottomBorder:=0, RightBorder:=0, HorizBorder:=0, VertBorder:=0, TopColor:=0, LeftColor:=0, BottomColor:=0, RightColor:=0, HorizColor:=0, VertColor:=0, FromText:=1 pt, Shading:=0, Foreground:=0, Background:=0, Tab:=0, FineShading:=-1
WordBasic.VLine 1
WordBasic.PageUp 3
byebye:
End Sub
Grüße
Andreas