怎么把文章复制到表格里

胡1986 · 发表于 2023-4-26 20:53

怎么把文章复制表格里

vbee · 发表于 2023-4-27 08:53

本帖最后由 vbee 于 2023-4-27 08:58 编辑

第1步. 另存为TXT，插入换行符
第2步，选择文本，插入表格--文本转换为表格

zpy2 · 发表于 2023-4-27 09:27

这种情况吗？https://club.excelhome.net/forum.php?mod=viewthread&tid=1660683&mobile

胡1986 · 发表于 2023-4-27 20:44

zpy2 发表于 2023-4-27 09:27
这种情况吗？https://club.excelhome.net/forum.php?mod=viewthread&tid=1660683&mobile

是的，谢谢

胡1986 · 发表于 2023-4-27 20:48

vbee 发表于 2023-4-27 08:53
第1步. 另存为TXT，插入换行符
第2步，选择文本，插入表格--文本转换为表格

还有两行的情况，怎么解决

vbee · 发表于 2023-4-28 08:25

胡1986 发表于 2023-4-27 20:48
还有两行的情况，怎么解决

第一步没做好，仔细看对话框

zpy2 · 发表于 2023-4-28 10:16

胡1986 发表于 2023-4-27 20:48
还有两行的情况，怎么解决

cli_add_css~td{text-align:left};
create temp table aa as
select regreplace('(.{53})','\1@',F_A) F_A from word固定字数转表格;
cli_split_data~aa~@~F_A;
select F_A from aasplit;

胡1986 · 发表于 2023-4-28 18:49

zpy2 发表于 2023-4-28 10:16
cli_add_css~td{text-align:left};
create temp table aa as
select regreplace('(.{53})','\1@',F_A) ...

你好，你发的是VBA代码吗？没看懂

413191246se · 发表于 2023-4-29 01:51

* 楼主，请打开文章后，用我的《公文自动排版》宏排版，然后应用下面的宏。
* 请复制代码后粘贴到新建文档中，再全选——复制——粘贴到 VBE 中使用，否则可能有乱码。

Sub a0001_FillTextToTable()
Dim doc As Document, i As Paragraph, c As Cell
Set doc = ActiveDocument
'delete blank lines
For Each i In doc.Paragraphs
With i.Range
If Asc(.Text) = 13 Then .Delete
End With
Next
'add two-full-spaces to per-line
For Each i In doc.Paragraphs
With i.Range
With .ParagraphFormat
If .CharacterUnitFirstLineIndent <> 0 Then
.CharacterUnitFirstLineIndent = 0
If .FirstLineIndent <> 0 Then
.FirstLineIndent = 0
.Parent.InsertBefore Text:=Chr(-24159) & Chr(-24159)
End If
End If
End With
End With
Next
'add Enter-Symbol
With Selection
.HomeKey 6
Do
.EndKey
If .End = doc.Content.End - 1 Then Exit Do
If Asc(.Text) = 13 Then
.MoveRight
Else
.TypeParagraph
End If
Loop
'text to table
.WholeStory
.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1, _
AutoFitBehavior:=wdAutoFitFixed
.Tables(1).Style = "网格型"
With .ParagraphFormat
.LineUnitBefore = 0
.LineUnitAfter = 0
.SpaceBefore = 0
.SpaceAfter = 0
.LineSpacingRule = wdLineSpaceSingle
End With
.HomeKey 6
End With
'distribute
With doc.Tables(1)
.Rows.Height = CentimetersToPoints(1.2)
.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
For Each c In .Range.Cells
With c.Range
If .Characters.Count > 24 Then .ParagraphFormat.Alignment = wdAlignParagraphDistribute
End With
Next
End With
MsgBox "Complete!", 0 + 48
End Sub

复制代码

zpy2 · 发表于 2023-4-29 05:12

胡1986 发表于 2023-4-28 18:49
你好，你发的是VBA代码吗？没看懂

不是vba,是在线工具

		自动登录	找回密码
密码			免费注册

怎么把文章复制到表格里

评分