delphi - How to make certain text bold in MS Word -

-

i using following code insert table 2 cells in ms word using delphi xe5. font table's cells pretty straight forward. except 1 word. need word bold while rest not.

please me adjust code can make 1 word bold.

wrddoc.tables.add(wrdselection.range,3,2); wrddoc.tables.item(3).rows.alignment := wdalignrowleft;   wrddoc.tables.item(3).columns.item(1).setwidth(36,wdadjustnone);  wrddoc.tables.item(3).columns.item(2).setwidth(379,wdadjustnone);  wrddoc.tables.item(3).borders.item(wdborderleft).linestyle := wdlinestylenone;  wrddoc.tables.item(3).borders.item(wdborderright).linestyle := wdlinestylenone;  wrddoc.tables.item(3).borders.item(wdbordervertical).linestyle := wdlinestylenone;  wrddoc.tables.item(3).borders.item(wdbordertop).linestyle := wdlinestylenone;  wrddoc.tables.item(3).borders.item(wdborderbottom).linestyle := wdlinestylenone;  wrddoc.tables.item(3).borders.item(wdborderhorizontal).linestyle := wdlinestylenone;   wrddoc.tables.item(3).cell(1,1).range.insertafter('8.1');  wrddoc.tables.item(3).cell(1,1).range.paragraphs.alignment := wdalignparagraphleft;  wrddoc.tables.item(3).cell(1,1).range.font.size := 12;  wrddoc.tables.item(3).cell(1,1).range.font.bold := false;  wrddoc.tables.item(3).cell(1,1).range.font.underline := false;   wrddoc.tables.item(3).cell(1,2).range.insertafter('this not bold text');  wrddoc.tables.item(3).cell(1,2).range.insertafter('this not bold text');  wrddoc.tables.item(3).cell(1,2).range.insertafter('this text must bold');  wrddoc.tables.item(3).cell(1,2).range.paragraphs.alignment := wdalignparagraphjustify;  wrddoc.tables.item(3).cell(1,2).range.font.size := 12;  wrddoc.tables.item(3).cell(1,2).range.font.bold := false;  wrddoc.tables.item(3).cell(1,2).range.font.underline := false;

as can see in last part of code, there 3 calls insertafter(), sentences inserting long. , delphi limits me 255 call them more once , calling once.

only last call, must bold. rest should stay format defined above.

any , appreciated. thank you

i did manage find way. bit messy job.

procedure makebold(searchstr:string); begin  wrdapp.selection.find.clearformatting;      wrdapp.selection.find.text := searchstr;      wrdapp.selection.find.forward := true;      wrdapp.selection.find.wrap := wdfindcontinue;      wrdapp.selection.find.format := false;      wrdapp.selection.find.matchcase :=  true;      wrdapp.selection.find.matchwholeword := wrfmatchcase in flags;      wrdapp.selection.find.matchwildcards :=wrfmatchwildcards in flags;      wrdapp.selection.find.matchsoundslike := false;      wrdapp.selection.find.matchallwordforms := false;      { perform search }      wrdapp.selection.find.execute();   wrdapp.selection.font.bold:=true; end;

then call makebold('this text must bold'); , solves problem.

any other possible answers still welcome, because method may make other unrelated text bold.


Comments

Post a Comment

Popular posts from this blog

windows - Single EXE to Install Python Standalone Executable for Easy Distribution -

-
i used pyinstaller create standalone exe file pyqt project. did not use single file option because exe created single file option takes long open. therefore, pyinstaller created dist folder contains bunch of files including program.exe file. create setup.exe file place contents of dist folder in program directory , create shortcut in start menu , on desktop. want super simple user. maybe setup.exe files when download program cnet. found inno-setup, looks promising. however, not know if there special considerations because program standalone program create python/pyqt program. thanks! have experience task? there program using task not know about? inno-setup or nsis easiest use. tell them files include , put them , create nice installer you. wrote short tutorial on experiences using innosetup might find helpful: http://www.blog.pythonlibrary.org/2008/08/27/packaging-wxpymail-for-distribution/ note tutorial based around wxpython app wrote, concepts same.
Read more

c# - Access objects in UserControl from MainWindow in WPF -

-
i have simple xaml, how can change text property of textblock in usercontrol1 mainwindow ? <window x:class="refactorxaml.mainwindow" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:refactorxaml="clr-namespace:refactorxaml" title="mainwindow" height="350" width="525"> <grid> <grid.rowdefinitions> <rowdefinition height="100"></rowdefinition> <rowdefinition height="100"></rowdefinition> </grid.rowdefinitions> <grid> <refactorxaml:usercontrol1></refactorxaml:usercontrol1> </grid> <grid grid.row="1"> <button>change text</button> </grid> </grid> </window> <usercon...
Read more

javascript - How to name a jQuery function to make a browser's back button work? -

-
i'm trying write function ajaxyfy web site, works perfect, except function button. that's have now: function loading() { if (typeof history.pushstate !== "undefined") { var historycount = 0; $('.menu-item, .logo').on('click','a',function(e){ e.preventdefault(); $(this).data('clicked', true); if ($(this).is('.logo a')) { var homepage = $(this).attr('href'); function1(homepage); history.pushstate(null, null, homepage); } else if ($(this).is('.projects a')) { var projects = $(this).attr('href'); function2(projects); history.pushstate(null, null, projects); } else { var pages = $(this).attr('href'); function3(pages); history.pushstate(null, null, pages); ...
Read more