求助一下大佬

水泥拌饭

像这种红框内的文字满了以后，自动转到下一页是怎么自动实现的，第一页的表格格式与第二页的表格样式一样

庄焕庭

连接文本框 Microsoft 365 专属 Publisher Publisher 2021 Publisher 2019 Publisher 2016 更多... 在 Publisher 中连接文本框时，不适合第一个文本框的文本将流入下一个文本框。 一系列连接的文本框（也称为故事）可以跨多个页面。  使用连接的文本框可以：  在另一个文本框中继续故事  创建不同宽度的列  将文本从 溢出 移动到另一个框中  如果需要，请创建新的文本框。  连接文本框 单击“开始”>“绘制文本框”，并拖动形状交叉的光标以在希望文本出现的位置绘制一个框。   单击要用作故事中第一个文本框的文本框。  在"文本框工具格式"选项卡上的"链接"组中，单击"创建链接"。   鼠标指针将变为 文本框链接杯状指针，用于链接文本框。。  单击要用作故事中下一个的文本框。  此文本框现已连接到第一个框，溢出中的任何文本现在将显示在下一个框中。  若要将更多文本框连接到故事，请重复步骤 3 和 4。

水泥拌饭

还有别的方法没呢  这个软件没用过啊

batmanbbs

我想到两种方法：
一是上下相同内容的表格放在页眉或者页脚，不同内容的表格用无边框放在正文区；
二是使用#2的方法，这个链接文本框word也是支持的，需要注意的是直接链接数量是有限制的，我印象最多是32个文本框，超过32个需要使用逆序的方法来解决。

水泥拌饭

batmanbbs 发表于 2024-7-13 17:10
我想到两种方法：
一是上下相同内容的表格放在页眉或者页脚，不同内容的表格用无边框放在正文区；
二是使 ...

有办法用VBA 判断文本框内容是否能显示全部需要显示的内容吗？想达到如果不能全部显示的话，用代码辅助原来的签证单模板，然后关联文本框

batmanbbs

水泥拌饭 发表于 2024-7-13 17:32
有办法用VBA 判断文本框内容是否能显示全部需要显示的内容吗？想达到如果不能全部显示的话，用代码辅助原 ...

如果你会vba当然没有问题了，但是为啥非用vba呢，我觉得第一种方法就挺方便的

庄焕庭

或者：把空白表格的文档全篇转化成图片（即A4大小，21厘米宽29.7厘米高），然后1比1满A4幅面放到页眉中（置于文字之下），当作WORD文档的背景图，然后进行页面页边距设置，调高页边距的上，下，左，右边距，让文档的版心刚好位于所说的红框内，这样就能任意连续编写下去了。

413191246se

* 楼主，我编了一个 VBA 宏，请你试试吧！注意看一下代码下面的注释。
* 将代码复制到空白文档后，再全选，剪切，再粘贴到 VBE 中，否则可能乱码！

1. Sub a0716_Project_Label()
   
2. '请注意！将表格文件名命名为"工程签证单"；欲填入的文本文件名命名为"TextInput"
   
3. '先后打开上面两个文件，将表格充满第一页，让第二页仅有一个回车符即可！执行本宏。
   
4.     Dim n&, Lines&, oEnd&
   
5.     Lines = InputBox("", "请输入单元格要容纳的行数！", "5") '默认为 5 行，可自由输入行数！
   
6.     Do
   
7.         n = n + 1
   
8.         Documents("TextInput").Activate
   
9.         With Selection
   
10.             .HomeKey 6
    
11.             Do
    
12.                 .MoveEnd 5, 1
    
13.                 If ActiveDocument.Range.ComputeStatistics(wdStatisticLines) < Lines Then
    
14.                     ActiveDocument.Content.Select
    
15.                     oEnd = 1
    
16.                     Exit Do
    
17.                 End If
    
18.             Loop Until .Range.ComputeStatistics(wdStatisticLines) = Lines '行数（此值可以自行修改）
    
19.             .Cut
    
20.         End With
    
21.         Documents("工程签证单").Activate
    
22.         With ActiveDocument.Tables(n).Range.Cells(13).Range
    
23.             .Select
    
24.             Selection.Paste
    
25.             .Font.ColorIndex = wdRed '************
    
26.             Selection.HomeKey 6
    
27.             If oEnd = 1 Then MsgBox "Complete!", 0 + 48: End
    
28.             ActiveDocument.Bookmarks("\Page").Range.Select
    
29.             Selection.Copy
    
30.             Selection.EndKey 6
    
31.             Selection.Paste
    
32.             ActiveDocument.Tables(n + 1).Range.Cells(13).Range.Text = ""
    
33.         End With
    
34.     Loop
    
35. End Sub

复制代码

1478525

413191246se 发表于 2024-7-16 03:10
* 楼主，我编了一个 VBA 宏，请你试试吧！注意看一下代码下面的注释。
* 将代码复制到空白文档后，再全选 ...

这个只适用楼主的文件吧