Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Word makro: Zeichen am Ende einer Zeile einfügen

10.11.2018 (👁442)

Word : Zeichen am Ende einer Zeile einfügen

Dieses kleine Code-Script fügt am Ende eines Satzes einen Umbruch ein und fügt dann eine Leer-Tabelle.

In C#, entsprechend vba

sLine.InsertAfter("\r\r");

            sLine.Select();

            _app.Selection.EndKey();

            _app.Selection.Select();

            Range newRange = _app.Selection.Range;

            _app.ScreenRefresh();

            

            //< create new table >

            Word.Table newTable = _doc.Tables.Add( newRange ,NumRows:1,NumColumns: 2);

            //</ create new table >

Betrifft: vba makro, c# intercom vsto

Komplettes Code-Snippet, Beispiel

private Word.Table find_Textline_Create_Empty_Table(string sHeader)

{

    //-----------------< find_Table_with_Header() >-----------------

 

 

    //--< find Table Header >--

    //*Loop all tables and look for header

    foreach (Word.Range sLine in _doc.Sentences)

    {

        //-------< Check Sentence >------

        string sText = sLine.Text;

 

        sText = sText.Trim();

        if (sText == sHeader )

        {

            //----< Line_found >----

            

            sLine.InsertAfter("\r\r");

            sLine.Select();

            _app.Selection.EndKey();

            _app.Selection.Select();

            Range newRange = _app.Selection.Range;

            _app.ScreenRefresh();

 

            //< init setup >

            int Columns_Count = Settings1.Default.Columns_Count;

            //</ init setup >

 

            //< create new table >

            //Word.Range newRange = sLine.MoveEnd(WdUnits.wdCharacter, -1);

            Word.Table newTable = _doc.Tables.Add( newRange ,NumRows:1,NumColumns: Columns_Count);

            newTable.Borders.InsideColor = WdColor.wdColorRed;

            //</ create new table >

 

            //< out >

            return newTable;

            //</ out >

            //----</ Line_found >----

        }

        //-------</ Check Sentence >------

    }

    //< check >

    System.Windows.Forms.MessageBox.Show("Zeile nicht gefunden. " + Environment.NewLine + "gesuchter Header:" + sHeader, "Header nicht gefunden");

    return null;

    //--</ find Table Header >--

    //-----------------</ find_Table_with_Header() >-----------------

}