Displaying items by tag: docnettext

PM> Install-Package Spire.Doc

using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;
using System.Drawing;

namespace ApplyFormattingToCharacters
{
    class Program
    {
        static void Main(string[] args)
        {
            //Documentのオブジェクトを作成する
            Document document = new Document();

            //セクションを追加する
            Section sec = document.AddSection();

            //段落を追加し、スタイルを設定します
            Paragraph paragraph = sec.AddParagraph();
            ParagraphStyle defaultFont = new ParagraphStyle(document);
            defaultFont.CharacterFormat.FontName = "Yu Gothic";
            document.Styles.Add(defaultFont);
            paragraph.ApplyStyle(defaultFont.Name);
            paragraph.AppendText("\n\nここでは、さまざまな文字スタイルを持つ段落を紹介します。\nこれは");

            //段落にテキストを追加し、TextRangeのオブジェクトを返す
            TextRange tr = paragraph.AppendText("取り消し線付きテキスト");

            //TextRangeのオブジェクトで取り消し線付きの文字書式を設定する
            tr.CharacterFormat.IsStrikeout = true;

            //テキスト背景に網かけを設定する
            paragraph.AppendText("。\nこれは");
            tr = paragraph.AppendText("網かけ付きテキストです");
            tr.CharacterFormat.IsShadow = true;

            //フォントサイズを設定する 
            paragraph.AppendText("。\nこれは");
            tr = paragraph.AppendText("大きいフォントのテキストです");
            tr.CharacterFormat.FontSize = 20;

            //フォント名を設定する 
            paragraph.AppendText("。\nこれは");
            tr = paragraph.AppendText("明朝体の文字です");
            tr.CharacterFormat.FontName = "Yu Mincho";

            //フォントの色を設定する
            paragraph.AppendText("。\nこれは");
            tr = paragraph.AppendText("赤色で表示されるテキストです");
            tr.CharacterFormat.TextColor = Color.Red;

            //テキストに太字や斜体の書式を適用する
            paragraph.AppendText("。\nこれは");
            tr = paragraph.AppendText("太字や斜体のテキストです");
            tr.CharacterFormat.Bold = true;
            tr.CharacterFormat.Italic = true;

            //テキストに下線書式を適用する
            paragraph.AppendText("。\nこれは");
            tr = paragraph.AppendText("下線付きのテキストです");
            tr.CharacterFormat.UnderlineStyle = UnderlineStyle.Single;

            //テキストに背景色を適用する
            paragraph.AppendText("。\nこれは");
            tr = paragraph.AppendText("ハイライトされているテキストです");
            tr.CharacterFormat.HighlightColor = Color.Green;

            //テキストに囲み線を適用する
            paragraph.AppendText("。\nこれは");
            tr = paragraph.AppendText("囲み線付きのテキストです");
            tr.CharacterFormat.Border.BorderType = Spire.Doc.Documents.BorderStyle.Single;
            tr.CharacterFormat.Border.Color = Color.Black;

            //テキストに強調マークを付ける
            paragraph.AppendText("。\nこれは");
            tr = paragraph.AppendText("傍点付きのテキストです");
            tr.CharacterFormat.EmphasisMark = Emphasis.DotBelow;

            //テキストに上付き文字を適用する
            paragraph.AppendText("。\nこれは数学の公式です： a");
            tr = paragraph.AppendText("2");
            tr.CharacterFormat.SubSuperScript = SubSuperScript.SuperScript;
            paragraph.AppendText(" + b");
            tr = paragraph.AppendText("2");
            tr.CharacterFormat.SubSuperScript = SubSuperScript.SuperScript;
            paragraph.AppendText(" = c");
            tr = paragraph.AppendText("2");
            tr.CharacterFormat.SubSuperScript = SubSuperScript.SuperScript;
            paragraph.AppendText(".");

            //ドキュメントを保存する
            document.SaveToFile("文字書式の設定.docx", FileFormat.Docx);
        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields
Imports System.Drawing

Namespace ApplyFormattingToCharacters
    Class Program
        Shared Sub Main(ByVal args() As String)
            'Documentのオブジェクトを作成する
            Dim document As Document = New Document()

            'セクションを追加する
            Dim sec As Section = document.AddSection()

            '段落を追加し、スタイルを設定します
            Dim paragraph As Paragraph = sec.AddParagraph()
            Dim defaultFont As ParagraphStyle = New ParagraphStyle(document)
            defaultFont.CharacterFormat.FontName = "Yu Gothic"
            document.Styles.Add(defaultFont)
            paragraph.ApplyStyle(defaultFont.Name)
            paragraph.AppendText("\n\nここでは、さまざまな文字スタイルを持つ段落を紹介します。\nこれは")

            '段落にテキストを追加し、TextRangeのオブジェクトを返す
            Dim tr As TextRange = paragraph.AppendText("取り消し線付きテキスト")

            'TextRangeのオブジェクトで取り消し線付きの文字書式を設定する
            tr.CharacterFormat.IsStrikeout = True

            'テキスト背景に網かけを設定する
            paragraph.AppendText("。\nこれは")
            tr = paragraph.AppendText("網かけ付きテキストです")
            tr.CharacterFormat.IsShadow = True

            'フォントサイズを設定する 
            paragraph.AppendText("。\nこれは")
            tr = paragraph.AppendText("大きいフォントのテキストです")
            tr.CharacterFormat.FontSize = 20

            'フォント名を設定する 
            paragraph.AppendText("。\nこれは")
            tr = paragraph.AppendText("明朝体の文字です")
            tr.CharacterFormat.FontName = "Yu Mincho"

            'フォントの色を設定する
            paragraph.AppendText("。\nこれは")
            tr = paragraph.AppendText("赤色で表示されるテキストです")
            tr.CharacterFormat.TextColor = Color.Red

            'テキストに太字や斜体の書式を適用する
            paragraph.AppendText("。\nこれは")
            tr = paragraph.AppendText("太字や斜体のテキストです")
            tr.CharacterFormat.Bold = True
            tr.CharacterFormat.Italic = True

            'テキストに下線書式を適用する
            paragraph.AppendText("。\nこれは")
            tr = paragraph.AppendText("下線付きのテキストです")
            tr.CharacterFormat.UnderlineStyle = UnderlineStyle.Single

            'テキストに背景色を適用する
            paragraph.AppendText("。\nこれは")
            tr = paragraph.AppendText("ハイライトされているテキストです")
            tr.CharacterFormat.HighlightColor = Color.Green

            'テキストに囲み線を適用する
            paragraph.AppendText("。\nこれは")
            tr = paragraph.AppendText("囲み線付きのテキストです")
            tr.CharacterFormat.Border.BorderType = Spire.Doc.Documents.BorderStyle.Single
            tr.CharacterFormat.Border.Color = Color.Black

            'テキストに強調マークを付ける
            paragraph.AppendText("。\nこれは")
            tr = paragraph.AppendText("傍点付きのテキストです")
            tr.CharacterFormat.EmphasisMark = Emphasis.DotBelow

            'テキストに上付き文字を適用する
            paragraph.AppendText("。\nこれは数学の公式です： a")
            tr = paragraph.AppendText("2")
            tr.CharacterFormat.SubSuperScript = SubSuperScript.SuperScript
            paragraph.AppendText(" + b")
            tr = paragraph.AppendText("2")
            tr.CharacterFormat.SubSuperScript = SubSuperScript.SuperScript
            paragraph.AppendText(" = c")
            tr = paragraph.AppendText("2")
            tr.CharacterFormat.SubSuperScript = SubSuperScript.SuperScript
            paragraph.AppendText(".")

            'ドキュメントを保存する
            document.SaveToFile("文字書式の設定.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace

PM> Install-Package Spire.Doc

using Spire.Doc;
using Spire.Doc.Documents;
using System.Text;
using System.IO;

namespace ExtractTextfromWord
{
    class ExtractText
    {
        static void Main(string[] args)
        {
            //Documentクラスのインスタンスを作成する
            Document document = new Document();

            //Word文書の読み込み
            document.LoadFromFile("C:/洞窟の芸術.docx");

            //StringBuilderクラスのインスタンスを作成する
            StringBuilder sb = new StringBuilder();

            //Word文書からテキストを抽出し、StringBuilderクラスのインスタンスに保存する
            foreach (Section section in document.Sections)
            {
                foreach (Paragraph paragraph in section.Paragraphs)
                {
                    sb.AppendLine(paragraph.Text);
                }
            }

            //新たにtxtファイルを作成し、抽出したテキストを保存する
            File.WriteAllText("テキストの抽出.txt", sb.ToString());
        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System.Text
Imports System.IO

Namespace ExtractTextfromWord
    Class ExtractText
        Shared Sub Main(ByVal args() As String)
            'Documentクラスのインスタンスを作成する
            Dim document As Document = New Document()

            'Word文書の読み込み
            document.LoadFromFile("C:/洞窟の芸術.docx")

            'StringBuilderクラスのインスタンスを作成する
            Dim sb As StringBuilder = New StringBuilder()

            'Word文書からテキストを抽出し、StringBuilderクラスのインスタンスに保存する
            Dim section As Section
            For Each section In document.Sections
                Dim paragraph As Paragraph
                For Each paragraph In section.Paragraphs
                    sb.AppendLine(paragraph.Text)
                Next
            Next

            '新たにtxtファイルを作成し、抽出したテキストを保存する
            File.WriteAllText("テキストの抽出.txt", sb.ToString())
        End Sub
    End Class
End Namespace

using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;

namespace ExtractImage
{
    class Program
    {
        static void Main(string[] args)
        {
            //Documentクラスのオブジェクトを作成する
            Document document = new Document();

            //Word文書の読み込み
            document.LoadFromFile("C:/洞窟の芸術.docx");
            int index = 0;

            //文書の各セクションを取得する
            foreach (Section section in document.Sections)
            {
                //セクションの各段落を取得する
                foreach (Paragraph paragraph in section.Paragraphs)
                {
                    //指定された段落の各文書オブジェクトを取得する
                    foreach (DocumentObject docObject in paragraph.ChildObjects)
                    {
                        //DocumentObjectTypeが画像であれば、ファイルに保存する
                        if (docObject.DocumentObjectType == DocumentObjectType.Picture)
                        {
                            DocPicture picture = docObject as DocPicture;
                            picture.Image.Save(string.Format("画像/画像{0}.png", index), System.Drawing.Imaging.ImageFormat.Png);
                            index++;
                        }
                    }
                }
            }
        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields

Namespace ExtractImage
    Class Program
        Shared Sub Main(ByVal args() As String)
            'Documentクラスのオブジェクトを作成する
            Dim document As Document = New Document()

            'Word文書の読み込み
            document.LoadFromFile("C:/洞窟の芸術.docx")
            Dim index As Integer = 0

            '文書の各セクションを取得する
            Dim section As Section
            For Each section In document.Sections
                'セクションの各段落を取得する
                Dim paragraph As Paragraph
                For Each paragraph In section.Paragraphs
                    '指定された段落の各文書オブジェクトを取得する
                    Dim docObject As DocumentObject
                    For Each docObject In paragraph.ChildObjects
                        'DocumentObjectTypeが画像であれば、ファイルに保存する
                        If docObject.DocumentObjectType = DocumentObjectType.Picture Then
                            Dim picture As DocPicture = docObject
                            picture.Image.Save(String.Format("画像/画像{0}.png", index), System.Drawing.Imaging.ImageFormat.Png)
                            index = index + 1
                        End If
                    Next
                Next
            Next
        End Sub
    End Class
End Namespace

PM> Install-Package Spire.Doc

using System;
using System.Drawing;
using Spire.Doc;
using Spire.Doc.Documents;

namespace FindAndHighlightText
{
    internal class Program
    {
        static void Main(string[] args)
        {
            //Document クラスのオブジェクトを作成する
            Document document = new Document();

            //Wordドキュメントを読み込む
            document.LoadFromFile(@"C:\実例.docx");

            //一致するテキストを検索する
            TextSelection[] text = document.FindAllString("荘子", false, true);

            //検出されたテキストをループし、強調表示する
            foreach (TextSelection seletion in text)
            {
                seletion.GetAsOneRange().CharacterFormat.HighlightColor = Color.Yellow;
            }

            //ドキュメントを保存する
            document.SaveToFile("テキストの検索と強調表示.docx", FileFormat.Docx);
        }
    }
}

Imports System
Imports System.Drawing
Imports Spire.Doc
Imports Spire.Doc.Documents

Namespace FindAndHighlightText
    Friend Class Program
        Shared Sub Main(ByVal args() As String)
            'Document クラスのオブジェクトを作成する
            Dim document As Document = New Document()

            'Wordドキュメントを読み込む
            document.LoadFromFile("C:\実例.docx")

            '一致するテキストを検索する
            Dim text() As TextSelection = document.FindAllString("荘子", False, True)

            '検出されたテキストをループし、強調表示する
            Dim seletion As TextSelection
            For Each seletion In text
                seletion.GetAsOneRange().CharacterFormat.HighlightColor = Color.Yellow
            Next

            'ドキュメントを保存する
            document.SaveToFile("テキストの検索と強調表示.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace

PM> Install-Package Spire.Doc

using Spire.Doc;
using Spire.Doc.Documents;

namespace applyemphasismark
{
    class Program
    {
        static void Main(string[] args)
        {
            //ドキュメントインスタンスを作成する
            Document document = new Document();

            //ディスクからWord文書をロードする
            document.LoadFromFile(@"C:\Users\Administrator\Desktop\sample.docx");

            //強調したいテキストを探す
            TextSelection[] textSelections = document.FindAllString("Spire.Doc for .NET", false, true);

            //見つかったテキストに強調マークを付ける
            foreach (TextSelection selection in textSelections)
            {
                selection.GetAsOneRange().CharacterFormat.EmphasisMark = Emphasis.DotBelow;
            }

            //ドキュメントを別のWordファイルに保存する
            string output = "ApllyEmphasisMark.docx";
            document.SaveToFile(output, FileFormat.Docx);
        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
 
Namespace applyemphasismark
    Class Program
        Shared  Sub Main(ByVal args() As String)
            'ドキュメントインスタンスを作成する
            Dim document As Document =  New Document() 
 
            'ディスクからWord文書をロードする
            document.LoadFromFile("C:\Users\Administrator\Desktop\sample.docx")
 
            '強調したいテキストを探す
            Dim textSelections() As TextSelection =  document.FindAllString("Spire.Doc for .NET",False,True) 
 
            '見つかったテキストに強調マークを付ける
            Dim selection As TextSelection
            For Each selection In textSelections
                selection.GetAsOneRange().CharacterFormat.EmphasisMark = Emphasis.DotBelow
            Next
 
            'ドキュメントを別のWordファイルに保存する
            Dim output As String =  "ApllyEmphasisMark.docx" 
            document.SaveToFile(output, FileFormat.Docx)
        End Sub
    End Class
End Namespace