Word 2003. kopiere celle indhold til en anden celle

ja det kan det ,,regner med at du mener et regneark
du skal finde det der hedder gentag

hvis du går i hjælp - indeks . skriver gentag så kan du sikkert læse dig til resten

glemte .. du finder det foroven som sidste efter funktioner

Nej, jeg mener word 2003, en tabel med flere celler. Jeg kan godt se at jeg ikke var helt tydelig, sorry

kan du sende et printschreen

http://screencast.com/t/LMh9yOLL3r

kan ik hjælpe i word
men kan du ik bruge et regneark til din opgave
der kan man gentage ,også tekst


prøv evt at download  open office

Jeg har Excel, men der er cellerne desværre ikke målfaste og det har jeg brug for.
Jeg kan ikke se hvad openoffice skulle gøre for mig.

Det kan godt lade sig gøre at arbejde med tabeller i Word, jeg har ikke arbejdet ret meget med det, kun konstateret at DET VIRKER, måske ikke direkte, men prøv at arbejde med det, jeg indsætter det efterfølgende. Der er også en anden mulighed, nemlig at indlægge 'bookmarks' i de ramme som du vil udfylde. Hvis du ønsker denne mulighed og ikke har programlinier til at behandle bookmarks, så skriv det, så kan du få "stumperne".

// ---------------------------------------------------                                           
// to create a table in MSWord and write in its cells                                             
                                                                                                 
word = COMobject("Word.Application")
word.Visible = true
doc = word.Documents.Add()

wtable = doc.Tables.Add(word.Selection.Range, 3, 3); // columns, rows
//
wtable.Cell(1, 2).Range.Font.Name = 'Times New Roman';
wtable.Cell(1, 2).Range.Font.Size = 18;
wtable.Cell(1, 2).Range.Bold = true;
wtable.Cell(1, 2).Range.Font.Italic = true;
wtable.Cell(2, 1).Range.ParagraphFormat.Alignment = 1 // 0= left, 1=center, 2=rigth
wtable.Cell(1, 2).Range.Text = 'row1-col2' // row, column
//
wtable.Cell(2, 1).Range.Font.Name = 'Arial';
wtable.Cell(2, 1).Range.Font.Size = 12;
wtable.Cell(2, 1).Range.Bold = false;
wtable.Cell(2, 1).Range.ParagraphFormat.Alignment = 2
wtable.Cell(2, 1).Range.Text = 'row2-col1'
//
wtable.Cell(3, 3).Range.Font.Name = 'Times New Roman';
wtable.Cell(3, 3).Range.Font.Size = 14;
wtable.Cell(3, 3).Range.Bold = true;
wtable.Cell(3, 3).Range.Font.Underline = true;
wtable.Cell(2, 1).Range.ParagraphFormat.Alignment = 0
wtable.Cell(3, 3).Range.Text = 'row3-col3'
//
wtable.Release()
doc.Release()
word.Release()

// ---------------------------------------------------                                           
// others font properties

Range.Font.Emboss = true
Range.Font.Engrave = true
Range.Font.Kerning = true
Range.Font.Shadow = true
Range.Font.StrikeThrough = true
Range.Font.Subscript = true
Range.Font.Superscript = true
Range.Font.Color:= wdColorBlue;

// ---------------------------------------------------
// to read values from a MSWOrd table

word = COMobject("Word.Application")
word.Visible = true
doc = word.Documents.Open("c:\\test.doc")
wtable = word.ActiveDocument.Tables.Item(1); // 1 = first table, may be more then one table
//       
// get dimensions of table if are needed for a loop
tCols = wtable.Rows.Count;
tRows = wtable.Columns.Count;
//
cellText = wtable.Cell(1, 2).Range.Text;  // Cell(x,x) start from 1,1
//
// Remove Tabs and linebreaks from cellText value
// "\x0D" ctrl M - CR,  "\x07" ctrl G - Bell
cellValue = cellText.Tr("\x0D").Tr("\x07")
//
Print(Display(cellValue))
//
wtable.Release()
doc.Release()                                                                                     
word.Release()

jeg lukker - uløst