Új hozzászólás Aktív témák

• #1592 Bosco01 tag G.F. #1588

  Új Válasz 2018-02-19 12:53:52 #1592

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Bosco01

  tag

  válasz G.F. #1588 üzenetére

  Szia!

  Futtasd le rajta ezt a makrót. Nekem már párszor segített. Nem saját szerzemény, így ha nem működik, nem tudom mit kell benne javítani.

  Sub Fels_makro()
  ' Felsorolás megszűntetése, kötőjel beszúrása a sor elejére
  'sorok = ActiveDocument.ComputeStatistics(wdStatisticLines)
  oldalak = ActiveDocument.ComputeStatistics(wdStatisticPages)
  Selection.EndKey Unit:=wdStory
  Last = Selection.Information(wdFirstCharacterLineNumber)
  Selection.HomeKey Unit:=wdStory
  Do
  If Selection.Range.ListFormat.ListType = 0 Then
  Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
  Else
  Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
  Selection.HomeKey Unit:=wdLine
  Selection.TypeText Text:="- "
  Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
  End If
  Loop Until Selection.Information(wdActiveEndPageNumber) = oldalak And Selection.Information(wdFirstCharacterLineNumber) = Last
  End Sub

• #1589 hampidampi őstag G.F. #1588

  Új Válasz 2018-02-18 19:10:16 #1589

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  hampidampi

  őstag

  válasz G.F. #1588 üzenetére

  A legegyszerűbb, ha szűrt html-ként mented el (illetve, ha már eleve ilyen outputot adsz meg pdf konvertáláskor). Az átalakítja a felsorolást kötőjel-nem törhető szóközre, és azt könnyebb cserélni.

Új hozzászólás Aktív témák