Implement DanielsStyle.

This commit is contained in:
Daniel Kraus 2015-07-27 20:39:05 +02:00
parent 405070fa1b
commit b4f3d81336
6 changed files with 94 additions and 0 deletions

BIN
gimp/dk.xcf Normal file

Binary file not shown.

View File

@ -0,0 +1,71 @@
/* 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);
}
}
}

BIN
zaaReloaded2/Icons/dk.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.2 KiB

View File

@ -90,6 +90,11 @@ namespace zaaReloaded2
ViewModels.AboutViewModel vm = new ViewModels.AboutViewModel();
vm.InjectInto<Views.AboutView>().ShowDialog();
break;
case "zrlDaniel":
Formatter.DanielsStyle.Apply(
Globals.ThisAddIn.Application.ActiveDocument,
Globals.ThisAddIn.Application.Selection);
break;
default:
throw new InvalidOperationException("No operation defined for " + control.Id);
}
@ -118,6 +123,18 @@ namespace zaaReloaded2
return Image.FromStream(sri.Stream);
}
public bool Daniel_GetVisible(Office.IRibbonControl control)
{
switch (Environment.UserName.ToUpper())
{
case "DANIEL":
case "KRAUS_D1":
return true;
default:
return false;
}
}
#endregion
#region Helpers

View File

@ -25,6 +25,8 @@
<tab id="zaaReloaded2" label="zaaReloaded2">
<group id="zrlFormatGroup" label="Formatieren">
<button id="zrlFormat" label="Formatieren" image="f.png" onAction="Ribbon_Click" size="large" />
<button id="zrlDaniel" label="Daniels Spezial" image="dk.png" onAction="Ribbon_Click" size="large"
getVisible="Daniel_GetVisible"/>
</group>
<group id="zrlInfoGroup" label="Info">
<button id="zrlAbout" label="Über..." image="i.png" onAction="Ribbon_Click" size="large" />

View File

@ -184,6 +184,7 @@
<Compile Include="ExceptionHandler\SubmissionProcessAction.cs" />
<Compile Include="ExceptionHandler\SubmissionProcessView.xaml.cs" />
<Compile Include="ExceptionHandler\SubmissionSuccessView.xaml.cs" />
<Compile Include="Formatter\DanielsStyle.cs" />
<Compile Include="Formatter\DocumentWriter.cs" />
<Compile Include="Ribbon.cs" />
<Compile Include="Thesaurus\ThesaurusBase.cs" />
@ -301,6 +302,9 @@
<ItemGroup>
<Resource Include="Icons\f.png" />
</ItemGroup>
<ItemGroup>
<Resource Include="Icons\dk.png" />
</ItemGroup>
<PropertyGroup>
<VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
<VSToolsPath Condition="'$(VSToolsPath)' == ''">$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)</VSToolsPath>