72 lines
2.7 KiB
C#
Executable File
72 lines
2.7 KiB
C#
Executable File
/* DanielsStyle.cs
|
|
* part of zaaReloaded2
|
|
*
|
|
* Copyright 2015 Daniel Kraus
|
|
*
|
|
* Licensed under the Apache License, Version 2.0 (the "License");
|
|
* you may not use this file except in compliance with the License.
|
|
* You may obtain a copy of the License at
|
|
*
|
|
* http://www.apache.org/licenses/LICENSE-2.0
|
|
*
|
|
* Unless required by applicable law or agreed to in writing, software
|
|
* distributed under the License is distributed on an "AS IS" BASIS,
|
|
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
* See the License for the specific language governing permissions and
|
|
* limitations under the License.
|
|
*/
|
|
using System;
|
|
using System.Collections.Generic;
|
|
using System.Linq;
|
|
using System.Text;
|
|
using Microsoft.Office.Interop.Word;
|
|
|
|
namespace zaaReloaded2.Formatter
|
|
{
|
|
/// <summary>
|
|
/// Makes design changes and edits especially for Daniel Kraus.
|
|
/// </summary>
|
|
static class DanielsStyle
|
|
{
|
|
public static void Apply(Document document, Selection selection)
|
|
{
|
|
FixWords(document);
|
|
FormatDiagnoses(selection);
|
|
}
|
|
|
|
static void FormatDiagnoses(Selection selection)
|
|
{
|
|
Range r = selection.Range;
|
|
r.ListFormat.RemoveNumbers();
|
|
r.Bold = 0;
|
|
r.Italic = 0;
|
|
r.Underline = WdUnderline.wdUnderlineNone;
|
|
r.Font.Size = 10;
|
|
Paragraphs p = r.Paragraphs;
|
|
p.Alignment = WdParagraphAlignment.wdAlignParagraphLeft;
|
|
p.FirstLineIndent = -45;
|
|
p.LeftIndent = 45;
|
|
p.LineSpacingRule = WdLineSpacing.wdLineSpaceSingle;
|
|
p.SpaceAfter = 0;
|
|
p.SpaceBefore = 0;
|
|
|
|
if (p[p.Count].Range.Text.StartsWith("Aktuell"))
|
|
{
|
|
p[p.Count].Range.Bold = 1;
|
|
}
|
|
}
|
|
|
|
static void FixWords(Document document)
|
|
{
|
|
Find find = document.Range().Find;
|
|
find.Execute2007(FindText: "Dr.D.Kraus", ReplaceWith: "Dr. D. Kraus", Replace: WdReplace.wdReplaceAll);
|
|
find.Execute2007(FindText: "Z. n.", ReplaceWith: "Z.n.", Replace: WdReplace.wdReplaceAll);
|
|
find.Execute2007(FindText: "Zust. n.", ReplaceWith: "Z.n.", Replace: WdReplace.wdReplaceAll);
|
|
find.Execute2007(FindText: "Zust.n.", ReplaceWith: "Z.n.", Replace: WdReplace.wdReplaceAll);
|
|
find.Execute2007(FindText: "Assistent der Klinik", ReplaceWith: "Internist/Nephrologe", Replace: WdReplace.wdReplaceAll);
|
|
find.Execute2007(FindText: "Professor Dr.", ReplaceWith: "Prof. Dr.", Replace: WdReplace.wdReplaceAll);
|
|
find.Execute2007(FindText: "mmHg", ReplaceWith: "mm Hg", Replace: WdReplace.wdReplaceAll);
|
|
}
|
|
}
|
|
}
|