Symphysodon
Gebruiker
- Lid geworden
- 14 dec 2012
- Berichten
- 468
Geeft niet, bedankt voor het meedenken
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub Wordtabel()
j = 2
For i = 1 To 34
With Selection.Tables(1)
.Cell(j, 4).Merge .Cell(j, 7)
' .Cell(j, 4).Range.Text = RTrim(.Cell(j, 4))
j = j + 35
End With
Next
End Sub
Set t = ActiveDocument.Tables(1)
L = Len(t.Cell(j, 4).Range.Text)
'j = 2
For i = 1 To 34
With ActiveDocument
Set s1 = .Range(.Tables(1).Cell(j, 1).Range.Start, .Tables(1).Cell(j + 24, 3).Range.End)
s1.Select
Selection.Tables(1).Columns.DistributeWidth
Set s2 = .Range(.Tables(1).Cell(j + 1, 4).Range.Start, .Tables(1).Cell(j + 19, 7).Range.End)
s2.Select
Selection.Tables(1).Columns.DistributeWidth
End With
j = j + 35
Next
Sub remove_all_the_first_line_indent_spaces()
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False 'close screen and refresh
For Each i In ActiveDocument.Paragraphs 'cycling in the pragraphs of the active document
For n = 1 To i.Range.Characters.Count
If i.Range.Characters(1).Text = " " Or i.Range.Characters(1).Text = " " Or i.Range.Characters(1).Text = Chr(9) Then
i.Range.Characters(1).Delete
Else: Exit For
End If
Next n
Next
Application.ScreenUpdating = True 'restore screen and refresh
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.