měkký návrat vs tvrdý návrat


Odpověď 1:

Skvělá otázka ... a velký problém vyřešit pomocí skriptování jazyka Visual Basic for Applications (VBA). Zde je návod:

Vložte všechny své dokumenty do jedné složky a poté spusťte skript níže (na konci mé odpovědi).

Spuštění skriptu:

  • Otevřete MS Word.
  • Otevřete Editor jazyka v aplikaci Word (stiskněte Alt + F11).
  • V editoru VB vložte nový modul kliknutím na kartu Vložit na pásu karet a výběrem modulu.
  • Poté klikněte do modulu a vložte kód níže na pravou stranu obrazovky.
  • V rámci vloženého kódu najděte řádky, které říkají oSourceFolder a oTargetFolder. Změňte tyto cesty na skutečné složky na pevném disku. oSourceFolder by měla být složka obsahující soubory, které chcete změnit. oTargetFolder bude složka, do které se ukládají převedené soubory.
  • Jakmile je vše nastaveno, přejděte na pás karet a klikněte na zelenou šipku, která vypadá jako tlačítko přehrávání na DVD přehrávači.

Pokud vše půjde dobře (stejně jako na mém počítači), Word by měl automaticky procházet každým souborem docx ve vaší zdrojové složce, otevřít jej, najít a převést jakékoli ruční konce řádků a uložit změněný soubor s novým názvem do cílové složky. .

Může vám tato odpověď ušetřit mnoho únavné a opakující se práce!

Zde je kód pro zkopírování a vložení do editoru VB:

Sub ConvertReturns ()'Tento Sub smyčky přes docx soubory ve složce, otevře každý soubor, najde ruční konce řádků, nahradí každý návratem odstavce, uloží změněný soubor do nové složky, zavře původní soubor.Dim oSourceFolder, oTargetFolder, oDocName As StringDim oDoc jako dokumentDim oRng As Range'Nastavit cesty ke složkám pro původní a převedené soubory na pevném disku uživatele.oSourceFolder = "C: \ YourFolderContainingOriginalFiles \"oTargetFolder = "C: \ YourFolderForConverttedFiles \"'Získejte popisovač prvního souboru ve zdrojové složceoFile = Dir (oSourceFolder & "* .docx")'Pokračujte v provádění následujících kroků, dokud ve zdrojové složce nebudou žádné další nezpracované souboryProveďte oFile <> "" „Otevřete soubor Nastavit oDoc = Documents.Open (název souboru: = oSourceFolder & oFile) „Získejte název právě otevřeného dokumentu oDocName = Left (oDoc.name, Len (oDoc.name) - 5) 'Najděte všechny ruční konce řádků a nahraďte je značkami odstavců Nastavit oRng = ActiveDocument.Range S oRng.Find .Text = "^ l" .Replacement.Text = "^ p" .Forward = True .Wrap = wdFindContinue .Formát = False .MatchCase = False Konec s oRng.Find.Execute Replace: = wdReplaceAll 'Uložte změněný dokument se stejným názvem, ale připojte jej k cílové složce jako „_Convertted“ oDoc.SaveAs oTargetFolder & oDocName & "_Convertted.docx" 'Zavřete původní dokument bez uložení změn oDoc.Close SaveChanges: = False 'Získejte popisovač pro další soubor ve vaší zdrojové složce oFile = DirSmyčka End Sub